Отловить активное окно

[ivt22]

Я можно сказать уже задавал этот вопрос, но как оказалось я получил не совсем то решение, которого добивался. Ниже код, который мне посоветовали, этот код действительно позволяет получить текст заголовка активного окна, того окна, по которому я щелкну мышкой только тогда оно видимо считается активным, а мне нужно получить заголовок окна, которое вылетает поверх других, допустим программа требует сделать какое-то действие и вылезает поверх всех окон винды, но её заголовок я получаю только после того, как щелкну мышкой внутри окна программы. Так вот как же получить заголовок таких окошечек?

var
  H: THandle;  //Дескриптор
  str: String;
  buff: PChar;
  WindowRect: TRect; // Область окна
begin
 H := GetForegroundWindow;  //Получаем дескриптори на активное окно
 str := GetWndTxt(H);
 Memo1.Text := str;

 GetWindowRect(H, WindowRect);
 Label2.Caption:=Format('top=%d Left=%d Width=%d Height=%d',[WindowRect.Top, WindowRect.Left,
                         WindowRect.Right-WindowRect.left, WindowRect.Bottom-WindowRect.Top]);

[Stilet]

GetWindow(0,GW_HWNDFIRST)
не?

[ivt22]

Сообщение от Stilet

GetWindow(0,GW_HWNDFIRST)
не?

Не че-то вообще никаких окон не находит, я вот так написал:

function GetWndTxt(H: HWND): String;
var
Nm: Array [0 .. 255] of Char;
begin
  GetWindowText(H, Nm, 255);
  RESULT := String(Nm);
end;

procedure TForm4.Timer1Timer(Sender: TObject);
var
  H: THandle;  //Дескриптор
  str: String;
  buff: PChar;
  WindowRect: TRect; // Область окна
begin
 H := GetWindow(0,GW_HWNDFIRST);  //Получаем дескриптори на активное окно
 str := GetWndTxt(H);
 edit1.Text := str;
end;

[ivt22]

Значит EnumWindows +

GetWindowInfo и

выполнять поиск по

стилям WS_DLGFRAME,

WS_EX_TOPMOST

Мне вот такую штуку посоветовали, но я пока не могу тут разобраться, может у кого примеры есть?

[Stilet]

Пример от меня: http://www.programmersforum.ru/showt...?t=9066&page=2

[waleri]

Сообщение от Stilet

GetWindow(0,GW_HWNDFIRST)
не?

Наверно вместо 0 надо вставить GetDesktopWindow()

[ivt22]

Сообщение от waleri

Наверно вместо 0 надо вставить GetDesktopWindow()

Не получилось, edit все равно пустой((

[Пепел Феникса]

отладкой проверьте находит ли хэндл.
да и окно могло быть без текста.

[ivt22]

Сообщение от Пепел Феникса

отладкой проверьте находит ли хэндл.
да и окно могло быть без текста.

Окно с текстом 100 процентов. Функция GetForegroundWindow видит этот текст, просто нужно мышкой щёлкать по окну

[ivt22]

Чего-то ничего не получается... Вот смотрите есть на форме Таймер, настроенный на 1 милисекунду, и Edit таймер следит за окошечками и если появляется окно поверх других, необходимо получить его дескриптор, ну и по нему записать имя окна в Edit. У меня получается так сделать, но только если по этому окну щёлкнуть мышкой... А по другому никак...