Определить заголовок приложения по активному окну

Posted by micher under Delphi

dmitriegorovih

Как по активному окну определить application.title и application.exename другого приложения?

Stilet

 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;

тема на форуме