Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.019 c
1-81667
Mishenka
2003-08-11 21:40
2003.08.25
Символ акселератор в меню...


14-81892
Viktor Kushnir
2003-08-08 09:55
2003.08.25
Кладовка


6-81859
Andrey Klimov
2003-06-17 19:25
2003.08.25
POP3 Proxy (Gateway, Relay...)


1-81620
segor
2003-08-12 23:27
2003.08.25
В StringGrid необходимо удолить строку, но при этом, данные, нахо


1-81786
Zorik
2003-08-14 10:13
2003.08.25
как отобразить поверхность