您的位置:首页 > 编程语言 > Delphi

Delphi 调用DLL中的窗体

2013-08-02 11:51 211 查看
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;
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: