Mam następujący kod:
var
PHandle, FHandle : THandle;
Process : TProcessEntry32;
Done, Next : Boolean;
EXE : String;
begin
EXE := Edit.Text;
FHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
Process.dwSize := Sizeof(Process);
Next := Process32First(FHandle,Process)...