leider falsch...
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled := False;
if not fileexists('main.exe') then
showmessage('Programm muss sich im Hauptverzeichnis befinden');
end;
procedure TForm1.FormShow(Sender: TObject);
begin
Timer1.Interval := 250;
Timer1.Enabled := True;
end;
Im Objektinspektor musst du den Timer natürlich ausschalten
Greetz
alcaeus