Delphi scieżka do procesu

hello. jak w temacie

potrzebuje pobrać ścieżkę od uruchomionego procesu, na zasadzie takiej jak np w załączniku

mam funkcję która daje mi tylko nazwy procesów bez ścieżek. ma ktoś jakiś pomysł ?

 procedure GetProcesses(var aProcessList: TStringList);
      
        var
          Found: boolean;
          lSnapShot: cardinal;
          rProcess: TProcessEntry32W;
        begin
          aProcessList.BeginUpdate;
          try
            aProcessList.Clear;
            lSnapShot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
            if lSnapShot<>0 then
              begin
                rProcess.dwSize := SizeOf(rProcess);

                Found := Process32First(lSnapShot, rProcess);
                while Found do
                  begin
                    aProcessList.Add(rProcess.szExeFile);
                    Found := Process32Next(lSnapShot, rProcess);
                  end;
                CloseHandle(lSnapShot);
              end;
          finally
            aProcessList.EndUpdate;
          end;
        end;

http://stackoverflow.com/questions/6326253/get-process-path-and-name-by-processid-inconsistent-results-vb6-vba + komentarze. zakładam, że z vb do delphi umiesz przepisać kod i po angielsku rozumisz.

to jak macie gotowca do delphi to please podpowiedzcie, ja znalazłem tylko

http://code.google.com/p/omnithreadlibrary/source/browse/trunk/src/DSiWin32.pas?r=924

w lini 2835

ale nie wiem jak tego używać

ale nie wiem jak tego używać

Może po prostu dlatego bo nie umiesz pogooglować zanim spytasz?

http://msdn.microsoft.com/en-us/library/aa364980(v=vs.85).aspx

To jest zupełnie co innego.

EDIT:

HINT: "please" => (pl) "proszę". Mieszanie języków uważam za lamerskie więc bądź łaskaw tego nie robić. Dzięki.

po co tak rzeźbić, skoro są funkcje GetProcessImageFileName czy QueryFullProcessImageName?

http://gss.webd.pl/faq-mainmenu-3/5-system/70-jak-sprawdzic-jakie-pliki-exe-sa-uruchomione.html

do uses dodaj TLHelp32, Psapi;