Узнать полный путь к процессу в Vista

[abyss_by]

Необходимо ListView заполнять как список текущих процессов, выдирать иконки этих процессов, пути к ним и получать некоторую инфу о самих модулях. Всё элементарно, кроме самого главного - получить полный путь. Облазил весь форум, есть много подобных решений, но...
Пользуюсь подобным кодом:

uses TlHelp32;

function GetModulePath(PID:Cardinal):string; //Получаем путь по PID и возвращаем его как string
var SnapMod:THandle;
    ModEntry:TModuleEntry32;
    ErrorCode:Integer;
begin
  SnapMod:=CreateToolhelp32Snapshot(TH32CS_SnapModule,PID);
  if SnapMod<>Invalid_Handle_Value then
  try
    ModEntry.dwSize:=SizeOf(TModuleEntry32);
    Module32First(SnapMod,ModEntry);
    Result:=(ModEntry.szExePath);
    Module32Next(SnapMod,ModEntry);
    finally
    CloseHandle(SnapMod)
  end
    else
    begin
      ErrorCode:=GetLastError;
      case ErrorCode of
      5:Result:='Deny Access';
      87:Result:='Invalid Parameter';
    else
      Result:='Can't get list! Error No-'+IntToStr(ErrorCode)
    end;
    end;
  end;

Все почти хорошо в ХР. Почти, потому что не удается получить путь к, допустим "AVP.exe". В Vista вообще лажа, добрая половина процессов - 'Deny Access' Помогите плиз, запарило уже. Может кто подскажет куда копать хотя бы!?

[abyss_by]

Сам нашел немного получше. В ХР теперь никаких проблем - полный путь к любому процессу

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;

а с Вистой все тож самое Неужели никто не знает?

[abyss_by]

Тема закрыта, остался только интерес. В Vista фильтрую системные процессы, к которым не достучаться и в принципе не нужно отображать. Сорри за флуд.

[SheriffVRN]

спасибо большое)