mittels TModuleEntry32 kannst du den Pfad auslesen (erstes Modul ist immer die *.exe Datei)
Delphi-Quellcode:
uses TlHelp32;
const
ProcessId = 1684;
var
ModuleEntry: TModuleEntry32;
hModuleEntry: THandle;
sPfad: String;
begin
hModuleEntry := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE, ProcessId);
ModuleEntry.dwSize := SizeOf(TModuleEntry32);
Module32First(hModuleEntry, ModuleEntry);
sPfad := ModuleEntry.szExePath;
CloseHandle(hModuleEntry);