10 2011 档案

语言字符集
摘要：Object Pascal 使用ASCII 字符集，包括A-Z、a-z、0-9、以及其它标准字符，字母是大小写无关.单字符特殊符号：# $ & ' ( ) * + , - . / : ; < = > @ [ ] ^ { }组合字符特殊符号：(* *) (. .) .. // := <= >= <>其中:‘[]’相当于‘(..)’; ‘(**)’相当于‘{}’! " % ? \ _ | ~ 不是特殊符号.标志符用来给常量、变量、字段、类型、属性、过程、函数、程序、单元、库以及包等起名的.标识符必须是 _ 或字母开头,后面可以是字母、数 阅读全文
posted @ 2011-10-31 20:27 ahroot 阅读(180) 评论(0) 推荐(0)
单元文件结构
摘要：unit Unit1;interface {接口部分开始}uses {引用单元列表,这是可选的,如果包含必须紧跟interface关键字} {接口部分声明常量/类型/变量/过程和函数,这些声明对引用单元就像自己的声明一样} {在接口部分声明的过程和函数,就像使用了forward关键字} {接口部分结束}implementation {实现部分}uses {如果包含uses字句,必须紧跟关键字implementation} {在这里实现interface中定义的过程和函数,可以任意顺序的定义和调用.} {在这里可以省略过程和函数的列表,如果包括,必须一样.} {可以定义单元私... 阅读全文
posted @ 2011-10-31 20:26 ahroot 阅读(258) 评论(0) 推荐(0)
sendmessage()模拟鼠标点击
摘要：{鼠标软模拟：好处就是不会真的移动鼠标 开始按钮 坐标 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); 函数功能 该函数将指定的消息发送到一... 阅读全文
posted @ 2011-10-31 19:32 ahroot 阅读(11723) 评论(0) 推荐(0)
Delphi XE2读取内存偏移数据代码
摘要：刚学习的时候直接读取基值是很简单的，但是类型[[[00a41ff0+1c]+34]+490]这样的偏移数值应该如何读取呢？下面给大家分享下Delphi 的代码：var GameH:HWND; {定义窗口句柄} GamePid:DWORD; {定义窗口进程ID} ReadByte:SIZE_T; {实际读取字节} Gamehprocess: THandle; {就是非负数的整数类型 定义进程句柄} HP:DWORD; Text:DWORD; {看下面代码你就知道为什么要定义它了} //完美血值基值 ... 阅读全文
posted @ 2011-10-31 18:28 ahroot 阅读(805) 评论(0) 推荐(0)
Delphi 读取内存数据
摘要：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); ... 阅读全文
posted @ 2011-10-31 17:28 ahroot 阅读(1192) 评论(0) 推荐(0)
DelphiXe2主窗体调用子窗体
摘要：第一次用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('账号密码错误', 阅读全文
posted @ 2011-10-29 16:20 ahroot 阅读(509) 评论(0) 推荐(0)
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()转换，若直接传入一个字符串的话，就不用转型。... 阅读全文
posted @ 2011-10-29 15:00 ahroot 阅读(185) 评论(0) 推荐(0)
delphi窗体属性
摘要：窗体的属性1．Appearance属性功能：设置窗体中控件是否以三维立体方式显示。取值：1) 1-3D 默认设置，以三维立体方式窗体上的控件。2) 0-Flat 以二维方式显示窗体上的控件。该属性不能通过代码在运行时设置，必须通过属性窗口在设计时设置。2．AutoRedraw属性功能：设置窗体中显示的信息是否重画。当返回被其他窗体遮住的窗体时，如果此属性设置为True，则自动刷新或者重画窗体中的所有信息，否则不重画。3．BackColor属性功能：设置窗体的背景颜色。4．BorderStyle属性功能：设置窗体的边界样式。取值：1) 0-None 窗体不仅没有边界，而且没有标题栏2) 1-Fi 阅读全文
posted @ 2011-10-29 13:56 ahroot 阅读(929) 评论(0) 推荐(0)
DELPHI常见属性说明
摘要：DELPHI常见属性说明：ALIGN 设置组件对齐（同其父容器）方式BORDERSTYLE 设置组件边框形状CAPTION 设置组件标题CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效COLOR 设定组件背景颜色CURSOR 设定鼠标经过组件时光标所显示的形状ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色FONT 设定组件内文字的字型、字体大小、颜色等HEIGHT 设定组件高度HELPCONTENT 用来为帮助说明文件中的索引值建立关联LEFT 设定组件与父组件左边框间的距离POPUPMENU 设定鼠标右键（弹出式）快捷菜单TA 阅读全文
posted @ 2011-10-29 13:54 ahroot 阅读(988) 评论(0) 推荐(0)
Delphi数组详解
摘要：静态数组的定义方法//1. 标准方法： var MyArr: array[0..10] of Integer; //定义静态数组 //2. 可以使用非0下标： var MyArr: array[9..10] of Integer; //不能提倡，这样不容易与系统函数沟通 //3. 根据预定义类型来声明数组： type TMyArr = array[0..10] of Integer; //先定义一个数组类型 var MyArr: TMyArr; //再定义静态数组 //4. 在非过程区可以直接赋值： var MyArr: array[0..2] of Integer = (11,22,33); 阅读全文
posted @ 2011-10-28 13:27 ahroot 阅读(4938) 评论(1) 推荐(0)
Delphi XE中类成员的访问权限 .
摘要：Delphi XE中类成员的访问权限共提供了6个关键词来用于限定访问权限：public、private、protected、published、automated strict private 、 strict protected其各自的含义为：1. strict private：此区定义的字段或方法只能用于当前的类中。即T1中此区定义的成员只能在T1中使用。2. strict protected：此区定义的成员除能用于当前类中，还可用于当前类的任何子类中。 以上两种成员，同一个类的不同对象间也不能互访问。3. private：所限定的成员只能用于定义这个类的.pas文件或.dpr文件。4. 阅读全文
posted @ 2011-10-28 13:24 ahroot 阅读(339) 评论(0) 推荐(0)
Delphi数组初始化
摘要：Delphi下如何对数组进行初始化？答：1、Delphi提供对常量数组的简单初始化方法如下：const arrByte: Array[0..2] of byte =(112,32,55);2、如果想对变量数组进行初始化，可以先声明常量数组，然后，对变量数组进行赋值即可：procedure AssignArr;var arrMyByte: Array[0..2] of byte;begin //方法一 Move(arrByte, arrMyByte, SizeOf(arrMyByte)); //方法二：循环赋值 //....end; 阅读全文
posted @ 2011-10-28 13:23 ahroot 阅读(3944) 评论(0) 推荐(0)
Delphi文件操作所涉及的一些函数
摘要：//判断文件是否存在 FileExists//判断文件夹是否存在 DirectoryExists//删除文件 DeleteFile; Windows.DeleteFile//删除文件夹 RemoveDir; RemoveDirectory//获取当前文件夹 GetCurrentDir//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory//获取指定驱动器的当前路径名 GetDir//文件改名 RenameFile//建立文件夹 CreateDir; CreateDirectory; ForceDirectories//删除空文件夹 RemoveD 阅读全文
posted @ 2011-10-27 19:00 ahroot 阅读(252) 评论(0) 推荐(0)
Delphi 数据类型
摘要：一、数据类型：(1) 基本数据类型：a、 整数类型： (通用类型<32位>：Integer－有符号；Cardinal－无符号)具体：有符号：Shortint<8位>，Smallint<16位>，Longint<32位 >无符号：Byte<8位>，Word<16位>，LongiWord<32位 >b、字符类型： (通用类型<8位>：Char －与AnsiChar等同)具体：AnsiChar<8位> ：主要存放Ansi字符WideChar<16位>：主要存放Unicode字符c、 阅读全文
posted @ 2011-10-27 14:28 ahroot 阅读(311) 评论(0) 推荐(0)
Delphi XE2 破解算号器
摘要：先算出序列号，进行安装。当安装完成后，启动Delphixe2会让你输入邮箱和密码，不用管它直接复制你的 codice 到下面按第二个按钮生成slip文件，导入刚才生成的slip文件,之后关闭注册界面. 点 patch file 破解delphello的 bin\bds.exe 下载地址：http://115.com/file/e6rsr0vv#解压密码：ahroot 阅读全文
posted @ 2011-10-27 13:35 ahroot 阅读(1947) 评论(0) 推荐(0)
Delphi XE2 中英文一键切换补丁
摘要：安装好最新的Delphi xe2 使用了一下Delphi XE2 中英文一键切换补丁，蛮不错的，推荐给大家。软件我已经上传到网盘了，大家去下载体验下吧。http://115.com/file/clozqty4#Delphi_XE2_中英文一键切换补丁.zip解压密码为：ahroot 阅读全文
posted @ 2011-10-27 13:06 ahroot 阅读(1364) 评论(1) 推荐(0)