2k下也可以用的：<br>uses<br> TlHelp32;<br><br>var<br> hSnapshot: THandle;<br> ProcessEntry: TProcessEntry32;<br>begin<br> Result := False;<br> hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);<br> ProcessEntry.dwSize := SizeOf(ProcessEntry); //Bug fix<br> Process32First(hSnapshot, ProcessEntry);<br> while Process32Next(hSnapshot, ProcessEntry) do<br> Memo1.Lines.Add(ProcessEntry.szExeFile);<br> CloseHandle(hSnapshot);<br>end;<br>
