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

Вниз

Заголовок активного окна   Найти похожие ветки 

← →
Engy ©   (2005-01-22 20:07) [0]

Как узнать хэндл и заголовок текущего активного окна(необязательно своего)?

---

← →
begin...end ©   (2005-01-22 20:15) [1]

> Engy ©   (22.01.05 20:07)

GetForegroundWindow, GetWindowText

---

← →
Dextor   (2005-01-22 20:27) [2]

ВОТ ТАК:

procedure GetActiveWindow;
var
Wnd: Hwnd;
TextLength: integer;
szText: Pointer;
begin
Wnd := GetForegroundWindow;
TextLength := SendMessage(Wnd, WM_GETTEXTLENGTH, 0, 0);
GetMem(szText, TextLength + 1);
try
 SendMessage(Wnd, WM_GETTEXT, TextLength + 1, Integer(szText));
 Ot := StrPas(szText);
finally
 FreeMem(szText);
end;
end;

---

← →
DDA ©   (2005-01-23 12:01) [3]

А может кто-нибудь подскажет как узнать иконку активного окна

---

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

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

Наверх

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