Заголовок активного окна

← →
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);

Ну Ё....

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]

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

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