delphi exe轉(zhuǎn)成dll
1．生成或打開(kāi)工程文件（.DPR）
2．選擇VIEW菜單的 Project Manager 子菜單,，選中PROJECTGROUP,，點(diǎn)擊NEW按紐新建一個(gè).dll文件；
3．存盤,，改變工程組和.DLL文件的名稱,，存盤成功后到目前為止已經(jīng)生成了一個(gè)工程組，這個(gè)組由.dll和.exe組成,；
4．把EXE工程文件中的所有.pas文件加入到DLL工程中：點(diǎn)擊工具欄上的此按紐 ,。
5．.打開(kāi)工程組文件可，選擇VIEW-->Project Manager 子菜單,選中.exe文件或.dll文件點(diǎn)擊active,，可互相切換,。
6．打開(kāi).dll，選擇菜單project-->View Source,，生成EXPERT函數(shù)：（紅色字為手工輸入的部分）供外部程序調(diào)用。
library Pro_simk_kkgl_dll;
uses
SysUtils,
Classes,
Forms,
simk_kkgl in 'simk_kkgl.pas' {Form_kkgl};
{$R *.RES}
function fun_name(formpointer:pointer):integer;
begin
Application.CreateForm(Tkglform,kglform);//創(chuàng)建自己的模塊窗體
mainf := formpointer;
kglForm.free;
result := 0;
end;
exports fun_name;//定義出口函數(shù)
begin
end.
說(shuō)明：
1)
maif是一個(gè)在DLL工程中定義的一個(gè)全局的指針,，指向公共的窗口
mainf：^Tpublicform; publicform中有公共的函數(shù)或參數(shù),，可以通過(guò)
mainf ^ . 調(diào)用；如：mainf ^.Czygh(得到操作員工號(hào))
2)
開(kāi)發(fā)調(diào)試過(guò)程中,，需要公共窗口提供的所有參數(shù),，要在EXE工程文件中（不要定義在,。Pas文件中）賦好初值：
例如：
program Pro_simk_kkgl;
uses
Forms,
simk_kkgl in 'simk_kkgl.pas' {Form_kkgl},
mypubfun in '..\ mypubfun.pas' {Form1},
mypubfuc in '..\ mypubfuc.pas',
pubfunc in '..\pubfunc.pas' {Form_pubfunc};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm_kkgl, Form_kkgl);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm_pubfunc, Form_pubfunc);
mainf := @Form_pubfunc;
mainf^.czygh := 'exetext';
Application.Run;
end.
即可運(yùn)行調(diào)試程序。
希望以上能對(duì)你們有幫助 |
|
