Naja das hab ich schon probiert.. Mein Programm schreibt auch die Zeile
WriteLn(myFile,':: Missing: '+GetSysDir+'\'+Filename);
Aber der Exit funktioniert nicht
Delphi-Quellcode:
Procedure SearchingFiles(Filename:String);
begin
if SearchForFile(GetSysDir+'\', Filename, APathFound) then
WriteLn(myFile,':: Available: '+GetSysDir+'\'+Filename) else
WriteLn(myFile,':: Missing: '+GetSysDir+'\'+Filename);
Exit;
end;