2016年2月25日
TObject简要说明-对象的创建流程
TObject = class //创建 constructor Create; //释放 procedure Free; //初始化实列 class function InitInstance(Instance: Pointer): TObject; //清除实列 procedure Cleanu Read More
posted @ 2016-02-25 19:04 findumars Views(607) Comments(0) Diggs(0)
delphi指针简单入门
delphi指针简单入门: 看一个指针用法的例子： 1 var 2 X, Y: Integer; // X and Y 整数类型 3 P: ^Integer; // P 指向整数类型的指针 4 begin 5 X :=17; // 给 X 赋值 6 P := @X; // 把 x的地址赋给p 7 Y Read More
posted @ 2016-02-25 19:03 findumars Views(6001) Comments(0) Diggs(0)
Delphi 能不能从Ring 3进入Ring 0
我发现了一篇发表在1999.11.29 b13版的 《令win32应用程序跳入系统层》东南大学 卢威 luwei@126.com 是用vc++嵌汇编做的， 很接近了，可试试 BCB或DELPHI进入Ring0 东南大学卢威1999.12发表在<<计算机世界>>报上的一篇 <<WIN32跳入系统0层> Read More
posted @ 2016-02-25 19:02 findumars Views(599) Comments(0) Diggs(0)
改变TPageControl的活动标签颜色
设置PageControl的owndraw属性为TRUE. procedure TForm1.pgc1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var cc: Read More
posted @ 2016-02-25 18:59 findumars Views(510) Comments(0) Diggs(0)
String 中的秘密
Navigation: 数据类型相关 > Delphi 的字符及字符串 > [3] - String 中的秘密 //String 的指针地址及实际的内存地址 var str: string; pstr: PString; pc: PChar; begin {在没有给 str 赋值以前, 既然声明了, Read More
posted @ 2016-02-25 18:54 findumars Views(468) Comments(0) Diggs(0)