[hated8]

подскажите пожалуйста как по PID процесса узнать путь к файлу из каторого он запущен?

Нашел вот это:

function GetPathProcess(ProcessId: Cardinal): string;
var
hSnapshot: THandle;
lpme: TModuleEntry32;
begin
SetLength(Result, 0);
hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, ProcessId);
if hSnapshot = -1 then
RaiseLastWin32Error;
lpme.dwSize := SizeOf(lpme);
if Module32First(hSnapshot, lpme) then
begin
result := lpme.szExePath;
end;
end;

Но работает не для всех процессов.... Помогите плз...