var
  HSnap:THandle;
  PE:TProcessEntry32;
  Exename:string;
begin
  listbox1.Items.Clear;
//  if HSnap>0 then CloseHandle(HSnap);
  HSnap:=CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS,0);
  PE.dwSize :=SizeOf(TProcessEntry32);
  if HSnap=-1 then Exit;
  if process32First(HSnap,PE) then
    repeat      Exename:=PE.szExeFile;
      listbox1.Items.add(ExeName);
    until not Process32Next(HSnap,PE);end;列出的只有进程的文件名而无路径,如“winwps.exe","QQ.exe"
要如何才能得到包含路径的文件名??