Duda sobre procesos en delphi

[Suriu]

Hola foro, quisiera que alguien me diera una luz de como puedo saber la direccion de donde se ejecuta un proceso cualquiera.
Gracias de antemano por la ayuda que me puedan dar....

[[egostar]]

Empezado por Suriu

Hola foro, quisiera que alguien me diera una luz de como puedo saber la direccion de donde se ejecuta un proceso cualquiera.
Gracias de antemano por la ayuda que me puedan dar....

Hola Suriu, podrias ser mas claro con tu pregunta?, no te limites en cuanto espacio, de esa forma tendrás una mejor respuesta.

Salud OS

[Suriu]

Empezado por egostar

Hola Suriu, podrias ser mas claro con tu pregunta?, no te limites en cuanto espacio, de esa forma tendrás una mejor respuesta.

Salud OS

Mira egostar, a lo que me refiero es a que por ejemplo digamos que tenemos un programa que cada sierto tiempo me obtenga una lista de los programas en ejecucion, Digamos por ejemplo el winlogon, lo que yo quisiaras es que de alguna forma poder obtener la direccion(o Path) desde donde se esta ejecontando en este caso el winlogon(Ejmp. C:\windows\system32\winlogon.exe) porque hasta ahora solo me devuelve el exe(winlogon.exe). Espero que halla quedado vien claro.
Gacias de antemano por la ayuda que me puedan dar.....

[[seoane]]

Empezado por Suriu

Espero que halla quedado vien claro

Como el agua

Pero tambien dices:

Empezado por Suriu

... porque hasta ahora solo me devuelve el exe

Lo que me lleva a pensar que ya tienes un codigo para hacer lo que quieres pero que no te devuleve exactamente lo que necesitas, si es asi porque no lo colocas por aqui y entre todos buscamos donde esta el fallo.

[[cHackAll]]

Código Delphi [-]
uses TlHelp32;
 
function GetProcessImageFileName(dwProcessId: Cardinal): string overload;
var
 hSnapshot: Integer;
 ModuleEntry: TModuleEntry32;
begin
// Result := '';
 hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, dwProcessId);
 if hSnapshot <> -1 then
  begin
   if Module32First(hSnapshot, ModuleEntry) then
    Result := ModuleEntry.szExePath;
   CloseHandle(hSnapshot);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowMessage(GetProcessImageFileName(666));
end;

[Suriu]

hola cHackAll acavo de provar tu ejemplo y funciona perfectamente aunque en algunos procesos como el "Session Manager Subsystem(smss.exe)" cuando tratas de obtener la ruta del exe te devuelve el Path combinado com las variables del systema (\SystemRoot\System32\smss.exe) pero no importa asi me sirve y en todo caso ya me las arreglare para corregir esto, de todos modos muchas gracias por tu ayuda.