var lppe: TProcessEntry32; //uses TlHelp32 found: boolean; Hand: THandle; begin mmo1.Clear; Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0); found := Process32First(Hand, lppe); while found do begin mmo1.Lines.Add(StrPas(lppe.szExeFile)); found := Process32Next(Hand, lppe); end; end;