Fehlermeldung bei Schreiben nach CSIDL_APPDATA

[Klaus01]

Hallo,

es wäre dann vielleicht hilfreich den ErrorCode von IOResult zu erfahren.
Habe deswegen einige Änderungen im Code vorgenommen.

Delphi-Quellcode:

function TStrIniFile.SaveFile : boolean;
var
  f: TextFile;
  i: integer;
  errorCode : Integer;
begin
  RESULT:=false;
  AssignFile(f,FileName);
  {$I-} Rewrite(f); {$I+}
  errorCode := IOResult;
  if errorCode=0 then
  begin
    RESULT:=true;
    for i:=0 to Count-1 do
    begin
      if i>0 then
        if posIS[i]<0 then writeln(f);
      writeln(f,item[i]);
    end;
    closeFile(f);
  end;
  sleep(10);
  *** if not RESULT then ***
    MessageDlg(application.ExeName+': '+FileName+' is not ready for WRITE ['+sysErrorMessage(errorCode)+'].',mtWarning,[mbOk],0);
end;

Grüße
Klaus