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}  begin end. 

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中的ShowInfo end;  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.