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

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

Заголовок окна [D7, Win2k]


Chris ©   (2003-10-05 06:23:00) 

Как получить заголовок окна, если в наличии лишь handle процесса?
...
var SEInfo: TShellExecuteInfo;
...
ShellExecuteEx(@SEInfo);


VMcL   (2003-10-07 18:07:00) [1]

GetWindowThreadProcess IDни на что не намекает?


Chris   (2003-10-07 14:42:00) [2]

...не получается.

var H_SEProg, H_Process, H_Process2: HWnd;
H_SEProg:=GetWindow(Handle, GW_HWNDFIRST);
While H_SEProg<>0 do
begin
H_Process:=GetWindowThreadProcessID(H_SEProg,@H_Process2);
if H_Process=SEInfo.hProcess then
Break;
if H_Process2=SEInfo.hProcess then
Break;
H_SEProg:=GetWindow(H_SEProg,GW_HWNDNEXT);
end;

Где-то я сильно ошибаюсь, помогите вернуть крышу на место...


Song   (2003-10-05 09:42:00) [3]

Перебираешь окна - EnumWindows()
Для каждого находишь ID - GetWindowThreadProcessID()
Если совпадает значит оно, к нему применяешь GetWindowText()


Наверх

Титульная страница Поиск, карта сайта Написать письмо