Wie kann ich eine andere Anwendung starten??

[Tommy111]

moin,

also das mit dem ShellExecute hat jetz geklappt. Danke.

Aber wenn ich jetz eine *.exe Datei aufrufen will, öffnet der mir immer nur den Ordner wo diese Anwendung drinsteht, aber net die Anwendung selbst!

Folgendes steht:

Code:

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do begin
    Filter := 'App Files (*.exe)|*.exe|All Files(*.*)|*.*';
    DefaultExt := 'exe';
    if OpenDialog1.Execute then
    begin
      pfad := OpenDialog1.FileName;
      Edit1.Text := ExtractFilePath(pfad) + ExtractFileName(pfad);
    end;
  end;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
  close
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  Edit1.Undo;
  
end;

end.

Also hier will ich noch zusätzlich den Pfad und den Namen der zu öffnenden Anwendung in ein Edit-Fenster schreiben.

So, un jetz will ich das im Edit-Fenster angegebene Programm über einen anderen Button starten.

Code:

ShellExecute(Application.Handle, 'open' ,PChar(pfad), nil, nil, sw_ShowNormal);