delphi GetForegroundWindow、GetActiveWindow

GetForegroundWindow

　　函数功能：该函数返回前台窗口（用户当前工作的窗口）。系统分配给产生前台窗口的线程一个稍高一点的优先级。
　　函数原型：HWND GetForegroundWindow（VOID）
　　参数：无。
　　返回值：函数返回前台窗回的句柄。
　　速查：Windows NT：3.1以上版本；Windows：95以上版本：Windows CE：1.0以上版本：头文件：Winuser.h；库文件：user32.lib。

//GetForegroundWindow
procedure TForm1.Timer1Timer(Sender: TObject);
var
ACaption: array[0..254] of Char;
AHandle : THandle;
begin
AHandle := GetForegroundWindow;
GetWindowText(AHandle, ACaption, 255);
Memo1.Lines.Add(IntToStr(AHandle) + ACaption);
end;

GetActiveWindow

　　函数功能：该函数可以获得与调用线程的消息队列相关的活动窗口的窗口句柄。
　　函数原型：HWND GetActiveWindow（VOID）
　　参数：无。
　　返回值：返回值是与调用线程的消息队列相关的活动窗口的句柄。否则，返回值为NULL。
　　速查：Windows NT：3.1及以上版本；Windows：95及以上版本；Windows CE：1.0及以上版本；头文件：winser.h; 库文件：user32.lib。

//GetActiveWindow
procedure TForm1.Timer2Timer(Sender: TObject);
var
ACaption: array[0..254] of Char;
AHandle : THandle;
begin
AHandle := GetActiveWindow;
GetWindowText(AHandle, ACaption, 255);
Memo2.Lines.Add(IntToStr(AHandle) + ACaption);
end;

推荐分享