Текущий архив: 2006.03.26;
Скачать: CL | DM;
Вниз
Как определить полное имя exe Найти похожие ветки
← →
Pit © (2006-02-19 15:43) [0]Мастера подскажите как, зная hWnd окна программы, определить полное имя exe
← →
begin...end © (2006-02-19 16:18) [1]
var
WindowHandle, ProcessHandle: THandle;
ProcessId: Cardinal;
ExePath: array [0..MAX_PATH] of Char;
begin
GetWindowThreadProcessId(WindowHandle, ProcessId);
ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, ProcessId);
if ProcessHandle <> 0 then
try
if GetModuleFileNameEx(ProcessHandle, 0, ExePath, sizeof(ExePath)) <> 0 then
ShowMessage(ExePath);
finally
CloseHandle(ProcessHandle)
end
end
← →
Pit © (2006-02-19 16:33) [2]Большое Спасибо begin...end.
Страницы: 1 вся ветка
Текущий архив: 2006.03.26;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.046 c
