哪一个API函数可以判断运行在windows上的某个程序是否获得焦点？

Question

希望给个例子，谢谢。

Answer 1

有几个方案:
GetActiveWindows():函数用于获得活动窗口的句柄； ps:只获得当前进程的活动窗口GetFocuns():函数用于获得拥有输入焦点的窗口的句柄。GetForegroundWindow: 获得"前台窗口"也就是获得当前桌面的活动窗口我想你应该用到的是第三个uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.Caption:=IntToStr(GetForegroundWindow());//获得活动窗口句柄,并显示在label1上
end;
procedure TForm1.FormCreate(Sender: TObject);//窗口在最前
begin
setwindowpos(Self.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or swp_nosize);
end;end.