1 unit Unit1; 2 3 interface 4 5 uses 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 7 Dialogs, StdCtrls, Buttons; 8 9 type 10 TForm1 = class(TForm) 11 BitBtn1: TBitBtn; 12 procedure BitBtn1Click(Sender: TObject); 13 private 14 { Private declarations } 15 public 16 { Public declarations } 17 end; 18 19 var 20 Form1: TForm1; 21 22 function MB(hwnd:HWND;lpText,lpCaption:PChar;uType:UINT):Integer; stdcall; //external user32 name 'MessageBoxA'; //都写在interface部分也可以正常执行 23 24 implementation 25 26 {$R *.dfm} 27 function MB; external user32 name 'MessageBoxA'; //声明写在interface部分，"实现"写在implement实现部分，这样理解起来更顺畅。实现的方式：有自己代码实现，也有dll的静态引入实现 两种 28 29 procedure TForm1.BitBtn1Click(Sender: TObject); 30 var 31 c,t:PChar; 32 begin 33 c:='context'; 34 t:='title'; 35 MB(0,c,t,0); 36 end; 37 //function MB; external user32 name 'MessageBoxA'; //因为程序是自上往下执行的，所以如果写在这里会报错。 38 end.