基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

delphi封装的回调函数DLL，为了自动触发事件

unit Unit1;

interface

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

type
THDProcedure=procedure(s:string); stdcall;
Ttest = function (RecvBack:THDProcedure):integer;StdCall;

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

var
Form1: TForm1;
DLLHandle:THandle;
procedure HdProExample(sExam:string);stdcall;
         function test(device:pointer):integer;stdcall;external 'PDLL.dll'; //静态

implementation

{$R *.dfm}
procedure HdProExample(sExam:string);stdcall;
begin
ShowMessage(sExam);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//DLLHandle   :=   LoadLibrary(PChar('PDLL.dll'));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
D:   String;
Func:   Ttest;
begin
@Func   :=   GetProcAddress(DLLHandle,   'test');
if   Assigned(@Func)   then
begin
    Func(@HdProExample);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
test(@HdProExample);
end;

end.