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? :roll:

[DerHobel]

suchen mögen nicht viele leute ^^

[Luckie]

Zitat:

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. :evil:

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. :roll:

[moritz]

Zitat:

Zitat von Luckie

Zitat:

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. :evil:

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. :roll:

*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

[Luckie]

Nur das du mit dem Warten auf die Antworten mehr Zeit verloren hast, als mit einer 30 sekündigen Suche im Forum. Desweiteren muss ja nicht alles doppelt und dreifach im Forum stehen. ;)

[bjacke]

Hallo ich habe zum declarieren dieser Procedurenen ein Frage.Ich bin noch relativ unerfahren mit Delphi, deshalb würde ich gerene wissen, wie die function und procedure declariert werden.

Aufgerufen wird doch z.B. mit

Delphi-Quellcode:

 GetProcessID('ghdfg.exe')

:?:

Kann man damit auch ini's beenden?

[mirage228]

Zitat:

Zitat von bjacke

Hallo ich habe zum declarieren dieser Procedurenen ein Frage.Ich bin noch relativ unerfahren mit Delphi, deshalb würde ich gerene wissen, wie die function und procedure declariert werden.

Aufgerufen wird doch z.B. mit

Delphi-Quellcode:

 GetProcessID('ghdfg.exe')

:?:

Kann man damit auch ini's beenden?

Wenn du das Programm (bzw. dessen EXE-Dateinamen) kennst, welches die INI-Datei(en) geöffnet hat ;)

mfG
mirage228

[bjacke]

Zitat:

Zitat von mirage228

Wenn du das Programm (bzw. dessen EXE-Dateinamen) kennst, welches die INI-Datei(en) geöffnet hat ;)

mfG
mirage228

Das ist schon klar ;-), aber ich bekomme die Meldung,dass GetProcessID ein unbekannter Identifier ist. Deshalb wollte ich wissen,ob ich was bei privat/public declarieren muss und wenn ja :oops: wie, denn ich bekomme immer Fehlermeldungen.

[w3seek]

Zitat:

Zitat von bjacke

Kann man damit auch ini's beenden?

wenn du mir sagst wie man ini dateien ausfuehren kannst, gerne :roll:

[bjacke]

Zitat:

Zitat von w3seek

Zitat:

Zitat von bjacke

Kann man damit auch ini's beenden?

wenn du mir sagst wie man ini dateien ausfuehren kannst, gerne :roll:

Na oky du hast mich! Die werden im Notepad ausgeführt, aber kann ich nicht nur ein bestimmtes Notepad beenden, indem eine beliebte ini ausgeführt wird?

Ich dachte, das funkst vielleicht über die Process IP?!