摘要：
absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := 'abc'; Edit1.Text := IntToStr(StrLen);end;abstract//它允许你创建抽象的方法, 包括有抽象方法的类称为抽象类.//Abstract关键字必须与Virtual或Dynamic关键字同时使用, 阅读全文
摘要：
Object Pascal 使用ASCII 字符集，包括A-Z、a-z、0-9、以及其它标准字符，字母是大小写无关.单字符特殊符号：# $ & ' ( ) * + , - . / : ; < = > @ [ ] ^ { }组合字符特殊符号：(* *) (. .) .. // := <= >= <>其中:‘[]’相当于‘(..)’; ‘(**)’相当于‘{}’! " % ? \ _ | ~ 不是特殊符号.标志符用来给常量、变量、字段、类型、属性、过程、函数、程序、单元、库以及包等起名的.标识符必须是 _ 或字母开头,后面可以是字母、数 阅读全文
摘要：
unit Unit1;interface {接口部分开始}uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部分结束}implementation {实现部分}uses {如果包含uses字句,必须紧跟关键字implementation} {在这里实现interface中定义的过程和函数,可以任意顺序的定义和调用.} {在这里可以省略过程和函数的列表,如果包括,必须一样.} {可以定义单元私... 阅读全文
摘要：
{鼠标软模拟：好处就是不会真的移动鼠标 开始按钮 坐标 x=386y=387 }sendmessage(hookHwnd,messages.WM_LBUTTONDOWN ,0,$0180017A); {按下鼠标左键}sendmessage(hookHwnd,messages.WM_LBUTTONUP ,0, $0180017A); {抬起鼠标左键}{硬件模拟：会真的移动鼠标}mouse_event(MOUSEEVENTF_LEFTDOWN,X ,Y ,0,0);mouse_event(MOUSEEVENTF_LEFTUP,X ,Y ,0,0); 函数功能 该函数将指定的消息发送到一... 阅读全文
摘要：
刚学习的时候直接读取基值是很简单的，但是类型[[[00a41ff0+1c]+34]+490]这样的偏移数值应该如何读取呢？下面给大家分享下Delphi 的代码：var GameH:HWND; {定义窗口句柄} GamePid:DWORD; {定义窗口进程ID} ReadByte:SIZE_T; {实际读取字节} Gamehprocess: THandle; {就是非负数的整数类型 定义进程句柄} HP:DWORD; Text:DWORD; {看下面代码你就知道为什么要定义它了} //完美血值基值 ... 阅读全文
摘要：
procedure TForm1.btn1Click(Sender: TObject);const GameName ='对对碰角色版';var GameH:HWND; //定义进程窗口句柄 PidGame:DWORD; //定义进程ID readByte:DWORD; //实际读取字节 Gamehprocess: THandle; //可以理解为DWord，也就是非负数的整数类型 定义进程句柄 SitNum :DWORD;begin GameH:=FindWindow(nil,GameName); ... 阅读全文
摘要：
第一次用DelphiXE2在创建Form1的时候想调用Form2窗体, 但是发现直接Form2.show;没有效果纠结，原来没有引用if(edt1.Text='admin')and(edt2.Text='admin')then begin form1.Hide; Form2.Show; end else begin if (edt1.Text<>'admin')or(edt2.Text<>'admin') then begin Application.MessageBox('账号密码错误', 阅读全文
摘要：
function TApplication.MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;1. Text：要显示的讯息2. Caption：讯息窗口的标题列文字3. Flags：讯息旗标 3.1. 可指定讯息窗口上的图标 3.2. 可指定讯息窗口出现的按钮 3.3. 可指定预设Focus在哪一个按钮 3.4. 可指定是否 Modal 3.5. 其它Text、Caption 自变量为 PCahr 型态，字符串型态的变量可用 PChar()转换，若直接传入一个字符串的话，就不用转型。... 阅读全文
摘要：
窗体的属性1．Appearance属性功能：设置窗体中控件是否以三维立体方式显示。取值：1) 1-3D 默认设置，以三维立体方式窗体上的控件。2) 0-Flat 以二维方式显示窗体上的控件。该属性不能通过代码在运行时设置，必须通过属性窗口在设计时设置。2．AutoRedraw属性功能：设置窗体中显示的信息是否重画。当返回被其他窗体遮住的窗体时，如果此属性设置为True，则自动刷新或者重画窗体中的所有信息，否则不重画。3．BackColor属性功能：设置窗体的背景颜色。4．BorderStyle属性功能：设置窗体的边界样式。取值：1) 0-None 窗体不仅没有边界，而且没有标题栏2) 1-Fi 阅读全文
摘要：
DELPHI常见属性说明：ALIGN 设置组件对齐（同其父容器）方式BORDERSTYLE 设置组件边框形状CAPTION 设置组件标题CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效COLOR 设定组件背景颜色CURSOR 设定鼠标经过组件时光标所显示的形状ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色FONT 设定组件内文字的字型、字体大小、颜色等HEIGHT 设定组件高度HELPCONTENT 用来为帮助说明文件中的索引值建立关联LEFT 设定组件与父组件左边框间的距离POPUPMENU 设定鼠标右键（弹出式）快捷菜单TA 阅读全文