Delphi DLL中封裝窗體(將EXE轉換爲DLL)-2

一、打開項目文件(.DPR)，刪除單元底部begin和end.之間的所有語句（一般情況下這些語句是由Delphi自動生成的）。

 

 二、更改頭部 program 類型
 將 program 改爲 library  

 

三、可以在單元底部的begin語句之前加入自己定義的其他函數或者過程，用於輸出。添加主窗體的輸出函數：

 

library Mydll;
uses
SysUtils,   //注意該單元
Classes,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
//---------------------------------------------------代碼開始
procedure ShowForm; stdcall;
var
Form1:TForm1;
begin
Form1 := TForm1.Create(nil);
Form1.ShowModal;
FreeAndNil(Form1);
end;
exports
ShowForm;                     //定義出口函數
//----------------------------------------------------代碼結束
begin
end.

 

三、在主窗體中調用DLL

//++++++++++++++++++++++++++++++++++++++++++++++
//         主程序調用
//+++++++++++++++++++++++++++++++++++++++++++++++
unit Unit2;
interface
uses
type
var
Form2: TForm2;
procedure ShowForm; stdcall; external 'Mydll.dll';  //調用mydll.dll
implementation
{$R *.dfm}