hiermit ließt du alle aktuellen laufenden prozesse heraus
Delphi-Quellcode:
uses TLHelp32;
procedure ListProcesses;
var
ProcessEntry: TProcessEntry32;
h: THandle;
begin
h := CreateToolHelp32SnapShot(TH32CS_SNAPALL, 0);
ProcessEntry.dwSize := sizeof(TProcessEntry32);
Process32First(h, ProcessEntry);
repeat
frmMain.Memo1.Lines.Add(String(ProcessEntry.szExeFile));
until Process32Next(h, ProcessEntry) = False;
CloseHandle(h);
end;