【分享】Delphi调用dll窗体

阿杰 · 发表于 2009-7-26 13:42:52

一、dll建立
（一）dll文件
library sharefaxcnv;

uses
SysUtils,
Classes,
uTest in 'uTest.pas' {frmTest};

procedure ShowTest();stdcall;
var
f:TfrmTest;
begin
f:=TfrmTest.Create(nil);
try
   f.ShowModal;
finally
   f.Free;
end;
end;

{$R *.res}

exports
ShowTest;


begin
end.
----------------------------------------------------------
（二）dll中的窗体单元
unit uTest;

interface

uses
Windows, SysUtils, Controls, Forms;

type
TfrmTest = class(TForm)
private
    { Private declarations }
public
    { Public declarations }
end;

var
frmTest: TfrmTest;

implementation

{$R *.dfm}

end.
-----------------------------------------------------------
二、调用主程序
（一）调用DLL的DPR
program Pmain;

uses
Sharemem ,Forms,
main in 'main.pas' {Form1};//要加入Sharemem,否则主程序退出出错。

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.


（二）DPR单元文件
unit main;

interface

uses
Windows, SysUtils, Classes, Controls, Forms, StdCtrls;

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

var
Form1: TForm1;
｛静态调用时
procedure ShowTest;stdcall;external 'sharefaxcnv.dll';
}
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

type
mypointer=Procedure();stdcall;
var
Handle:THandle;
frm_p:mypointer;
begin
Handle:=loadlibrary('sharefaxcnv.dll');
if Handle>32 then
begin
     frm_p:=GetProcAddress(Handle,'ShowTest');
     if @frm_p<>nil then frm_p;
end;
Freelibrary(Handle);
end;
｛静态调用
begin
ShowTest;
end;
｝
end.

upring · 发表于 2015-5-9 12:32:55

帖子乱码了大侠

账号		自动登录	找回密码
密码			加入我们

【分享】Delphi调用dll窗体

贡献奖

关注奖

人气王

精英奖

乐于助人勋章