Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
if not fileexists('main.exe') then
begin
showmessage('muss sich im hauptverzeichnis befinden');
application.terminate; // <--- soll sich nur schließen wenn programm nicht im hauptverzeichnis
end;
end;
So müsste es gehen!
PS: Ich würde noch zur Sicherheit den Dateipfad zur Datei angeben, also so:
Delphi-Quellcode:
if not fileexists(ExtractFilePath(application.exename) + 'main.exe') then
begin [...]