Where is my way?

摘要： SendMessage(handle,WM_LButtonDown,0,lparam)主要是计算lparammsdn中介绍坐标x在低位,y在高位实现方法就是x+(y左移16位)procedure Play(pa,pb:TPoint);var Gameh:HWND; lparam:DWORD; p1,p2:TPoint;begin///第一点坐标///用spy++得到数据///<summer>起始点为x=272,y=99</summer>/// pa.x得到偏移地址p1.X:=272+48*pa.X-30;p1.Y:=99+48*pa.Y-30;p2.X:=272+48* 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,stdctrls;type TForm2 = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); private public //拦截Left mouse down 消息 procedure WMMOUSEDOWN(var Msg:TWMLButt... 阅读全文

摘要： 在设计一些需要数组的例程时,可能不知道该数组中会需要多少个元素,可能是10个,100个,1000个等.这些都只有到了实际运行的时候才能得到答案.由于对数组不确定大小，因此很难将数组声明一个局部变量(声明过大,会使栈负担过重),所以在堆上进行分配.delphi支持的第一种技术type PMyArray:^TMyArray; TMyArray : Array[0..0] of TMyType; //声明一个TMyType类型的数组begin GetMem(PMyArray,42 * SizeOf(TMyType));//分配42个TMyType内存大小 //释放PMyArray Free... 阅读全文

摘要： 今天要更新预算项目，由客户整理好编号 名称 级别由于要按树结构格式排列,所以写了一个游标去处理先由 sqlserver2000 企业管理器将内容导入declare @ID uniqueidentifierdeclare @Code UCode --varchar(50)declare @TreeLevel intDeclare c cursor forSelect ID,Code,TreeLevel from 结果 ORDER BY Codeopen cfetch next from c into @ID, @Code, @TreeLevelwhile @@fetch_... 阅读全文

摘要： 在汇编中是用 mov目的操作数, 源操作数mov reg8,reg8mov reg16,reg16mov reg32,reg32mov reg8/16/32,memHLA中使用 源操作数 目的操作数mov( source_operand, destination_operand ) 像高级语言中的source_operand =destination_operandprogram DemoMOVAddSub;#include("stdlib.hhf");static i8: int8 :=-8; i16: int16 := -16; i32: int32 := -3... 阅读全文

摘要： 目前为止, 都没碰到过汇编指令.都是直接调用HLA库完成的冯 诺衣曼原理Intel CPU寄存器可以分为四种:general purpose registers(通用寄存器)special purpose application accessible registers(特殊程序访问寄存器)segment registers(段寄存器,现在操作系统不经常使用)special purpose kernel mode registers(特殊用途的内核模式寄存器用于编写操作系统，调试器和其他系统级工具的人使用。)Genaral purpose registers (32bit)EAX,EBX,EC 阅读全文

摘要： 网上看了一篇文章.简直是坑爹!uses comobject;procedure TBaseMaterielPreForm.Button1Click(Sender: TObject);const BeginRow = 3; BeginCol = 2;//开始列 开始行//列对应A B C D E F G//行对应 1 2 3 4 4 5 var Excel: OleVariant; iRow,iCol : integer; xlsFilename: string; buffer:PChar;begin OpenDialog1.Title := '请选择正确的excel文件'; . 阅读全文

摘要： 很简单static c: char; LetterA : char := `A'; 阅读全文

摘要： 由HLA标准库定义 布尔字面常量是True/False ,程序处理是用 1表示True，0表Falsestatic BoolVar: boolean; HasClass: boolean := false; IsClear: boolean := true;//布尔值声明 由于boolean类型是占一个字节，也就是8个位，可以通过 and(与) or(或) xor(异或) not( 非) 来控制boolean值 阅读全文

摘要： HLA中有各种各样常量,类，数据声明语句，以后会介绍到HLA中变量的声明语法和pascal比较像var iSmall:smallInt; iByte : Byte; //pascal syntax declaration static节区中的变量可以初始化,当变量读入内存时系统会初始化它Program DemoVars; // DemoVars 区分大小写#include("stdlib.hhf")//变量声明方式static InitDemo: int32 := 5;//初始化 NotInitialized: Int32;//未初始化 begin DemoVars; st 阅读全文