Текущий архив: 2004.03.28;
Скачать: CL | DM;
Вниз
Заголовок активного окна Найти похожие ветки
← →
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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.043 c
