Exit ?!

[Namenloser]

Warum nicht einfach so? Halt ist genau das, was du suchst. (für application.close musst du die unit forms einbinden, die dein programm aber nur unnötig ausbläht)

Delphi-Quellcode:

  if SearchForFile(GetSysDir+'\', Filename, APathFound) then
    WriteLn(myFile,':: Available: '+GetSysDir+'\'+Filename) 
  else
  begin
    WriteLn(myFile,':: Missing: '+GetSysDir+'\'+Filename); 
    halt;
  end;