信息来源：中国华北黑客联盟（
www.hbhacker.net/bbs）文章作者：kaoiki
此文主要是告诉你。如何利用DELPHI来实现鼠标在屏幕上的移动范围
我想美萍这个网吧管理工具大家都知道
在没有登陆计费系统之前。鼠标只能在美萍的登陆窗口内活动
我的这篇文章就是告诉你如何简单的实现这个功能。真的非常简单
今天我还用这个做了一件坏事。
我老婆在用电脑的时候。我入侵了她的电脑。呵呵。
然后为了怕她看到我劫持她的桌面后，害怕，而断网。导致我无法继续操作
我事先上载了这个小程序，并将这个程序的ALPHA设置成0（完全透明）
我在这里并没有限制系统接受键盘输入。呵呵。我下次会告诉你们如何限制系统接受键盘输入
然后启动此程序。这样就有效的限制了我老婆鼠标的活动范围。呵呵
然后我就可以在我劫持的桌面上为所欲为。她都没有办法。呵呵
主要目的可以限制对方的鼠标活动，还有，在做管理方面。可以限制别人随意登陆系统。
好了。废话说完了。。看看代码。非常简单（代码我没有按照任何规则写，很晚了都快4点了，明天还要飞机。呵呵，请大家原谅）
-------------------------------------------------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, bsSkinData, BusinessSkinForm, bsSkinCtrls;
type
TForm1 = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
Button1: TbsSkinXFormButton;
Panel1: TbsSkinPanel;
bsSkinButton1: TbsSkinButton;
procedure Button1Click(Sender: TObject);
procedure Panel1DblClick(Sender: TObject);
procedure bsSkinButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
pos: TRect;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
pos:=panel1.BoundsRect;
MapWindowPoints(handle, 0, pos, 2); // 座标换算
ClipCursor(@pos);
end;
procedure TForm1.Panel1DblClick(Sender: TObject);
begin
close;
end;
procedure TForm1.bsSkinButton1Click(Sender: TObject);
begin
close;
end;
end.
-------------------------------------------------------
效果图如下：(单击限制按钮后。鼠标将只能在黑色矩形框中移动）
http://home.goofar.com/kaoiki/limitmove.jpg
在此下载我编译好的EXE文件，当然你害怕病毒也可以不下载。呵呵
http://www.zpgo.net/pweb11/kaoiki/demo/limitmove.exe
