沒理由的,將上例得到的地址代進去,下面的代碼正常運行.<br>procedure TForm1.Button1Click(Sender: TObject);<br>type<br> TMessageBox=function (hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall;<br>var<br> Msg_Box:TMessageBox;<br>begin<br> Msg_Box:=Pointer(2011378265); //將地址代進去.<br> Msg_Box(Handle,'Hello','test',0);<br>end;