M2 客户端调用的各类函数说明

admin

M2 客户端调用的各类函数说明 目录
一.客户端单元文件结构说明 1
FState.pas（各种窗体被激发后的具体显示情况） 2

Actor.pas(动画精灵单元) 3

AxeMon.pas 4

clEvent.pas{事件管理池(消息守护线程)} 5

ClFunc.pas 6

   cliUtil.pas 7

ClMain.pas 8

Crackme.pas
待续…..
二.客户端各个单元调用的函数说明 Fstate.pas单元调用的函数
       1.Trect 定义一个矩形区域对象
       2.copy  拷贝字符串中指定的一段
       3. Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值,存放在var中。
      4.GetCursorPos  获取的是鼠标相对与屏幕的位置
      5. Application.OnIdle   应用程序空闲时触发的OnIdle事件
      6. SetBkMode( Canvas.Handle, TRANSPARENT ); //设置字体输出为背景透明
      7.背景颜色  
      8. UpCase  将小写字母转换成大写字母
       9. Byte()   快速的转换为16进制字节
       10. SetFocus  获取焦点

TRect   定义一个矩形区域对象

TClickPoint = record            rc: TRect;            rstr: string;          end;       PTClickPoint = ^TClickPoint;

Delphi为用户提供了一个方便的绘图环境,即某些控件的CANVAS属性(画布)。用户可以把某些控件的表面作为一张画布,在上面绘制各种图形或显示图像,但在CANVAS的使用过程中少不了一个特殊对象,那就是矩形RECT,灵活使用它会完成很多特殊的功能,为Delphi编制的Windows程序增加活力。


RECT的特点
----RECT既是一个特殊的数据结构，又是一个函数,它的作用就是定义一个矩形区域对象,而作为函数使用时它可以用两个属性(Tpiont型)指明区域范围,同时也可分解成四个单一的变量类型(Integer型),即:


topleft:左上角坐标(Tpiont型变量)；
bottomright:右下角坐标(Tpiont型变量)；
topleft.x或left:左上角横坐标；
topleft.y或top:左上角纵坐标；
bottomright.x或right:右下角横坐标；
bottomright.y或bottom:右下角纵坐标。
----例如，下面三种方法定义一个相同的RECT变量:


　　Rect(10,10,110,210);
　　topleft:=Piont(10,10);
bottomright:=Point(110,210);
　　left:=10;top:=10;right:=110;Bottom:=210;
----下面的代码在Form1窗体上定义一个RECT矩形并用红色填充:


　 　var
　 　 NewRect: TRect;
　 　begin
　 　
　 　 NewRect := Rect(20, 30, 50, 90);
　 　 Form1.Canvas.Brush.Color := clRed;
　 　 Form1.Canvas.FillRect(NewRect);
　　end;
----从上面可以看出,RECT只是一个通用变量,它并不属于任何控件本身,定义之后可由任何具有CANVAS属性的控件使用,以指明某控件表面的一个矩形区域,并且程序运行过程中可随意修改尺寸和位置。


RECT操作命令
Rect(x1,y1,x2,y2):定义Rect区域范围。
FillRect(rect:Trect):用填充色填充Rect区域。
FloodFill:用填充色填充Rect之外区域。
textrect(Rect:TRect;X,Y:Integer;constText:string):在Rect对象中显示文本,其中的X、Y为显示文本的坐标值,是相对于画布的坐标而不是相对于RECT的坐标；const为显示的字符个数；string为待显示的字符串，只有在RECT内的字符才能显示出来,超出部分不显示。
stretchdraw(constRect:TRect;Graphic:TGraphic):把图像文件填充到Rect之中,并且图像按RECT的尺寸自动伸缩,其中的Graphic可为BMP或ICO等图像资源。
font.size:定义画布上显示文字的尺寸。
font.color:定义画布上显示文字的颜色。
textwidth:返回字符串的长度。
textheight:返回字符串的高度。
Brush.Color:定义画布的填充颜色。
Copyrect(Dest:TRect;Canvas:Tcanvas;Source:TRect):把图像从一个矩形中拷到另一个矩形之中,并且按目标矩形尺寸自动伸缩,其中，Dest为目标画布矩形,Canvas为源画布,Source为源矩形。
----由于上述命令均是基于画布本身使用的,所以具体使用时必须加上控件及画面属性,例如下面的代码:


