[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;

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

[dr. F.I.N.]

Учитесь искать на просторах интернета:

Сообщение от с какого-то сайта...

Код:

uses tlhelp32, Psapi;

с помощью функции

function GetModulePath(PID: DWord): string;
var
cb: DWORD;
I: Integer;
ProcCount: Integer;
hMod: HMODULE;
hProcess: THandle;
PIDArray: array [0..1023] of DWORD;
ModuleName: array [0..300] of Char;

begin
FillChar(ModuleName, SizeOf(ModuleName), #0);
EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
ProcCount := cb div SizeOf(DWORD);
for I := 0 to ProcCount - 1 do
begin
hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
False, PIDArray[i]);
if (hProcess <> 0) then
begin
EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
GetModuleFilenameEx(hProcess, hMod, ModuleName, SizeOf(ModuleName));
if PID = PIDArray[i] then
Result:= ModuleName;
CloseHandle(hProcess);
end;
end;

end;

возможны проблемы с вистой! в xp все OK.

Вот тут еще гляньте

[hated8]

Эта получше, но тоже не для всех процессов работает!
ну и по закону подлости, как раз для необходимых мне и не пашет...(

На winServer2003 для всех работает, а для нескольких нет!, но ведь при пользовании програмкой ProcessExplorer я вижу пути для всех!

Сделайте пробег по всем айдишникам и вы сами увидите что процедурка работает процентов на 40....!

[hated8]

ХОТЯ НЕТ!
СТОП! НАГЛО ВРУ!!!

На ХР все ОК!

А вот на winServ.... Не подскажете в чём может быть проблемма?

[M.A.D.M.A.N.]

Process Explorer вызывает функцию GetNativeSystemInfo. Дизассемблер в руки вперед изучать принцип работы софтины.

[M.A.D.M.A.N.]

GetNativeSystemInfo вызывает функцию из ntdll NtQuerySystemInformation описалово есть на МСДН, там в структурах должен быть ImagePath

[hated8]

Не совсем понял....
А как это реализовать на Делфи?