Programm das mit ShellExecute gestartet wurde wieder beenden

[Sharky]

Hai,

wie kann ich denn am einfachsten ein Programm das ich aus meiner Anwendung heraus mit ShellExecute gestartet habe wieder beenden?

[Tom]

Starte mit CreateProzess und schicke dem Programm ein WM_CLOSE (oder so).

[sakura]

Schwimm mal in die Code-Library, da findest Du ein Beispiel von Luckie zu CreateProzess - und dann halt WM_CLOSE, wie Tom schon eingetippt hat.

.....-

[Sharky]

Zitat von sakura:

Schwimm mal in die Code-Library, da findest Du ein Beispiel von Luckie zu CreateProzess - und dann halt WM_CLOSE, wie Tom schon eingetippt hat.

Bin schon dreimal hin geschwommen...

Ich habe mir Luckies Funktion RunProcess geschnappt und rufe das so auf:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
 programm : String;
begin
 if (OpenDialog1.Execute) then
  begin
  programm := OpenDialog1.FileName;
  RunProcess (PChar(programm), SW_SHOW, FALSE, @hWnd)
 end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 SendMessage (hWnd,WM_CLOSE,0,0);
end;

Tut aber nix. Sicher wieder ein riesen Denkfehler von mir ps:

P.S.: hWnd ist global als DWord deklariert!

[Luckie]

Du bekommst eine ProzessID zurück und kein Fensterhandle!!!
Mit OpenProcess ein Processhandle davon holen und mit TerminateProcess den Prozess beenden.

[Chewie]

Oder wenn du das "Shellexecute-Feeling" nicht aufgeben willst: Nimm ShellExecuteEx.

[Christian Seehase]

Moin Sharky,

und auch für Chewies Vorschlag findest Du was in der Code-Libary.