Programm beenden

[Moyyer]

Hi Leute!
Ich bin neu und noch etwas unerfahren. Aber ich hoffe, das ich hier trotzdem richtig bin mit meinem Anliegen.

Ich will ein Programm mit einem bestimmten Namen,(blabla.exe) beenden.
Gibt es da eine bestimmte Routine?

mfg Moyyer :?:

[Wolverine]

Hi Moyyer,
ich bin zwar auch neu auf dem Gebiet aber ich glaube nicht das das so ohne weiteres geht!

Ich würde schon sagen, das man dafür das entsprechende Proggie verknüpfen muss etc.

Aber nicht verzagen hier kriegt man meistens kompetente Antworten!!! 8) :wink:

[r_kerber]

:wiejetzt: Das eigene oder ein fremdes Programm?

[Wolverine]

Zitat:

Zitat von r_kerber

:wiejetzt: Das eigene oder ein fremdes Programm?

Ich gehe mal Davon aus, das er ein fremdes Programm beenden möchte, da er folgendes geschrieben hat:

Zitat:

... Ich will ein Programm mit einem bestimmten Namen,(blabla.exe) beenden ...

Sonst hätte er wahrscheinlich "mein Programm" geschrieben.
Ich hoffe mal das ich da auch richtig liege :wink:

[r_kerber]

Hier steht ein Beispiel: p.i.c.s. Delphi-Fundgrube

[Wolverine]

Tach,
das würde jetzt ein aussenstehendes Programm schliessen richtig?

Dann sollte er sich das mal zu Gemüte führen würde ich sagen ^^

[r_kerber]

Zitat:

Zitat von horus

das würde jetzt ein aussenstehendes Programm schliessen richtig?

Korrekt. Ansonsten reicht ja ein Application.Terminate!

[Wolverine]

Da haste nu auch wieder recht :wink:

[RomanK]

Hallo und herzlich Willkommen in der Delphi-PRAXiS!!!

Du musst

Delphi-Quellcode:

{******************************************************************************} 
{**                                                                          **} 
{** ProzessID an Hand der Exe-Datei ermittlen                                **} 
{**                                                                          **} 
{******************************************************************************} 
function GetProcessID(sProcName: String): Integer; 
var 
  hProcSnap: THandle; 
  pe32: TProcessEntry32; 
begin 
  result := -1; 
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0); 
  if hProcSnap = INVALID_HANDLE_VALUE then exit; 

  pe32.dwSize := SizeOf(ProcessEntry32); 

  { wenn es geklappt hat } 
  if Process32First(hProcSnap, pe32) = true then 
    { und los geht's: Prozess suchen} 
    while Process32Next(hProcSnap, pe32) = true do 
    begin 
      if pos(sProcName, pe32.szExeFile) <> 0then 
        result := pe32.th32ProcessID; 
    end; 
end; 

{******************************************************************************} 
{**                                                                          **} 
{** Prozess beenden                                                          **} 
{**                                                                          **} 
{******************************************************************************} 
procedure KillProcess(dwProcID: DWORD); 
var 
  hProcess : Cardinal; 
  dw       : DWORD; 
begin 
  { open the process and store the process-handle } 
  hProcess := OpenProcess(SYNCHRONIZE or PROCESS_TERMINATE, False, dwProcID); 
  { kill it } 
  TerminateProcess(hProcess, 0); 
  { TerminateProcess returns immediately, so wie have to verify the result via 
    WaitfForSingleObject } 
  dw := WaitForSingleObject(hProcess, 5000); 
  case dw of 
    { everythings's all right, we killed the process } 
    WAIT_OBJECT_0: Messagebox(Application.Handle, 'Prozess wurde beendet.', 'Prozess beenden', 
      MB_ICONINFORMATION); 
    { process could not be terminated after 5 seconds } 
    WAIT_TIMEOUT: 
    begin 
      Messagebox(Application.Handle, 'Prozess konnte nicht innerhalb von 5 Sekunden beendet werden.', 
        'Prozess beenden', MB_ICONSTOP); 
      CloseHandle(hProcSnap); 
      exit; 
    end; 
    { error in calling WaitForSingleObject } 
    WAIT_FAILED: 
    begin 
      RaiseLastOSError; 
      CloseHandle(hProcSnap); 
      exit; 
    end; 
  end; 
  CloseHandle(hProcSnap); 
  { and refresh listbox contend } 
  Form1.Button1Click(Form1); 
end;

aus diesem Post von Luckie Verwenden.
UND DAS GANZE SO AUFRUFEN:

Delphi-Quellcode:

KillProcess(GetProcessID('blabla.exe'));

Es ist nicht getestet, kann auch sein dass du den ganzen Pfad übergeben musch ...

[Christian Seehase]

Moin Moyyer,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Falls das externe Programm mitspielt könnte man auch versuchen es durch das Senden von WM_CLOSE dazu zu bringen sich zu beenden.
Beipiele hierfür solltest Du hier finden können.