记得《超级解霸》作者梁肇新先生曾在电脑报上发表过系列文章《开发手记》，写的极有深度，令我获益匪浅。其在文中称，每次要写一个新功能或新的界面时，总喜欢用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);
}