RSS订阅 | 匿名投稿
您的位置:网站首页 > Dll > 正文

delphi 调用DLL文件中的FORM

作者:admin 来源: 日期:2011/8/17 10:30:01 人气: 标签:

 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;


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: