在Delphi中用ListBox显示进程列表以及取得指定进程的EXE路径的代码,大家在uses中加入TLHelp32,PsAPI;

//ListBox显示进程列表

procedure TForm1.Button1Click(Sender: TObject);
var lppe: TProcessEntry32;
  found : boolean;
  Hand : THandle;
  P:DWORD;
  s:string;
begin
ListBox1.Items.Clear ;
Hand := CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
found := Process32First(Hand,lppe);
while found do
begin
  s := StrPas(lppe.szExeFile);
  if lppe.th32ProcessID>0 then
    p := lppe.th32ProcessID
  else
    p := 0;
  ListBox1.Items.AddObject(s,pointer(p));//列出所有进程。
  found := Process32Next(Hand,lppe);
end;
end;

//取得进程EXE路径

procedure TForm1.Button2Click(Sender: TObject); //uses PSAPI;
var
h:THandle; fileName:string; iLen:integer; hMod:HMODULE;cbNeeded,p:DWORD;
begin
p :=DWORD(ListBox1.Items.Objects[ListBox1.itemindex]);
h := OpenProcess(PROCESS_ALL_ACCESS, false, p);     //p 为 进程ID
if h > 0 then
begin
  if EnumProcessModules( h, @hMod, sizeof(hMod), cbNeeded) then
  begin
    SetLength(fileName, MAX_PATH);
    iLen := GetModuleFileNameEx(h, hMod, PCHAR(fileName), MAX_PATH);
    if iLen <> 0 then
    begin
      SetLength(fileName, StrLen(PCHAR(fileName)));
      ShowMessage(fileName);
    end;
  end;
  CloseHandle(h);
end;
end;

运行效果: