调用DLL文件中的FORM

类别:Delphi 点击:0 评论:0 推荐:

作者:e梦缘

好久发表文章了!!!

调用DLL文件中的FORM,具体实现过程如下:

library Project1; uses SysUtils, Classes,Forms,windows,dialogs, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} function showform(formname:string):boolean;stdcall; var TheClass: TPersistentClass; aForm: TForm; begin result:=false; {如果您的Dll中有很多FORM,请在这儿注册哦 RegisterClasses([TForm1,TForm2,TForm3,...]); } RegisterClasses([TForm1]); TheClass := GetClass('T' + FormName); if (TheClass = nil) then exit; if TheClass.InheritsFrom(TForm) then begin aForm := Tform(TheClass.Create).Create(nil); try aForm.ShowModal; result:=true; finally FreeAndNil(aForm); end; end; end; exports showform; begin end.

.... procedure RunDllForm(const DllFileName,DllFormName:String;const methodName:string); type TRunForm=function(formname:string):boolean;stdcall; var RunForm: TRunForm; GetDllHWND: HWND; begin GetDllHWND := LoadLibrary(PChar(DllFileName)); try if GetDllHWND < 32 then begin MessageBox(0, Pchar('没有找到'+DllFileName+'DLL文件!'),'加载DLL失败', MB_OK); Exit; end; @RunForm := GetProcAddress(GetDllHWND,pchar(methodName)); if @RunForm <> nil then try RunForm(DllFormName); except raise Exception.Create('对不起,找不到T' + DllFormName+ '窗体!'); end else raise Exception.Create('无效的方法名调用'); finally FreeLibrary(GetDllHWND); end; end; procedure TForm1.Button1Click(Sender: TObject); begin RunDllForm('project1.dll','form1','showform'); end; ....

本文地址:http://com.8s8s.com/it/it5003.htm