Заголовок приложения по активному окну.

[dmitriegorovih]

Доброго времени суток! В общем, есть такая задача. По активному окну определить application.title и application.exename другого приложения. Я думал, может через функцию GetActiveWindow узнать handle формы, а потом …… эм не знаю.
P.S. Delphi 7.

[Stilet]

Ну если так то:

 function WindowCaption;
 var Nm:Array[0..255] of Char; Wind:handle;
 begin
    Wind:=GetActiveWindow();
    ... Тут нужно пройти циклом по GetParent(hwnd) пока не доберешься до окна приложения.
    GetWindowText(Wind,Nm,sizeof(nm)); // считываем  текст заголовка окна
    result:=string(nm);
 end;

Вот единственное не помню как правильно циклом до парента добраться.

[dmitriegorovih]

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

Ну если так то:

 function WindowCaption;
 var Nm:Array[0..255] of Char; Wind:handle;
 begin
    Wind:=GetActiveWindow();
    ... Тут нужно пройти циклом по GetParent(hwnd) пока не доберешься до окна приложения.
    GetWindowText(Wind,Nm,sizeof(nm)); // считываем  текст заголовка окна
    result:=string(nm);
 end;

Вот единственное не помню как правильно циклом до парента добраться.

Нашел я, в чем была проблема. Оказывается GetActiveWindow возвращает активное окно только своего приложения, нужно было использовать GetForegroundWindow то, что нужно (ох уж эти подводные камни) ну все вроде разобрался спасибо!

 function TForm1.WindowCaption:string;
 var
 Nm:Array[0..255] of Char;
 Wind:HWND;
 begin
    Wind:=GetForegroundWindow();
    while GetParent(wind)<>0 do
    begin
     wind:=GetParent(wind);
    end;
    GetWindowText(Wind,Nm,sizeof(nm)); // считываем  текст заголовка окна
    result:=string(nm);
 end;