Prozesse wie bekomme ich raus ob ein Prozess läuft

[Digielm]

Hallo

Mal ne Frage

Wie bekomme ich raus ob ein Prozess läuft ??

[nahpets]

Hallo,

schau mal, ob Dir der weiter hilft: http://www.delphipraxis.net/internal...ct.php?t=39617
oder eventuell auch der: http://www.delphipraxis.net/internal...t.php?p=211226

[Digielm]

Hab ich schon gefunden.

brauch jetzt noch die Möglichkeit nen Prozess zu killen

[Der.Kaktus]

Hallo,

schau mal hier -->Enumprocesses

P.S.: naechste mal erst hier prozesse anzeigen suchen ! ;-)

[Edit] Roter Kasten[/Edit]

[mkinzler]

Schau dir mal die Jedi Windows Security Library an

[SirThornberry]

Kannst du für dein neues Problem (Prozess killen) bitte ein neuen Thema aufmachen sofern du über du Suche nichts findest? Danke :)

[mholup]

Hallo,

hier zwei Möglichkeiten nen Prozess zu beenden:

1:

Delphi-Quellcode:

function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
begin
  Result := false;
  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result := TerminateProcess(OpenProcess(Process_Terminate,
                                                 false,
                                                 p.th32ProcessID),
                                     0);
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;

2:

Delphi-Quellcode:

Function KillProcess(PID: Integer): Boolean;
//Funktion, stark modifiziert, kopiert von Michael Puff's Sysinfo
//war zu faul die selbst nachzuschlagen ;)
var
  hProcess     : Cardinal;
begin
  { open the process and store the process-handle }
  hProcess:= OpenProcess(PROCESS_ALL_ACCESS, False, PID);
  if(hProcess<>0) then
    { kill it }
    if(TerminateProcess(hProcess,0)) then result:=true else result:=false
  else
    Result:=false;
closehandle(hProcess);
end;