delphi 에서 여러분 이 고려 해 야 할 DLL 문제 입 니 다.

2017 단어 delphiDLL
다음은 나의 원래 코드:===========================================================================================================  유닛 코드 프로그램 Mdiform;uses  Forms,  UMdiform in ´UMdiform.pas´ {Mainform},  UDM in ´UDM.pas´ {GlobalDM: TDataModule},  UFun in ´UFun.pas´;{$R *.res}begin  Application.Initialize;  Application.CreateForm(TMainform, Mainform);  Application.Run;end.====================================================================================================================================== UMdiform;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, Udm,StdCtrls;type  TMainform = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public     MyHandle:HWND;    { Public declarations }  end;var  Mainform: TMainform;type  T_ShowTestMng=function (var adm:TMainform) : Boolean; StdCall;implementation{$R *.dfm}procedure TMainform.Button1Click(Sender: TObject);var   Lib_         :THandle;  _ShowTestMng :T_ShowTestMng;begin  Lib_:=LoadLibrary(pchar(´MdiChild.dll´));  try    @_ShowTestMng:=GetProcAddress(Lib_,´_ShowTestMng´);    if not(@_ShowTestMng=nil) then      _ShowTestMng(Mainform);  finally    FreeLibrary(Lib_);  end;end;procedure TMainform.FormCreate(Sender: TObject);begin MyHandle:=Application.Handle;end;end.============================================================================================================================= MdiChild;uses  ShareMem,  UMdiform,  //이 단원 은 부모 창 단위 입 니 다.맨 위 설정 에서 이 단원 을 검색 하 는 경 로 를 설 정 했 습 니 다.  Forms,  SysUtils,  Classes,  UChild in ´UChild.pas´ {FrmChild};//FrmChild 하위 창의 FormStyle 속성 은 FsMDIChild{$R 입 니 다. *.res}function _ShowTestMng(var adm:TMainform) : Boolean; StdCall;begin  result:=true;  Application.Handle:=adm.MyHandle;  Application.CreateForm(TFrmChild,FrmChild);   //프로그램 오류:오류 원인:Cannot create form. No MDI Forms are currently active.  FrmChild.Show;end;exports    _ShowTestMng;end.

좋은 웹페이지 즐겨찾기