Путь к dll

[ackiii]

Народ подскажите пожалуйста можно ли с помощью id потока определить путь к dll?

[raxp]

в принципе можно...если не скрыт поток, но методами NativeAPI можно и скрытый поймать...

вообще использую для поиска пути запущенных exe, но имхо для explorer-а показывает dll (normaliz.dll)
итак, подрубаете в uses - tlhelp32, вводите тип TMArray = array of TModuleEntry32:

function GetModulesListByProcessId(ProcessId:Cardinal): TModuleArray;
var hSnapshot: THandle;
    lpme: TModuleEntry32;

 procedure AddToList;
 begin
  SetLength(Result,High(Result)+2);
  Result[high(Result)]:=lpme;
 end;

begin
 SetLength(Result,0);
 hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPMODULE,ProcessId);
 //if hSnapshot=-1 then RaiseLastWin32Error; // нафиг
 lpme.dwSize:=SizeOf(lpme);
 if Module32First(hSnapshot,lpme) then
  begin
   AddToList;
   while Module32Next(hSnapshot,lpme) do
   AddToList;
  end;
end;

function get_path(pid: cardinal):string;
var i:integer;
    marr: TMArray;
begin
 marr:= GetModulesListByProcessId(Pid);
 result:='Null';
 for i:=0 to High(marr) do
  begin
   if Integer(marr[i].modBaseAddr)=$400000 then begin
    result:= marr[i].szExePath; // ТО ЧТО МЫ ИЩЕМ
    break;
   end;
  end
end;

ИСПОЛЬЗОВАНИЕ...
// находим пути запущенных по PID
get_path(ProcessId);

[ackiii]

спасибо добрый человек. попробую

[ackiii]

raxp у меня прога выдает тока путь к самой себе, а к другим пишет Null