资源描述：
《api 窗口函数(delphi)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、WinAPI:GetDesktopWindow-返回桌面窗口的句柄//声明:GetDesktopWindow:HWND;{无参数;返回桌面窗口的句柄}//举例:varh:HWND;beginh:=GetDesktopWindow;ShowMessage(IntToStr(h));end;WinAPI:SetWindowText-设置窗口标题//声明:SetWindowText(hWnd:HWND;{窗口句柄}lpString:PChar{新标题串指针}):BOOL;//举例:vars:string;begins:='新标题';SetWindowText(Handle,PAnsiChar(
2、s));end;WinAPI:GetWindowText-获取窗口标题//声明:GetWindowText(hWnd:HWND;{窗口句柄}lpString:PChar;{接收文本的缓冲区的指针}nMaxCount:Integer{指定缓冲区大小,其中包含NULL字符;如果文本超出，会被被截断}):Integer;{返回字符个数,不包括中断的空字符;如果标题为空或句柄无效,则返回零}//举例:vararr:array[0..254]ofChar;beginGetWindowText(Handle,@arr,SizeOf(arr));ShowMessage(arr);{Form1}end;
3、//标题文本个数:vararr:array[0..254]ofChar;num:Integer;beginnum:=GetWindowText(Handle,arr,SizeOf(arr));ShowMessage(IntToStr(num));{5}end;WinAPI:GetWindowTextLength-获取窗口标题长度//声明:GetWindowTextLength(hWnd:HWND{窗口句柄}):Integer;{返回窗口标题长度}//举例:vari:Integer;begini:=GetWindowTextLength(Self.Handle);ShowMessage(I
4、ntToStr(i));end;WinAPI:GetForegroundWindow-获取前台窗口的句柄//声明:GetForegroundWindow:HWND;//举例:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ExtCtrls;typeTForm1=class(TForm){先添加如下三个控件}Button1:TButton;Memo1:TMemo;Timer1:TTimer;procedureTimer1Tim
5、er(Sender:TObject);procedureButton1Click(Sender:TObject);procedureFormCreate(Sender:TObject);end;varForm1:TForm1;implementation{$R*.dfm}varh:HWND;{把句柄定义成全局变量以避免重复}{准备工作}procedureTForm1.FormCreate(Sender:TObject);beginMemo1.Align:=alLeft;Memo1.ScrollBars:=ssBoth;Timer1.Enabled:=False;Timer1.Interv
6、al:=100;end;{启动与停止}procedureTForm1.Button1Click(Sender:TObject);beginTimer1.Enabled:=notTimer1.Enabled;caseTimer1.EnabledofTrue:Text:='开始截获';False:Text:='停止截获';end;Memo1.Clear;end;{定时获取}procedureTForm1.Timer1Timer(Sender:TObject);varp:array[0..254]ofChar;beginifh<>GetForegroundWindowthenbeginh:=G
7、etForegroundWindow;GetWindowText(h,p,255);ifp<>''thenMemo1.Lines.Add(p);end;end;end.WinAPI:GetWindow-获取与指定窗口具有指定关系的窗口的句柄//声明:GetWindow(hWnd:HWND;{指定的窗口句柄}uCmd:UINT{指定的关系选项}):HWND;{失败返回0;成功返回符合的窗口句柄}//uCmd可选值:GW_HWNDFIR
