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

[etom291272]

habs hinbekommen

frage mit folgendem code das Letzte Änderungsdatum der Datei ab die vom Scanner erstellt wird wenn das Änderungsdatum nicht um über 1 minute kleiner ist als now wird die Datei übergangen

Delphi-Quellcode:

 procedure THauptForm.Timer1Timer(Sender: TObject);
var
  i : Integer;
  LSrch: TSearchRec;
  DirScanEing : String;
  DatzuVerarb : String;

begin
VrProgressBar1.Position:=VrProgressBar1.Position+1;
if VrProgressBar1.Position >= 100 then VrProgressBar1.Position:=1;

Timer1.Enabled:=False;
DirScanEing := leseRegValue('ScannerEingang')+'\';
i := FindFirst(DirScanEing + '*.tif', faAnyFile, LSrch);
try
  while i = 0 do if (LSrch.Attr and faDirectory) = 0 then
    begin
      VerzLauf:=0;

      (* Überprüfen ob Datei frei ist nicht in Verwendung von anderem Prg
         Abfrage des Änderungsdatums weitere Operationen nur wenn Änderungsdatum
         < ist wie jetzt mit 1min 5sec *)
      if FileDateToDateTime(LSrch.Time) < (Now-0.00075)
      then begin
      .....