Wie kann ich eine fremde Exe beenden

[SaFu]

hab schon nach geguckt

aber so richtig nichts gefunden habt ihr vielleicht ein paar links

[DeddyH]

Jo, Link

[SaFu]

Danke war genau das was ich gesucht habe funktioniert ganz gut

[Luckie]

Die Lösung ist schlecht. Und zwar wegen dieser Zeile:

Delphi-Quellcode:

Result := TerminateProcess(OpenProcess(Process_Terminate, False, Prozess.th32ProcessID), 0);

TerminateProcess kehrt nämlich sofort zurück und der Rückgabewert signalisiert nur, ob die Funktion korrekt ausgeführt wurde oder nicht. Aber nicht, ob der Prozess auch wirklich terminiert wurde. Eine saubere Lösung könnte so aussehen:

Delphi-Quellcode:

{*
 *  Procedure : KillProcess
 *  Author    : Michael Puff
 *  Date      : 2006-09-15
 *  Terminates a process identified by its PID
 *}
function KillProcess(dwProcID, Wait: DWORD): Integer;
var
  hProcess          : Cardinal;
  dw                : DWORD;
begin
  // open the process and store the process-handle
  hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID);
  // kill it
  if hProcess <> 0 then
  begin
    dw := Integer(TerminateProcess(hProcess, 1));
    if dw <> 0 then
    begin
      // TerminateProcess returns immediately, so we have to verify the result via
      // WaitForSingleObject
      dw := WaitForSingleObject(hProcess, Wait);
      if dw = WAIT_FAILED then
        dw := GetLastError;
    end
    else // TerminateProcess = 0
      dw := GetLastError;
    CloseHandle(hProcess);
  end
  else // hProcess = INVALID_HANDLE_VALUE
    dw := GetLastError;
  result := dw;
end;

Allerdinsg sollte man es möglichst vermeiden eonen Prozess so zu beenden. Dnn geöffnete DLLs, werden so nicht entladen bzw. deren Referenzzähler wird nicht dekrementiert. Besser ist es an das Hauptfenster eine WM_CLOSE Nachricht zu schicken.

Edit: Mein 23.000stes Posting. :firejump: :mrgreen:

[scrat1979]

Zitat:

Zitat von Luckie

[...]

Edit: Mein 23.000stes Posting. :firejump: :mrgreen:

:party: :party: :party:

Glückwunsch :hello:

SCRaT

[SaFu]

Erstamal auch glückwunsch von mir :party: :party:

hab aber trotzdem mal noch fragen

Wie rufe ich dann diese funktion auf

Zitat:

function KillProcess(dwProcID, Wait: DWORD): Integer;

bei dem obigen beispiel also bei der lösung ist es ja so

Delphi-Quellcode:

  KillProcess('vncviewer.exe');

und Wie mache ich das mit dem WM_CLOSE wenn das besser ist

gruss sascha und danke nochmal für die antworten