Prüfen, ob eine Datei gerade in Benutzung ist...

[Union]

Ich verwende so ein Konstrukt dafür:

Delphi-Quellcode:

try
  strm := TFileStream.Create(FileName, fmOpenRead);
except
  on e : exception do
  begin
    result := false;
    Logg(e.Message);
 end;
end;

Und zwar genau auch um FTP Daten zu verarbeiten. e.Message enthält dann den Fehlertext vom deutschen Delphi und vom englischen OS (Die Backslashes wurden durch die Zitat-Funktion in Pipes geändert ).

Zitat von FTP-Import:

20.05.2011 06:38:13 Datei \\xxxx\boschftp\in\hu00002040.art kann nicht geöffnet werden. The process cannot access the file because it is being used by another process
20.05.2011 06:48:26 Datei \\xxxx\boschftp\in\hu00002040.art kann nicht geöffnet werden. The process cannot access the file because it is being used by another process
20.05.2011 06:58:39 Datei \\xxxx\boschftp\in\hu00002040.art kann nicht geöffnet werden. The process cannot access the file because it is being used by another process
20.05.2011 07:08:54 Importing \\xxxx\boschftp\in\hu00002040.art