| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как по хендлу окна получить путь к екзешнику [D7, WinXP]

Reanimator ©   (2003-11-30 23:28:00) 

Народ, помогите! Имеем хендл окна, надо получить путь к exe файлу которому это окно пренадлежит.
Порылся тут в поиске и нашол такой код

uses tlHelp32;
function GetFilePath(const WinH: THandle): String;
var
SnapshotH: THandle;
PE32: TProcessEntry32;
PrId: Cardinal;
begin
Result := "";
SnapshotH := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
if SnapshotH = -1 then Exit;
PE32.dwSize := SizeOf(PE32);
GetWindowThreadProcessID(WinH, PrId);
if Process32First(SnapshotH, PE32) then
repeat
if PE32.th32ProcessID = PrId then
begin
Result := PE32.szExeFile;
Break;
end;
until not Process32Next(SnapshotH, PE32);
CloseHandle(SnapshotH)
end;
Но он возвращает только имя екзешника, а мне надо полный путь.
Также наткнулся на такой код

function GetWinPath(wnd:hwnd):String;
var s: array[0..MAX_PATH]of char;
begin
fillchar(s, sizeof(s), #0);
GetWindowModuleFileName(wnd, s, sizeof(s));
GetWinPath:=s;
end;
Но он возвращает путь только к окну моей програмы, к любому другому возвращает пустую строку.

Дайте дельный совет плиз. Подскажите как решить траблу.

---

Xtz   (2003-12-03 00:25:00) [1]

Сори за то что пропагандирую свою модулю, но всетаки смори в кладовке модуль ExApi а если в лом качать то вот те код оттуда работает стопудова показывает полный путь И имя файла вот:

<Code/>
Function ExGetFileName(Handle:Thandle):String;
var dPID: dWord;
hHandle: THandle;
begin
GetWindowThreadProcessId(Handle,@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)));
closehandle(hHandle);
end;

кстати в орешнике мой вопрос :))

---

имя   (2003-12-01 12:08:00) [2]

Удалено модератором

---

Reanimator   (2003-12-01 11:47:00) [3]

Спасибо все работает.

---

ZrenBy   (2003-12-01 11:36:00) [4]

http://www.sql.ru/forum/actualthread.aspx?bid=20&tid=34446

---

Reanimator   (2003-12-01 11:33:00) [5]

Dimaxx © (01.12.03 01:37)
//GetModuleFilename
с ним таже трабла что и GetWindowModuleFileName

---

Dimaxx   (2003-12-01 01:37:00) [6]

GetModuleFilename

---

Reanimator   (2003-11-30 23:58:00) [7]

2 fuf
Да, я его уже читал.
А что нибуть более толковое сказать можеш?

---

fuf   (2003-11-30 23:46:00) [8]

Такой вопрос есть в орешнике...

---

Наверх