Sciezka uruchomionego procesu

Witam,
Ma ktos funkcje , ktora pokazywala by mi sciezke aktualnie wlaczonego processu?
Przeszukalem caly internet, ale nic nie moglem znaleŹĆ.
Pozdrawiam.

uses Psapi;

procedure TForm1.Button1Click(Sender: TObject);
var
  procID, procHandle: Cardinal;
  szBuff: string;
  iLength: Integer;
begin
  procID:= GetCurrentProcessID; //tu podstaw ID procesu
  procHandle:= OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, procID);
  //cyba że juz masz uchwyt to podstaw do zmiennej procHandle
  if (procHandle > 0) then
  begin
    SetLength(szBuff, MAX_PATH);
    iLength:= GetModuleFileNameEx(procHandle, 0, PAnsiChar(szBuff), MAX_PATH);
    CloseHandle(procHandle);
    if iLength > 0 then
    begin
      SetLength(szBuff, iLength);
      ShowMessage(szBuff);
    end
    else
      ShowMessage('blad!');
  end;
end;

Dzięki!