【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了KG_Ping.pas提供大家参考,希望对大家有所帮助!
{
unit name : KG_Ping
Author : 李涛
Create date: 2005-09-14 10:42:23
description: 锁定计算机
}
unit KG_Ping;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ComCtrls, ExtCtrls, DB,Registry, ADODB, iniFiles, Mask,
Public_unit_u;
type
TPing = class(TForm)
GroupBox1: TGroupBox;
Animate1: TAnimate;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label9: TLabel;
Label6: TLabel;
About_top_Image: TImage;
Label10: TLabel;
Label11: TLabel;
AppAbout_Image: TImage;
Timer1: TTimer;
BitBtn1: TBitBtn;
GroupBox2: TGroupBox;
Label1: TLabel;
MaskEdit1: TMaskEdit;
procedure FormShow(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Timer1Timer(Sender: TObject);
procedure MaskEdit1KeyPress(Sender: TObject; var Key: Char);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure MaskEdit1Enter(Sender: TObject);
procedure MaskEdit1Exit(Sender: TObject);
private
procedure Move(Var M:TWMNCHitTest); message wm_NCHitTest;
//建立过程用来欺骗系统标提栏
procedure Mouse_mov; //限制鼠标移动范围
procedure unMouse_mov;//取消限制
{ Private declarations }
public
K:integer;
{ Public declarations }
end;
var
Ping: TPing;
implementation
{$R *.DFM}
procedure TPing.Mouse_mov;
var
Mouse_Rect:Trect; //鼠标区域
begin
Mouse_Rect:=MaskEdit1.BoundsRect;
MapWindowPoints(GroupBox2.Handle,0,Mouse_Rect,2); // 座标换算
ClipCursor(@Mouse_Rect); // 限制滑鼠移动区域
end;
procedure TPing.unMouse_mov;
var
rtScreen: TRect;
begin
rtScreen:=Rect(0,0,Screen.Width,Screen.Height);
ClipCursor(@rtScreen);
K:=0;
end;
Procedure TPing.Move(var M:TWMNCHitTest);
begin
inherited; //建立消息接口
if M.Result =htCaption then //判断鼠标按在的区域是否是[htCaption非客户区]
M.Result :=htClient; //发送信息给系统说鼠标按在[htClient客户区上了]
end;
procedure TPing.FormShow(Sender: TObject);
begin
K:=1;
Self.Mouse_mov;
Animate1.FileName:=Extractfilepath(Application.ExeName)+'source/cool.avi';
Animate1.Active:=True;
Label10.Caption:=MySelf.AppTitle;
Label11.Caption:=MySelf.AppTitle;
Label6.Caption:=MySelf.User_code;
Label7.Caption:=MySelf.user_name;
Label9.caption:=DateTimeToStr(Date+Time);
MaskEdit1.SetFocus;
end;
procedure TPing.BitBtn1Click(Sender: TObject);
begin
K:=1;
if MaskEdit1.Text=MySelf.User_pass then
Self.unMouse_mov
else
begin
MaskEdit1.SetFocus;
Exit;
end;
Close;
end;
procedure TPing.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if K=1 then Abort;
end;
procedure TPing.Timer1Timer(Sender: TObject);
begin
Self.Mouse_mov;
end;
procedure TPing.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then bitbtn1.Click;
end;
procedure TPing.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
Ping:=nil;
end;
procedure TPing.MaskEdit1Enter(Sender: TObject);
begin
EnterColor(Sender);
end;
procedure TPing.MaskEdit1Exit(Sender: TObject);
begin
ExitColor(Sender);
end;
end.
上一篇:
kfglMain.pas
下一篇:
用于土木工程结构抗震的半主动调谐质量阻尼器