动态链接库的问题,各位大虾帮帮忙 ( 积分: 50 )

我爱豆腐 · 2005-01-25

利用动态链接库怎样实现窗体间的互相调用?请给个具体的例子,能介绍本关于DLL编程的教程更是感激不尽

我爱豆腐 · 2005-01-25

利用动态链接库怎样实现窗体间的互相调用?请给个具体的例子,能介绍本关于DLL编程的教程更是感激不尽

summer_wzx · 2005-01-25

调用DLL文件中的FORM 调用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 &lt; 32 then    begin      MessageBox(0, Pchar('没有找到'+DllFileName+'DLL文件！'),'加载DLL失败', MB_OK);      Exit;    end;    @RunForm := GetProcAddress(GetDllHWND,pchar(methodName));    if @RunForm &lt;&gt; 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; .... 上面的例子没有释放过程,自己最后别忘了 取消注册

我爱豆腐 · 2005-01-29

谢谢这个兄台指教，忠心的感谢，小弟我初来乍到，希望以后多帮帮我

动态链接库的问题,各位大虾帮帮忙 ( 积分: 50 )

我爱豆腐

Unregistered / Unconfirmed

我爱豆腐

Unregistered / Unconfirmed

summer_wzx

Unregistered / Unconfirmed

我爱豆腐

Unregistered / Unconfirmed

Similar threads