Текущий архив: 2003.08.25;
Скачать: CL | DM;

Вниз

Путь к файлу по заголовку окна?   Найти похожие ветки 

← →
chernoruk ©   (2003-06-24 21:21) [0]

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

---

← →
Zz_   (2003-06-24 21:37) [1]

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.

---

← →
chernoruk ©   (2003-06-24 22:03) [2]

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

---

← →
Ghost ©   (2003-06-25 07:06) [3]

> chernoruk

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

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

---

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

Текущий архив: 2003.08.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.024 c