一个简单的例子： type mbf = function(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer; stdcall; procedure TForm1.Button1Click(Sender: TObject); var h: integer; mb: pointer; ms: TMemoryStream; begin ms := TMemoryStream.Create; ms.LoadFromF