Mein Programm bremst nach 2 Stunden den Explorer aus!

[Supergrobie]

Hi!

Danke für die Antwort... ich glaube ich habe das Problem gefunden.
Es gab einen Fall in dem der Searchrec nicht wieder freigegeben wurde und da im Windows
die Dateien über den Explorer laufen oder er damit was zu tun hat, habe ich Ihm wohl den Hals abgeschnürt...

Beim nächsten mal werde ich direkt Code mit posten!
test jetzt erstmal!

Danke!!!!

hier noch der verkürzte Code:

Code:

   doserror := FindFirst(sPath + '*.*', FileAttrs, sr);
   if (doserror = 0) and (length(sr.Name) > 0) then
   begin
      While (sr.Name[1] = '.') or ((Rightstr(sr.Name,3) <> 'LOG') and (Rightstr(sr.Name,3) <> 'ALR')) Do
      begin
         doserror := findnext(sr);
         if doserror <> 0 then
         begin
            Wakeup.Enabled := TRUE;
            Findclose(sr);                 <- Fehlender Eintrag
            Break;
         end;
      end;
      sLog_ID := sr.Name;
   end;
   Findclose(sr);