　 　var
　 　 TheRect: TRect;
　 　begin
　 　 TheRect.Top := 10;
　 　 TheRect.Left := 10;
　 　 TheRect.Bottom := 100;
　 　 TheRect.Right := 100;
　　Form1.Canvas.TextRect(TheRect,0,0,‘Hello,
world!‘);
　　end;

COPY函数功能说明：该函数用于从字符串中复制指定范围中的字符。该函数有3个参数。第一个参数是数据源(即被复制的字符串)，第二个参数是从字符串某一处开始复制，第三个参数是要复制字符串的长度(即个数)。最后函数返回一个新的字符串(即是我们指定要复制的字符串内容)。
　　参考实例：
　　var
　　 　S: String;
　　 　MyStr:String; // 保存新的字符串
　　begin
　　 　S := 'I LoveChina!';
　　//下面将获取I Love China中的“Love”字符串。
　　MyStr := Copy(S, 3, 4);
　　end;
　　执行结果，MyStr等于“Love”，“Love”字符串在“I Love China!”中第3个位置开始，所以第二个参数为3，“Love”一共有4个字符，所以第三个参数为4。


Val  函数Val(st,var,code);//把字符串表达式st转换为对应整型或实型数值,存放在var中。St必须是一个表示数值的字符串,并符合数值常数的规则。在转换过程中,如果没有检测出错误,变量code置为0,否则置为第一个出错字符的位置。例如,st:=25.4E3,x是一个实型变量,则val(st,x,code)将使X值为25400,code值为0。GetCursorPos  函数//用 GetCursorPos 获取的是鼠标相对与屏幕的位置var  ps: TPoint;  str: string;begin  GetCursorPos(ps);  str := Format('%d,%d',[ps.X,ps.Y]);  ShowMessage(str);end; OnIdIe事件 对应对象：TApplication
声明： property OnIdle: TIdleEvent；
功能：在应用程序空闲时将发生OnIdle事件c
如果用户想在应用程序空闲时处理一些操作，可以将一个事件处理代码添加到
OnIdle事件上去。TIdleEvent的类型被声明成为OnIdLe，定义是：
TidleEvent=procedure(Senger:Tobject; var Done: Boolean) ofobject；
其中Done参数缺省时为真，声明应用程序等待系统的信息。当Done参数为假
时，应用程序将不处理系统信息。使用OnIdle事件要特别注意，许多应用程序
不需要处理这个事件。（

DInput获取数据主要分为直接和缓存两种方式。我主要讲直接方式（因为最简单）。
要在Delphi里获取DInput的数据，最好是在程序的OnIdle事件里。这样就能不断地轮询DInput的输入。
首先声明一个OnIdle函数
    procedure AppIdle(Sender: TObject; var Done: Boolean);
然后在程序初始化时设置，  Application.OnIdle := AppIdle;
接下来就可以在AppIdle函数里获取DInput输入了.代码如下:
//激活OnIdle事件
  Done := False;

//键盘消息
FDInputKeyBoard.GetDeviceState(256, @keyboard_state);
for i := 0 to 255 do
begin
  if keyboard_state <> 0 then
    Self.Canvas.TextOut(0,0, '你按了一个键，它的代码是：' + IntToStr(i));
  end;
end;
//鼠标消息
FDInputMouse.GetDeviceState(SizeOf(DIMOUSESTATE), @mouse_state);
if (mouse_state.lX <> 0) or (mouse_state.lY <> 0) then
begin
  Self.Canvas.TextOut(0,20, '鼠标的X坐标移动量：' + IntToStr(mouse_state.lX));
  Self.Canvas.TextOut(0,40, '鼠标的Y坐标移动量：' + IntToStr(mouse_state.lY));
end;
if mouse_state.rgbButtons[0] <> 0 then
  Self.Canvas.TextOut(0,60, '你按了鼠标的左键');

关于如何在Delphi的VCL环境里使用DirectInput，我就教到这里了。有关DInput的更详细信息，请参考微软的DX9SDK。

最后是完整的DInput鼠标和键盘的演示程序

）
SetBkMode  函数SetBkMode( Canvas.Handle, TRANSPARENT ); //设置字体输出为背景透明

背景颜色clBlack（黑色），clMaroon（暗红），clGreen（绿色），clOlive（橄榄绿），clNavy（深蓝），clPurple（紫色），clTeal（深青），clGray（灰色），clSilver（浅灰），clRed（红色），clLime（浅绿），clYellow（黄色），clBlue（蓝色），clFuchsia（紫红），clAqua（青绿），clWhite（白色）。