Hi,
@Spider: dem Formularnamen nach, beendet er nicht das Programm, sondern nur ein Formular.
@DRPEnc:
Versuchs mal so:
Delphi-Quellcode:
OpenDialog1.Options := OpenDialog1.Options + [ofNoChangeDir];
if OpenDialog1.Execute then begin
Form1.Edit1.Text := OpenDialog1.FileName;
// hier kannst du dann noch was Ausführen oder so...
Close;
end;
Ansonsten rate ich dir immer den gesamten Pfad anzugeben:
ShellExecute(self.Handle, 'open', PChar(ExtractFilePath(Application.ExeName) + 'datei.exe'), nil, nil, SW_SHOW);
Chris