Lista procesow

Witam, chcialbym pobrac z systemu liste procesow, ale zeby do kazdego procesu byla podana dokladna ścieżka... np c:\windows\system32\calc.exe

mam taki kod:

procedure ProcessList();
var
  _HWND : THandle;
  Proc : TProcessEntry32;
begin
  _HWND := CreateToolHelp32SnapShot(TH32CS_SNAPALL,0);

  if Integer(Process32First(_HWND, Proc)) <> 0 then
  repeat

    Form1.Memo1.Lines.Add(Proc.szExeFile);

  until Integer(Process32Next(_HWND, Proc)) = 0;

  CloseHandle(_HWND);
end;

lecz on niestety pobiera same nazwy procesow bez pelnych sciezek. Pozdrawiam i czekam na odpowiedz :)

Patrz tutaj