如何在64位GNAT GPS的新方式下与Windows系统调用接口？

with Interfaces.C;
with Interfaces.C.Strings;

procedure Windows_Interface is
   pragma Import (C, MessageBox, "MessageBoxA");
   pragma Import (C, GetModuleHandle, "GetModuleHandleA");

   function MessageBox
     (HWnd    : Interfaces.C.unsigned_long;
      Text    : Interfaces.C.Strings.chars_ptr;
      Caption : Interfaces.C.Strings.chars_ptr;
      Type    : Interfaces.C.int)
      return Interfaces.C.int;

   function GetModuleHandle
     (ModuleName : Interfaces.C.Strings.chars_ptr)
      return Interfaces.C.unsigned_long;

   -- 其他与Windows系统调用接口相关的函数声明

   -- 在这里编写调用Windows系统调用接口的代码
begin
   -- 调用MessageBox函数
   MessageBox (GetModuleHandle (null), "Hello", "Message", 0);
end Windows_Interface;