rsapihead.pas

用DLL中封装MDI,在DLL文件中封装MDI

unit rsApiHead;

interface

uses
  Windows;

type
  PCallDllProc=^TCallDllProc;
  TCallDllProc=record
    HostAppHwnd:HWND;
    HostAppMainf:LongInt;
    HostScreen:LongInt;
    HostDataMdl:LongInt;
    Sql:string;
    wPower:Word;
    wParam:Integer;
    lParam:Integer;
    Reserved:Integer;
  end;

function InitDllForm1(CallDllProc:PCallDllProc):Integer;stdcall;

implementation

function InitDllForm1; external '.\DllForm1\Form1.dll' name 'InitDllForm1' ;

end.