谁能用DELPHI编一个SPY程序??(50分)

就像SPY++的Message...

我用WindowSight，非常好用，用delphi编应该可以。

我可以啊，就是我们常用的那个SPY++吗？
就是监测所有的鼠标事件吧。没有什么难的啊，就是程序很长，不过现在代码还只是在草稿纸
上，你要的话，最多几天就可以OK的。
[red]现在现成的Spy++不是用的挺好的吗，你做它干吗？[/red]

wo zheng zai zuo ! ha ha ha ha ha ,wait

关注

it's very eaay……！要源代码，可以跟我联系！尽快，过些时候就不上网了

请给我一份好吗？tao518@163.com

nit MainFrm;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons, CommCtrl;

type
TMainForm = class(TForm)
tmScratch: TTimer;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
tmWait: TTimer;
Label4: TLabel;
Label5: TLabel;
procedure tmScratchTimer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
{详细资料见 HOWTO: Get a Window's Class Name and Other Window Attributes}
private
{ Private declarations }
procedure WMNLButtonDown(var Message: TMessage);message WM_LBUTTONDOWN;
public
{ Public declarations }
end;

var
MainForm: TMainForm;

implementation

var
PreClassLength, PreTextLength: Integer;

{$R *.DFM}

procedure TMainForm.tmScratchTimer(Sender: TObject);
var
ClassName: PChar;
ptCursor: TPoint;
hWndOver: HWND;
Text: PChar;
begin
GetCursorPos(ptCursor);
hWndOver := WindowFromPoint(ptCursor);
GetMem(ClassName, 100);
GetMem(Text, 255);
try
GetClassName(hWndOver, ClassName, 100);
SendMessage(hWndOver, WM_GETTEXT, 255, LongInt(Text));
Canvas.FillRect(Rect(5, 20 , PreClassLength + 20, 40));
Canvas.FillRect(Rect(5, 40 , PreTextLength + 20, 60));
PreClassLength := Canvas.TextWidth(ClassName);
PreTextLength := Canvas.TextWidth(Text);
if PreClassLength > PreTextLength then
Width := Canvas.TextWidth(ClassName) + 20
else
Width := Canvas.TextWidth(Text) + 20;
Canvas.TextOut(5, 20, string(ClassName));
Canvas.TextOut(5, 35, string(Text));
finally
FreeMem(ClassName);
FreeMem(Text);
end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
PreClassLength := 0;
PreTextLength := 0;
Width := 80;
Height := 55;
end;

procedure TMainForm.SpeedButton2Click(Sender: TObject);
begin
Close;
end;

我有一个用BCB做的源代码。

有原码吗？我想要哦. peta@21cn.com

淘金鼠(智能眼)III代（软件发布）
软件名称：淘金鼠(智能眼)III代
软件版本：V3.0.0
见议分类：应用软件->系统增强
联系EMAIL：yishengdxx@sohu.com
软件网站：http://jiayinman.vip.sina.com
下载地址：http://jiayinman.vip.sina.com/cn/yssoft/goldmouse.exe
软件容量：633 KB
软件类型：国产软件 / 简体中文 /免费软件
应用平台：Win95/98/NT/2000/XP
界面预览：http://jiayinman.vip.sina.com
软件介绍：淘金鼠(智能眼)III代，全新的代码编程，完全能取代你的动作，是你的绝对的得力助手。一切都可以让他自动完成你的操作。具有人的眼睛一般的功能，即使你故意将桌面的图标或指定的对象拖离原位，他也能迅速将其捉拿归案，试试吧，一个挺有意思的工具软件。

Messages Log部分的实现代码我很想要，能给我学习学习吗？
YuZi1102002@yahoo.com.cn

VC编的SPY我见过

怎么还没有结束呢？我给你一个地址，那个SPY是用delphi做的：
http://new.playicq.com/dispdocnew.php?id=5703
快点结束，把分发了吧！

晶晶：
你给的地址访问不了啊！能否给我发过来一个源码呢？谢谢！taibenle@163.com

接受答案了.