Abfragen ob ein Prozess läuft

[Baeuerle]

Hi,

mit dieser procedure kannst du die Prozesse aktiven auflisten:

Delphi-Quellcode:

procedure ListProcess(lb: TListbox);
var hProcSnap: THandle;
    pe32: TProcessEntry32;
begin
hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
if hProcSnap = INVALID_HANDLE_VALUE then exit;
pe32.dwSize := SizeOf(ProcessEntry32);
if Process32First(hProcSnap, pe32) = true then
 while Process32Next(hProcSnap, pe32) = true do
  begin
  // Prozess hinzufügen
  lb.Items.Add(pe32.szExeFile);
  end;
CloseHandle(hProcSnap);
end;