Prozess beenden

[Masterof]

Hallo!!

Wie kann ich einen Prozess beenden, dessen Name vorher über ein Editfeld eingegeben wird?

MfG Master

[DerHobel]

möchtest du eine programm beenden wie zb icq oder möchtest du einen prozess in deinem programm beenden ?

[Luckie]

Prozess. Das nächste mal bitte etwas Eigeninitiative entwickeln.

[Masterof]

Hallo!!

Ich würde gern ein Programm beenden!

MfG Master

[DerHobel]

so schaut das aus :


uses tlhelp32 nicht vergessen ;D

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; 
CloseHandle(hProcSnap); 
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(hProcess);
      exit;
    end;
    { error in calling WaitForSingleObject }
    WAIT_FAILED:
    begin
      RaiseLastOSError;
      CloseHandle(hProcess);
      exit; 
    end;
  end;
  CloseHandle(hProcess);
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    KillProcess(GetProcessID(edit1.text)); // in edit1 muss zb icq.exe stehen
end;

[Luckie]

Warum postest du jetzt was ich schon in der Codelib stehen habe?

[DerHobel]

suchen mögen nicht viele leute ^^

[Luckie]

Zitat von DerHobel:

suchen mögen nicht viele leute ^^

Also das ist ja wohl die Höhe. Er musste sich noch nicht mal die Mühe machen den Suchbegriff einzutippen.

Und ich wundere mich, warum kaum noch jemand in der Lage zu sein scheint ein Problem eigenständig zu lösen, wenn er jedes mal alles in den Popo geschoben bekommt.

[moritz]

Zitat von Luckie:

Zitat von DerHobel:

suchen mögen nicht viele leute ^^

Also das ist ja wohl die Höhe. Er musste sich noch nicht mal die Mühe machen den Suchbegriff einzutippen.

Und ich wundere mich, warum kaum noch jemand in der Lage zu sein scheint ein Problem eigenständig zu lösen, wenn er jedes mal alles in den Popo geschoben bekommt.

*zustimmend nick*

Es tauch sowohl hier als auch im DF in letzter Zeit sehr viele Fragen auf, die sich durch eine kleine Suche bei Google bzw. im Archiv von selber lösen würden.

Gruß

[Masterof]

Richtet doch ein Diskussionsforum ein,ich hatte es eilig. Deshalb habe ich die Fraege so formuliert.
Entschuldigung ich habe hier wohl einige Perfektionisten angetroffen, ihr könnt wohl alles.

Master