32位Delphi程序中可利用TRegistry对象来存取注册表文件中的信息。     
  　　一、创建和释放TRegistry对象  
   
  　　1.创建TRegistry对象。为了操作注册表，要创建一个TRegistry对象：ARegistry   :=   TRegistry.Create；  
   
  　　2.释放TRegistry对象。对注册表操作结束后，应释放TRegistry对象所占内存：ARegistry.Destroy。  
   
  　　二、指定要操作的键  
   
  　　操作注册表时，首先应指定操作的主键：先给属性RootKey赋值以指定根键，然后用方法OpenKey来指定要操作的主键名。  
   
  　　1.指定根键(RootKey)。  
   
  　　根键是注册表的入口，也注册表信息的分类，其值可为：  
   
  　　HKEY-CLASSES-ROOT：存储整个系统对象类信息，如ActiveX对象注册、文件关联等信息。  
   
  　　HKEY-CURRENT-USER：存储当前用户的配置信息。为属性RootKey的默认值。  
    ......

有些时候,要写一些程序,在 JAVA 里面好难实现, 但如果使用其它编程语言却又比较容易时,我们不妨通过 JNI 来让不同语言的程序共同完成.
JNI 的教程, 网上 C 的比较多,Java 也提供了 javah.exe 为 C 语言的 JNI 程序生成头文件, 如果你是一个 Delphi 编程员, 能否让 JAVA 与 Delphi 程序交互呢? 答案是肯定的,今天我们就来看一下一个简单的例子.
Helloworld. 主要是来认识一下, JAVA 怎样调用 Delphi 程序的方法.
好的,我们先来创建一个类:
package alvinJNI;
class HelloWorld {
static {
System.loadLibrary("DelphiAction"); //等一下我们就用Delphi来编一个程序,编好之后生成的文件就是 DelphiAction.dll 这是一个动态链接库文件,这个类里先在静态语句块中加载它
}
public native void printText(); //声明一个 native 的本地代码程序,我们使用的是 Delphi 来编写.注意:这个方法在这里只是声明,并没有定义方法体,因为这个方法我们要用 Delphi 来实现.
public static void main(String[] args) {
//创建对象并调用里面的 native 方法.
HelloWorld hw = new HelloWorld();
hw.printText();
}
}
类写完编译后,接下来的事情就由 Delphi 来解决了
我们运行 De ......

有些时候,要写一些程序,在 JAVA 里面好难实现, 但如果使用其它编程语言却又比较容易时,我们不妨通过 JNI 来让不同语言的程序共同完成.
JNI 的教程, 网上 C 的比较多,Java 也提供了 javah.exe 为 C 语言的 JNI 程序生成头文件, 如果你是一个 Delphi 编程员, 能否让 JAVA 与 Delphi 程序交互呢? 答案是肯定的,今天我们就来看一下一个简单的例子.
Helloworld. 主要是来认识一下, JAVA 怎样调用 Delphi 程序的方法.
好的,我们先来创建一个类:
package alvinJNI;
class HelloWorld {
static {
System.loadLibrary("DelphiAction"); //等一下我们就用Delphi来编一个程序,编好之后生成的文件就是 DelphiAction.dll 这是一个动态链接库文件,这个类里先在静态语句块中加载它
}
public native void printText(); //声明一个 native 的本地代码程序,我们使用的是 Delphi 来编写.注意:这个方法在这里只是声明,并没有定义方法体,因为这个方法我们要用 Delphi 来实现.
public static void main(String[] args) {
//创建对象并调用里面的 native 方法.
HelloWorld hw = new HelloWorld();
hw.printText();
}
}
类写完编译后,接下来的事情就由 Delphi 来解决了
我们运行 De ......

在写c++的接口时可以将两个相互引用的类放在两个.h文件中，然后将这个接口翻译到delphi时，放在两个文件里就不可能了。只能放在同一个unit中。并且要将这两个类都放在同一个type下面进行定义，当前面一个类要使用后面一个类时，需要在前面一个类的前面放置一个前置声明，并且前置声明只能是IVariantMap = class;这种格式而不能是IVariantMap = class(TObject);形式。
unit XXX_variant;
interface
use XXX,XXX;
type
IVariantMap = class;
IVariantArray = class;
IVariant = class(CBaseSerial)
public
function SetMap(val: IVariantMap): Boolean; virtual; stdcall; abstract;
function SetArray(val: IVariantArray): Boolean; virtual; stdcall; abstract;
// XXXX
end;
IVariantArray = class
public
function GetElement(index: Cardinal): IVariant; virtual; stdcall; abstract;
//XXXX
end;
IVariantMap = class
public
function GetValue(const name: PChar): IVariant; virtual; stdcall; abstract;
//XXXX
end;
......

