| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как определить полное имя exe [D7, WinXP]
Pit © (2006-02-19 15:43:00)Мастера подскажите как, зная hWnd окна программы, определить полное имя exe
Pit (2006-02-19 16:33:00) [1]Большое Спасибо begin...end.
begin...end (2006-02-19 16:18:00) [2]
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
| |
