转贴：<br><br>得到当前Win95下，已执行的所有应用程序的文件名<br>(注意uses TLHelp32）<br>procedure TForm1.Button1Click(Sender: TObject);<br>var lppe: TProcessEntry32; <br> found : boolean; <br> Hand : THandle;<br>begin<br> Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);<br> found := Process32First(Hand,lppe);<br> while found do <br> begin<br> ListBox1.Items.Add(StrPas(lppe.szExeFile));<br> found := Process32Next(Hand,lppe); <br> end;<br>end;
