Question

delphi怎么动态调用dll中的过程，而不是函数

最好给我个列子。

Answer 1

不太明白你的意思，但据我的理解，过程与函数从本质上说是一样的，过程可以视为没有返回值的函数。

Answer 2

假设你的dll名为：test.dll，里面有过程：procedure init()，则调用写法如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
procedure init;stdcall;External 'test.dll'; //在此声明引入dll函数，注意dll与程序在同一路径下

procedure TForm1.Button1Click(Sender: TObject);
begin
init;
end;

end;

Answer 3

函数和过程调用方法是一样的啊…… 在DLL中的函数和过程最后加入stdcall;

Answer 4

不是太理解你的意思，猜下，不知你问的是不是有关hook的？