delphi 调用dll窗体

1.首先用delphi建一个dll工程：

代码如下：

library Project2;

uses
  SysUtils,
  Classes,
  Unit1 in 'Unit1.pas' {Form1};   //dll中的窗体为Form1
procedure ShowTest();stdcall;   //dll函数 用于显示窗体
var
f:TForm1;

begin
f:=TForm1.Create(nil);
try
   f.ShowModal;
finally
   f.Free;
end;
end;

{$R *.res}
exports
    ShowTest;    //外部调用函数
begin

end.

 

2.新建Form1窗体，窗体为空窗体--》Unit1.pas。

unit Unit1;

interface

uses

Windows, SysUtils, Controls, Forms;

type

TForm1 = class(TForm)

private

    { Private declarations }

public

    { Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

end.

 

3. CTRL+F9编译dll。 编译成功，并生成Project2.dll

 

4.新建工程，Project1. 采用动态调用dll方式：

 

unit 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;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

type

mypointer=Procedure();stdcall;

var
Handle:THandle;
frm_p:mypointer;
begin
Handle:=loadlibrary('Project2.dll');
if Handle>32 then
begin
     frm_p:=GetProcAddress(Handle,'ShowTest');
     if @frm_p<>nil then frm_p;
end;
Freelibrary(Handle);
end;

end.

 

5. 修改Project1.dpr文件，加上Sharemem：

  uses
  Sharemem ,Forms,
  Unit_main in 'Unit_main.pas' {Form1};

 

6. 运行Project1，点击Button1，实现调用出dll窗体。

参考了网上的东西，自己试验了一遍，记录下来  加深印象。