学步园

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