WinAPI: GetForegroundWindow - 获取前台窗口的句柄
生活随笔
收集整理的這篇文章主要介紹了
WinAPI: GetForegroundWindow - 获取前台窗口的句柄
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
//聲明:
GetForegroundWindow: HWND;//舉例:
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm){先添加如下三個控件}Button1: TButton;Memo1: TMemo;Timer1: TTimer;procedure Timer1Timer(Sender: TObject);procedure Button1Click(Sender: TObject);procedure FormCreate(Sender: TObject);end;varForm1: TForm1;implementation{$R *.dfm}varh: HWND; {把句柄定義成全局變量以避免重復}{準備工作}
procedure TForm1.FormCreate(Sender: TObject);
beginMemo1.Align := alLeft;Memo1.ScrollBars := ssBoth;Timer1.Enabled := False;Timer1.Interval := 100;
end;{啟動與停止}
procedure TForm1.Button1Click(Sender: TObject);
beginTimer1.Enabled := not Timer1.Enabled;case Timer1.Enabled ofTrue : Text := '開始截獲';False: Text := '停止截獲';end;Memo1.Clear;
end;{定時獲取}
procedure TForm1.Timer1Timer(Sender: TObject);
varp: array[0..254] of Char;
beginif h <> GetForegroundWindow thenbeginh := GetForegroundWindow;GetWindowText(h, p, 255);if p <> '' then Memo1.Lines.Add(p);end;
end;end.
轉載于:https://www.cnblogs.com/del/archive/2008/02/26/1081644.html
總結
以上是生活随笔為你收集整理的WinAPI: GetForegroundWindow - 获取前台窗口的句柄的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： js操作frame详细解说,window
- 下一篇： 关于左右滚动，控制某几列不动