Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874541 Thu, 25 Aug 2022 06:24:00 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874541 Цитата Krid @
во втором случае ты передаёшь в GetProcessImageFileName первым параметром PID, а надо handle.

Благодарю! С дескриптором работает!

macomics, ЫукпШ, благодарю! Этот вариант тоже работает как надо!

Вопрос решен!]]> SilverShield Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874480 Tue, 23 Aug 2022 18:21:34 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874480 Цитата ЫукпШ @
Надо установить поле e.dwSize = sizeof( PROCESSENTRY32 )

Спасибо, что уточнили. По памяти написал функцию - мой недочет.

Рабочий вариант:
    function GetModuleNameByPID(PID: Integer): String;
    var
       h: THANDLE;
       e: TPROCESSENTRY32;
    begin
       Result := '<not found>';
       h := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
       if h <> INVALID_HANDLE_VALUE then
       begin
          e.dwSize := SizeOf(TPROCESSENTRY32);
          if Process32First(h, e) then repeat
             if e.th32ProcessID = PID then begin
                Result := copy(e.szExeFile, Length(e.szExeFile));
                break;
             end;
          until not Process32Next(h, e);
          CloseHandle(h);
       end;
    end;
]]> macomics Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874479 Tue, 23 Aug 2022 18:15:59 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874479 Цитата SilverShield @
if Process32First(h, e) then repeat
Process32First возвращает false.

Надо установить поле e.dwSize = sizeof( PROCESSENTRY32 )
Taking a Snapshot and Viewing Processes]]> ЫукпШ Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874476 Tue, 23 Aug 2022 16:22:38 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874476 SilverShield, во втором случае ты передаёшь в GetProcessImageFileName первым параметром PID, а надо handle. Т.е. тебе нужно сначала открыть процесс (как в первом случае) и полученный дескриптор передать в эту ф-цию.
Но в любом случае, чтобы получать имена всех (почти) процессов, твоя прога должна быть запущена с правами админа.]]> Krid Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874450 Tue, 23 Aug 2022 11:15:45 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874450 macomics Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874447 Tue, 23 Aug 2022 11:12:14 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874447 Цитата macomics @

к сожалению, аналогично. Уточню, что выполняю приложение на Вин 7 х64. Использование дальнейшее предполагается на Win 10-11]]> SilverShield Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874444 Tue, 23 Aug 2022 10:39:15 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874444 macomics Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874443 Tue, 23 Aug 2022 09:54:28 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874443 if Process32First(h, e) then repeat
Process32First возвращает false.]]> SilverShield Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874433 Tue, 23 Aug 2022 08:54:14 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874433
    function GetModuleNameByPID(PID: Integer): String;
    var
       h: THANDLE;
       e: TPROCESSENTRY32;
    begin
       Result := '<not found>';
       h := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
       if h <> INVALID_HANDLE_VALUE then
       begin
          if Process32First(h, e) then repeat
             if e.th32ProcessID = PID then begin
                Result := copy(e.szExeFile, Length(e.szExeFile));
                break;
             end;
          until not Process32Next(h, e);
          CloseHandle(h);
       end;
    end;
]]> macomics Delphi: Система, Windows API https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874432 Tue, 23 Aug 2022 08:41:07 +0000 Получение имени процесса по PID https://forum.sources.ru/index.php?showtopic=429357&view=findpost&p=3874432 Нашел несколько вариантов как это сделать:
1). сделать OpenProcess, а дальше GetModuleFileNameEx
2). использовать GetProcessImageFileName

Первый вариант работает для обычных приложений, но при попытке получить имя процесса браузера (Chrome, например), получаю ошибку:
System error. Code: 299. Запрос ReadProcessMemory или WriteProcessMemory был выполнен только частично.

Код как получаю:
    var
      AppPath: String;
      WinH: THandle;
      PrId: Cardinal;
      hProcess: THandle;
      path: array[0..MAX_PATH - 1] of char;
      cProcName:array[0..MAX_PATH] of Char;
    begin
      WinH:= GetForegroundWindow;
      GetWindowThreadProcessID(WinH, @PrId);
     
     
      hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, false, PrID);
      if hProcess <> 0 then
        try
          if GetModuleFileNameEx(hProcess, 0, path, MAX_PATH) = 0 then
            RaiseLastOSError;
          AppPath := path;
          Edit5.Text:= AppPath;
        finally
          CloseHandle(hProcess)
        end
      else
        RaiseLastOSError;


Что касается второго способа, то для него пришлось объявить:
    function GetProcessImageFileName(hProcess:THandle; lpImageFileName:LPTSTR; nSize:DWORD):DWORD; stdcall;
     external 'PSAPI.dll' name 'GetProcessImageFileNameW';


И использование:
    if GetProcessImageFileName(PrId,@cProcName,MAX_PATH) <> 0 then //SizeOf(cProcName));
      begin
        AppPath := cProcName;
        Edit6.Text:= AppPath;
      end else showmessage(SysErrorMessage(GetLastError()));


Но возвращает функция всегда 0. Сообщение об ошибке "Неверный дескриптор".

В обоих случаях не могу сообразить, как исправить положение ((

Мне нужно починить любой из способов, который сможет выдавать имя процесса для любого из приложений, в том числе браузеров. Буду благодарен совету по сути вопроса.]]> SilverShield Delphi: Система, Windows API