Fehlermeldung bei Schreiben nach CSIDL_APPDATA

[Bjoerk]

besser ist das:

Delphi-Quellcode:

function TStrIniFile.isFileReadyForRW: boolean;
begin
  if UpperCase(FileName)=UpperCase(inUseReadFileName) then
  begin
    repeat until inUseReadFileName='';
  end;
  if UpperCase(FileName)=UpperCase(inUseWriteFileName) then
  begin
    repeat until inUseWriteFileName='';
  end;
  RESULT:=true;
end;