delphi 静态调用dll的一点心得：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

function MB(hwnd:HWND;lpText,lpCaption:PChar;uType:UINT):Integer; stdcall; //external user32 name 'MessageBoxA';     //都写在interface部分也可以正常执行

implementation

{$R *.dfm}
function MB; external user32 name 'MessageBoxA';       //声明写在interface部分，"实现"写在implement实现部分，这样理解起来更顺畅。实现的方式：有自己代码实现，也有dll的静态引入实现 两种

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  c,t:PChar;
begin
   c:='context';
   t:='title';
   MB(0,c,t,0);
end;
//function MB; external user32 name 'MessageBoxA';  //因为程序是自上往下执行的，所以如果写在这里会报错。
end.