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);