Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.057 c
4-1072359276
Kinderr
2003-12-25 16:34
2004.03.28
Ещё раз про трэй (только для профессионалов)


1-1079026882
Андрей__
2004-03-11 20:41
2004.03.28
Про Popup меню


14-1078000591
Undert
2004-02-28 23:36
2004.03.28
Тупеем господа ?


4-1073289620
GrayFace
2004-01-05 11:00
2004.03.28
Как использовать функцию GetCharABCWidths?


14-1077798582
Mox Fulder
2004-02-26 15:29
2004.03.28
sound