（二）系统窗口分析器  

记得《超级解霸》作者梁肇新先生曾在电脑报上发表过系列文章《开发手记》，写的极有深度，令我获益匪浅。其在文中称，每次要写一个新功能或新的界面时，总喜欢用spy 对现有类似软件进行分析，可非常容易地得到其采用的什么类或什么消息机制，从而可轻而易举地模仿出相关的功能。我在具体的软件开发工作中，也经常这样做，有时确实可起到事半功倍的作用。但本篇不是教你如何使用spy ，而是要教你如何自己编写一个类似于spy 的软件。  

一、 系统分析  

要实现spy 的功能，首先要知道如何获取当前窗口句柄，以及当前窗口类。程序中主要使用定时器实现实时窗口句柄采集。  

二、 开发前沿  

这里用到的API函数有：  

SystemParametersInfo：取得指定的系统参数  

SetWindowPos：设置窗口位置  

GetCursorPos： //获得光标的位置  

WindowFromPoint： //取得光标位置的窗口句柄  

GetClassName：//获得类名  

SendMessage： //获得窗口信息  

三、 设计流程  

1．初始化应用程序窗口，使其总显示在最顶层：  

void __fastcall TSpyForm::FormCreate(TObject *Sender)  

{  

//初始化  

TRect R;  

//取得桌面大小，并计算出程序窗口的位置  

SystemParametersInfo(SPI_GETWORKAREA,0,&R,0);  

Left = R.Right - Width; //窗口左上角列坐标  

Top = R.Bottom - Height; //窗口左上角行坐标  

SetStayOnTop(this, true); //设置为总在最前面显示  

}  

2．相关设置为总在最顶层显示函数：  

void TSpyForm::SetStayOnTop(TForm * Form, bool Value)  

{  

//设置窗口是否总在最前面显示  

if ( Value )SetWindowPos(Form->Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);  

else SetWindowPos(Form->Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE|SWP_NOSIZE);  

}  

3．定时器响应函数：  

void __fastcall TSpyForm::TimerTimer(TObject *Sender)  

{  

//用定时器每隔0.1秒进行一切判断，以达到系统信息的实时显示  

TPoint Pos;  

HWND Handle;  

char Buf[1024];  

GetCursorPos(&Pos); //获得光标的位置  

Handle = WindowFromPoint(Pos); //取得光标位置的窗口句柄  

HandleEdit->Text = IntToStr((int)Handle); //显示窗口句柄  

GetClassName(Handle, Buf, 1024); //获得类名  

ClassEdit->Text = Buf; //显示类名  

SendMessage(Handle, WM_GETTEXT, 1024, Integer(&Buf)); //获得窗口信息  

TextEdit->Text = Buf; //显示窗口信息  

}  

4．设置是否在最顶层显示：  

void __fastcall TSpyForm::OnTopCheckBoxClick(TObject *Sender)  

{  

//设置最前面显示  

SetStayOnTop(this, OnTopCheckBox->Checked);  

}