[TOJluK]

Может трохи криво, но...

Получаем ID процесса по имени файла:

Код:

Function getProcessId(Exename:string):Dword;
var snap:DWORD;
pe:TprocessEntry32;
begin
result:=0;
snap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if snap <>INVALID_HANDLE_VALUE then begin
pe.dwSize:=sizeof(TPROCESSENTRY32);
if process32First(snap,pe) then
repeat
if pe.szExeFile=exename then begin
result:=pe.th32ProcessID;
closehandle(snap);
exit;
end;
until not process32Next(snap,pe);
closehandle(snap);
result:=0;
end;
end;

Получаем путь по ID:

Код:

function GetProcessPath(ProcessId: DWORD; var Path:string): boolean;
var
ph: THandle;
FileName: array[0..MAX_PATH-1] of Char;
begin
Result := false;
ph := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, 
False,ProcessId);
if ph <> 0 then
try
if GetModuleFileNameEx(ph,0,FileName,SizeOf(FileName)) > 0 then
begin
Path := ExtractFilePath(FileName);
result := true;
end;
finally
CloseHandle(ph);
end;
end;