用DELPHI建立DLL檔案,封裝窗體的實現方法例項: 即一個程式不再是單一的一個EXE檔案了,而是由一個EXE檔案加N個DLL檔案組成,這樣做的原因是方便以後的維護與更新,也是跨平臺開發的重要一步。
1, 開啟DELPHI,新建一個Dll Wizard
2, 在新建的Dll裡新建一個Form
3, 在新建的Form裡uses stdctrls
4, 在var下面寫: Procedure synapp(App:THandle);stdcall; Procedure showform;stdcall;
5, 然後在implementation 下面uses math
6, 在{$R *.dfm}下面寫 Procedure synapp(App:THandle);stdcall; Begin Application.Handle:=app; End; Procedure showform;stdcall; Begin Form1:=Tform1.create(application); Form1.show; End;
7, 在dll的Library檔案裡的{$R *.res}下面寫: exports Sysapp,show; 上面到此為止完成了DLL封裝窗體的建立 下面是呼叫了 1, 在要呼叫DLL檔案的程式的var下寫: Procedure synapp(App:THandle);stdcall;external ‘my.dll’ ;//----你的DLL檔名 Procedure showform;stdcall;external‘my.dll’;//----你的DLL檔名 注:把你寫好的DLL放在本程式的同一目錄下,和上面一樣,要uses math; 2, 在你的程式的Button的On Click事件下寫: Synapp(applicatiln.Handle); Showform...
用DELPHI建立DLL檔案,封裝窗體的實現方法例項: 即一個程式不再是單一的一個EXE檔案了,而是由一個EXE檔案加N個DLL檔案組成,這樣做的原因是方便以後的維護與更新,也是跨平臺開發的重要一步。
1, 開啟DELPHI,新建一個Dll Wizard
2, 在新建的Dll裡新建一個Form
3, 在新建的Form裡uses stdctrls
4, 在var下面寫: Procedure synapp(App:THandle);stdcall; Procedure showform;stdcall;
5, 然後在implementation 下面uses math
6, 在{$R *.dfm}下面寫 Procedure synapp(App:THandle);stdcall; Begin Application.Handle:=app; End; Procedure showform;stdcall; Begin Form1:=Tform1.create(application); Form1.show; End;
7, 在dll的Library檔案裡的{$R *.res}下面寫: exports Sysapp,show; 上面到此為止完成了DLL封裝窗體的建立 下面是呼叫了 1, 在要呼叫DLL檔案的程式的var下寫: Procedure synapp(App:THandle);stdcall;external ‘my.dll’ ;//----你的DLL檔名 Procedure showform;stdcall;external‘my.dll’;//----你的DLL檔名 注:把你寫好的DLL放在本程式的同一目錄下,和上面一樣,要uses math; 2, 在你的程式的Button的On Click事件下寫: Synapp(applicatiln.Handle); Showform...