[Redddd]

Хочу узнать полное имя и директорию файла, который запустил процесс.
Делаю так:

Код:

var
  buffer: array[0..260] of Char;
  FileName : string;
   hp:integer;
  ProcessId: Dword;
begin
 h:=FindWindow(nil,name);
 GetWindowThreadProcessId(h,ProcessId);
 hp:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);// hp- хэндл процесса,
 SetString( FileName, buffer, GetModuleFileName(hp,buffer,SizeOf(buffer)) );

Результат - пустой и FileName и hp . Хде ошибка?

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

Используй NtQuerySystemInformation.

[Alegun]

Сообщение от Redddd

... Хде ошибка?

А разве не так должна выглядеть последняя строчка? :

Код:

SetLength(FileName, GetModuleFileName(hp, pchar(FileName), 128);

[Redddd]

Сообщение от Alegun

А разве не так должна выглядеть последняя строчка? :

Код:

SetLength(FileName, GetModuleFileName(hp, pchar(FileName), 128);

hp пустое все-равно

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

смотри мой предыдущий пост.

Читаем МСДН, GetModuleFileNameEx

[Redddd]

Получилось так:

Код:

var
  dPID: dWord;
  hHandle,hWnd: THandle;
  Result:String;
begin
  hWnd:=FindWindow(nil,'Wasppacer');
  GetWindowThreadProcessId(hWnd, @dPID);
  SetLength (Result, MAX_PATH);
  hHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, True, dPID);
  if GetModuleFileNameEx (hHandle, 0, PChar (Result), MAX_PATH) > 0 then
    SetLength (Result, StrLen (PChar (Result)));

Может пригодится кому.