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

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

Путь к файлу по заголовку окна?

chernoruk ©   (2003-06-24 21:21:00) 

Скажите, пожалуйста, как узнать путь к файлу по заголовку окна?

---

Ghost   (2003-06-25 07:06:00) [1]

> chernoruk

Ясно же сказано :

GetModuleFileNameEx для энти для 9x GetModuleFileName

---

chernoruk   (2003-06-24 22:03:00) [2]

так это только под nt работает?
ведь getModuleFileNameEx только для NT
как же быть с 98?

---

Zz_   (2003-06-24 21:37:00) [3]

KirillovA (C)


function GetAppFileName (hWnd: THandle) :string;
var dPID: dWord;
hHandle: THandle;
begin
GetWindowThreadProcessId(hWnd, @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
( Result, StrLen (PChar (Result)

KirillovA (C)


function GetAppFileName (hWnd: THandle) :string;
var dPID: dWord;
hHandle: THandle;
begin
GetWindowThreadProcessId(hWnd, @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)));
end;

procedure TForm1.FormCreate(Sender: TObject);
var Handle :THandle;
begin
Handle := FindWindow (nil, "Microsoft Excel - Книга2");
Edit1.Text := GetAppFileName (Handle);
end;


GetModuleFileNameEx для энти для 9x GetModuleFileName

в юзес модуля запихать - psAPI.

---

Наверх