Delphi动态事件深入分析
2009-2-7
作者:不得闲
核心提示：本实验证明了在类中方法的调用时候，所有的方法都隐含了一个Self参数，并且该参数作为对象方法的第一个参数传递...
首先做一个空窗体，放入一Button。
在implementation下面声明两个方法如下：
//外部方法，只声明一个参数，此时按照标准的对象内部事件方法TNotifyEvent声明,此声明中，Sender则对应为产生该事件的对象指针。
procedure ExtClick1(Sender: TObject);
begin
{asm
mov eax,[edx+8]
call showmessage
end; }
showmessage(TComponent(Sender).Name);
end;

//外部方法，声明两个参数,用来证明，对象在调用时候会传递一个Self指针，此时我们假设Frm是通过类对象传递过来的Self指针，而Sender为产生该事件的对象指针
procedure ExtClick(Frm: TObject;Sender: TObject);
begin
{asm
mov eax,[edx+8]
call showmessage
end; }
showmessage(TComponent(Sender).Name);
if Frm is TForm then
TForm(Frm).Close
end;

//然后在 ‘指定调用’按扭事件中写代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
showme ......

15本Delphi书籍(PDF格式)下载 (转)

文件名:  Delphi组件参考大全.rar
下载地址:  http://www.rayfile.com/files/678ca1e3-f73f-11de-9d02-0014221b798a/
文件名:  Delphi信息系统开发实例精选.rar
下载地址:  http://www.rayfile.com/files/fb328f02-f73e-11de-8a76-0014221b798a/
文件名:  Delphi数据库系统开发完全手册.rar
下载地址:  http://www.rayfile.com/files/97443754-f73e-11de-984e-0014221b798a/
文件名:  DELPHI数据库系统开发案例精选.rar
下载地址:  http://www.rayfile.com/files/7088abc2-f73e-11de-9fe9-0014221b798a/

文件名:  Delphi数据库开发实例解析.rar
下载地址:  http://www.rayfile.com/files/e5ec6f75-f73d-11de-82ad-0014221b798a/

文件名:  Delphi开发经验技巧宝典.rar
下载地址:  http://www.rayfile.com/files/cba8ed9c-f73d-11de-a06f-0014221b798a/

文件名:  Delphi开发技术大全.rar
下载地址:  http://www.rayfile.com/files/9ff2c7ca-f73d-11de-9b6b-0014221b798a/

文件名:  DELPHI接口技术开发实例解析 ......

技术交流,DH讲解. 哈哈,我承认我是标题党.
最近看天书夜读里面是对C语言的代码反汇编,不错,可惜Delphi没有这样的书,那我们自己动手吧.
首先进入For循环了. Function TestFor( a, b: Integer ): Integer ;
Var
I: Integer ;
Begin
Result := a + b ;
For I := 0 To 49 Do
Result := Result + I ;
End ;
{$R *.dfm}
Procedure TForm1.btn1Click( Sender: TObject ) ;
Begin
ShowMessage( IntToStr( TestFor( 1, 2 ) ) ) ;
End ;
反汇编代码:
Unit4.pas.28: Result := a + b ;
00523AE0 03D0 add edx,eax //执行a+b,但是我很奇怪为什么不用add eax,edx 这样最后就不用执行那句mov eax,edx了,节约一句
Unit4.pas.29: For I := 0 To 49 Do
00523AE2 33C0 xor eax,eax //清除eax,来充当I这个循环变量
Unit4.pas.30: Result := Result + I ;
00523AE4 03D0 add edx,eax //累计和,并把循环变量+1,这里就是循环体的执行代码
00523AE6 40 inc eax
Unit4.pas.29: For I := 0 To 49 Do
00523AE7 83F832 cmp eax,$32 //边界比较,不等于就跳回去,继续执行循环体代码.
00523AE ......