Форум: "Система";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Evgeniy_K   (2003-12-27 10:53) [0]

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

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

---

← →
Kerk ©   (2003-12-27 13:23) [1]

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

---

← →
Evgeniy_K   (2003-12-27 21:23) [2]

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

---

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

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

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

---

← →
Rouse_ ©   (2003-12-29 14:17) [4]

Ну Ё....

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-30 20:07) [5]

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

---

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

Форум: "Система";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.142 c