Вниз
Скачать: CL | DM;

Как получить полное имя запущенного файла если известен только PI   Найти похожие ветки 

← →
Roughneck   (2005-09-30 07:51) [0]

Нужно получить полное имя файла по известному PID


← →
Игорь Шевченко ©   (2005-09-30 11:10) [1]

Начиная с WinXP в psapi появилась функция GetProcessImageFileName.

function GetProcessImageFileName (hProcess: THandle; lpImageFileName: PChar;
 nSize: DWORD): DWORD; stdcall; extrenal "psapi.dll" name "GetProcessImageFileNameA";


← →
alpet ©   (2005-09-30 11:16) [2]

1. создай список процессов, например средствами ToolHelp API (unit Tlhelp32)
2. Ищи в нем искомый процесс


← →
BiN ©   (2005-09-30 11:18) [3]

The GetModuleFileNameEx function retrieves the fully qualified path for the specified module.

(С) msdn


← →
BiN ©   (2005-09-30 11:20) [4]

alpet ©   (30.09.05 11:16) [2]

1. создай список процессов, например средствами ToolHelp API (unit Tlhelp32)
2. Ищи в нем искомый процесс


В NT этого недостаточно для получения полного пути.


← →
alpet ©   (2005-09-30 18:08) [5]

BiN ©   (30.09.05 11:20) [4]

У меня получается полный путь, правда не для всех процессов (кроме системных).

uses windows, messages, TlHelp32;

function FindProcess (pid: DWORD): String;
var
   pe: TProcessEntry32;
   me: TModuleEntry32;
  h: THandle;
begin
result := "";
h := CreateToolHelp32Snapshot (TH32CS_SNAPPROCESS, 0);
pe.dwSize := SizeOf (pe);
if Process32First (h, pe) then
  repeat
   if pid = pe.th32ProcessID then
    begin
     me.dwSize := sizeof (me);
     CloseHandle (h);
     h := CreateToolHelp32Snapshot (TH32CS_SNAPMODULE, pid);
     Module32First (h, me);
     result := me.szExePath;
     break;
    end;
  until not Process32Next (h, pe);
CloseHandle (h);
end; // FindProcess

...


← →
Roughneck   (2005-10-03 11:25) [6]

Всем спасибо. Этого достаточно.


← →
BiN ©   (2005-10-03 11:37) [7]

alpet ©   (30.09.05 18:08) [5]

Хм, точно.
Как-то упустил возможность использования  Module32First для получения сабжа.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
4-1128415767
AngelFire
2005-10-04 12:49
2005.12.04
Перехват ввода


2-1132036191
EgorovAlex
2005-11-15 09:29
2005.12.04
Почему возникает исключение? Использую такую конструкцию:


2-1132337136
Crash123
2005-11-18 21:05
2005.12.04
Кодировка файла в текст


2-1132480106
Сергей_1
2005-11-20 12:48
2005.12.04
COM-порт управление сигналами RX и TX


3-1129816653
KorvinOE
2005-10-20 17:57
2005.12.04
Перетаскивание записей между DBGrid




   Наверх