"Dateizugriff verweigert"

[sakura]

Aus der Delphi Hilfe. Diese Lösung ist nicht thread-safe!

Code:

unction FileIsThere(FileName: string): Boolean;

{ Boolean function that returns True if the file exists; otherwise,
  it returns False. Closes the file if it exists. }
 var
  F: file;
begin
  {$I-}
  [color=#e30000]AssignFile(F, FileName);
  [b]FileMode := 0;  {Set file access to read only }[/b]
  Reset(F);[/color]
  CloseFile(F);
  {$I+}
  FileIsThere := (IOResult = 0) and (FileName <> '');
end;  { FileIsThere }

......