mainform.pas

用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABASE 到SQL服务器

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, fBaseMain, Menus, ExtCtrls, ComCtrls, Buttons, wwSpeedButton,
  wwDBNavigator, wwclearpanel, ToolWin, ImgList, StdCtrls, StdActns,
  DBActns, ActnList;

type
  TfMainform = class(TfBaseMainform)
    procedure N47Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMainform: TfMainform;
     dllHandle:HWND;

implementation

{$R *.dfm}

procedure TfMainform.N47Click(Sender: TObject);
type
   TIniFunc=function(MEnuitem:TMainmenu):Integer; stdCall;
var
     IniFunc:TIniFunc;
    dllFile:string;
begin
  inherited;
  dllFile:=ExtractFileDir(Application.ExeName)+'\Dll\testFunc.dll';
  dllHandle:=loadLibrary(PChar(dllFile));
 if dllHandle<>0 then
  IniFunc:=getProcAddress(dllHandle,'AddMenuItem');
  if @IniFunc<>nil then
  iniFunc(MainMenu);

end;

end.