?? mainform.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -