麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁(yè) > 編程 > Delphi > 正文

delphi中一個(gè)值得大家來(lái)考慮的DLL問(wèn)題

2020-01-31 20:52:35
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友

以下是我的原代碼:
==========================================================================================
DPR  單元代碼
program 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.
===============================================================================================
主窗體代碼:
unit UMdiform;
interface
uses
  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.
==============================================================================================
子窗體DLL代碼:
library MdiChild;
uses
  ShareMem,
  UMdiform,  //此單元為父窗體單元,在頂目設(shè)置中我已經(jīng)設(shè)置了搜索此單元在路徑。
  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);   //程序就出錯(cuò)在此:出錯(cuò)原因是:Cannot create form. No MDI Forms are currently active.
  FrmChild.Show;
end;
exports
    _ShowTestMng;
end.
發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板: 双性帝王调教跪撅打屁股 | 国产在线一区二区三区 | 久久思思爱 | 日本网站在线看 | 精品久久久91 | 久草在线视频免费播放 | 免费在线观看毛片视频 | 49vvv| 欧美女人天堂 | 羞羞视频入口 | 久久久久久中文字幕 | 国产jjizz一区二区三区视频 | 91精品国产乱码久久久久久久久 | 99精品视频免费 | 国产激情精品一区二区三区 | 国产四区 | 青青草成人免费视频在线 | 国产欧美亚洲精品 | 最新中文字幕免费视频 | 国产日韩a | 55夜色66夜色国产精品视频 | 深夜福利视频免费观看 | 9191色| av成人免费看 | 欧美成人一级 | 成人在线第一页 | 亚洲成人午夜精品 | 国产精品视频免费网站 | 中文字幕亚洲情99在线 | 国产精品久久久久久久av | 国产精品av久久久久久无 | 欧美精品a∨在线观看不卡 午夜精品影院 | 免费观看一区 | 中国漂亮护士一级a毛片 | 九九综合视频 | 成年人毛片视频 | 一级毛片在线免费观看视频 | 九九热在线免费观看视频 | 国产精品区在线12p 午夜视频色 | 精品国产一区二区三区久久久 | 一级做a爱片毛片免费 |