Zitat von
alcaeus:
Löse es über einen Timer, der in der OnShow eingeschaltet wird.
hmm.. hab nen timer noch nie in ne procedure direkt eingebunden ... würdest du mal bitte korrigieren oder vervollständigen:
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
if not fileexists('main.exe')
then showmessage('Programm muss sich im Hauptverzeichnis befinden');
form1.OnShow.timer1.Interval[1000] // <--- wie jetzt hier mit close??
end;