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

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

Заголовок активного окна [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Evgeniy_K ©   (2003-12-27 10:53:00) 

Как получить заголовок активного окна?
Пробовал так:
var
 S1: LPTSTR;
begin
 Handle:= GetForegroundWindow;
 GetWindowText(Handle, S1, GetWindowTextLength(Handle));
 MainForm.edt.caption:= S1;
end;

Но некоторые окна выкидывают программу. Ошибка - нет данных.

---

Evgeniy_K   (2003-12-30 20:07:00) [1]

Огромное спасибо!!!

---

Rouse_   (2003-12-29 14:17:00) [2]

Ну Ё....

procedure TForm1.Timer1Timer(Sender: TObject);
var
 S1: LPTSTR;
 H: THandle;
 L: Cardinal;
begin
 H:= GetForegroundWindow;
 L := GetWindowTextLength(H);
 GetMem(S1, L);
 GetWindowText(H, S1, L);
 Memo1.Lines.Add(S1);
 FreeMem(S1);
end;

RTMF

Желаю успехов

---

Evgeniy_K   (2003-12-29 13:11:00) [3]

По-прежнему не работает.

 S1: LPTSTR;
begin
 Handle:= GetForegroundWindow;
 New(S1);
 GetWindowText(Handle, S1, GetWindowTextLength(Handle));
 MainForm.edt.caption:= S1;
 Dispose(S1);

---

Evgeniy_K   (2003-12-27 21:23:00) [4]

Так работает же на некоторых окнах.

---

Kerk   (2003-12-27 13:23:00) [5]

А память под буфер выделять Пушкин за тебя будет?

---

Наверх