ShowMessage('您选择了【'+info+'】')

- 编辑:365bet手机版 - 官网 -

ShowMessage('您选择了【'+info+'】')

这是DLL的代码
library MyDll;
uses  SysUtils,  Dialogs,  Classes;
procedure ShowInfo(info:PChar);stdcall;begin  ShowMessage('您选择了【'+info+'】');end;
function GetCaption:Pchar;begin  Result := '中国';end;
exports ShowInfo,                GetCaption;
{$R *.res}
beginend.

这是调用窗体的代码本例只使用了一个DLL,所以当有多个DLL时,需要循环DLL所在目录,依次加载DLL
unit Main;
interface
uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, Menus, ExtCtrls;
type  TShowInfo = procedure (info:PChar);stdcall;  TGetCaption = function : PChar;stdcall;

  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    MainMenu1: TMainMenu;    Image1: TImage;    procedure Button2Click(Sender: TObject);  private    { Private declarations }    FHandel : THandle;     //DLL句柄    FProAddress: Pointer;  //DLL中ShowInfo的地址    showinfo: TShowInfo;   //为动态加载DLL而设    procedure LoadPlusIn;  //加载插件(DLL)    procedure ItemClick(Sender: TObject);   //自定义菜单点击事件  public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);begin  LoadPlusIn;end;
procedure TForm1.ItemClick(Sender: TObject);begin  @showinfo := FProAddress;     //取地址  if @showinfo <> nil then    showinfo(PWideChar(TMenuItem(Sender).Caption));  //执行DLL中的ShowInfoend;
procedure TForm1.LoadPlusIn;var  getcaption: TGetCaption;  item : TMenuItem;begin  FHandel := LoadLibrary('MyDll.dll');   //加载  if FHandel = 0 then  begin    ShowMessage('加载失败!');    Exit;  end  else  begin    @getcaption := GetProcAddress(FHandel,'GetCaption');    //取DLL中GetCaption地址    if @getcaption <> nil then    begin      item := TMenuItem.Create(MainMenu1);    //创建一个菜单      item.Caption := getcaption;             //取Caption,即调用DLL中的GetCaption      FProAddress := GetProcAddress(FHandel,'ShowInfo');  //取得DLL中ShowInfo的地址      item.OnClick := ItemClick;              //赋予菜单项的点击事件      MainMenu1.Items.Add(item);              //添加到主菜单    end;
  end;end;
end.

本文由365bet官网手机版发布,转载请注明来源:ShowMessage('您选择了【'+info+'】')