Scieżka do procesu

Mam procedurę wyświetlającą uruchomione procesy:

function ListaPlikow:TStringList;
var
  Uchwyt:tHandle;
  Proces:tProcessEntry32;
begin
try
  Uchwyt:=CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);
  Proces.dwSize:=SizeOf(Proces);
  Result:=TStringList.Create;
  if Integer(Process32First(Uchwyt,Proces))<>0 then
  repeat
    Result.Append(Proces.szExeFile);

  until Integer(Process32Next(Uchwyt,Proces))=0;
  closehandle(Uchwyt);
except
end;
end;

Da się ją jakoś przerobić, żeby pokazywała ścieżkę procesu??

dwa wątki niżej masz odpowiedź. http://4programmers.net/Forum/viewtopic.php?id=130574