Prüfen ob Datei frei zum weiterverarbeiten : gelöst

[etom291272]

Delphi-Quellcode:

function FileInUse(FileName: string): Boolean; 
var 
  hFileRes: HFILE; 
begin 
  Result := False; 
  if not FileExists(FileName) then 
    Exit; 
  hFileRes := CreateFile(PChar(FileName), 
    GENERIC_WRITE, 
    0, 
    nil, 
    OPEN_EXISTING, 
    FILE_ATTRIBUTE_NORMAL, 
    0); 
  Result := (hFileRes = INVALID_HANDLE_VALUE); 
  if not Result then 
    CloseHandle(hFileRes); 
end;

hab mit folgendem code versucht zu prüfen ob die datei bereits fertiggestellt ist obwohl der scanner noch fleissig die seiten hinzufügt verarbeitet mein prog sofort wenn das tif vom scanner angelegt wird die Seiten
hab schon daran gedacht die dateigrösse zu speichern und nach einiger zeit zu prüfen ob sich die grösse verändert hat aber wäre froh wenn es mit weniger programmieraufwand ginge