Re: win32ada coverage

[Jerry van Dijk <jerry@jerryware.nl>]

xiehang@gmail.com writes:

> Yea I know the W/A trick, but the win32ada I have does not have
> LoadImageA nor LoadImageW.
>
> Does your version of win32ada have them?

I assumed so since I used them before, but checking GNAT 2008 they are indeed
missing. Assumptions are always bad! :-)

Anyway, since the functions are in the import library, it is easy to define an
extra package for our own API definitions, see below. Untested, us at your own
risk, blah, blah. Note that you might have to add some constant definitions.

--                              -*- Mode: Ada -*-
--  Filename        : win32-addon.ads
--  Description     : Module to add missing API stuff to win32ada
--  Author          : Jerry van Dijk
--  Created On      : Sun Apr 05 12:02:59 2009
--  Last Modified By: .
--  Last Modified On: .
--  Update Count    : 0
--  Status          : Unknown, Use with caution!
-------------------------------------------------------------------------------

with Win32;
With Win32.Winnt;
with Win32.Windef;

package Win32.AddOn is

   --------------------------
   --  LoadImage function  --
   --------------------------

   function LoadImageA (hInst     : Win32.Windef.HINSTANCE;
                        lpszName  : Win32.Winnt.LPCTSTR;
                        uType     : Win32.UINT;
                        cxDesired : Win32.INT;
                        cyDesired : Win32.INT;
                        FuLoad    : Win32.UINT) return Win32.Winnt.HANDLE;

   function LoadImageW (hInst     : Win32.Windef.HINSTANCE;
                        lpszName  : Win32.Winnt.LPCTSTR;
                        uType     : Win32.UINT;
                        cxDesired : Win32.INT;
                        cyDesired : Win32.INT;
                        fuLoad    : Win32.UINT) return Win32.Winnt.HANDLE;

   function LoadImage (hInst     : Win32.Windef.HINSTANCE;
                       lpszName  : Win32.Winnt.LPCTSTR;
                       uType     : Win32.UINT;
                       cxDesired : Win32.INT;
                       cyDesired : Win32.INT;
                       fuLoad    : Win32.UINT) return Win32.Winnt.HANDLE
     renames LoadImageA;

private

   --  import from user32.a
   pragma Import (StdCall, LoadImageA, "LoadImagaA");
   pragma Import (StdCall, LoadImageW, "LoadImagaW");

end Win32.AddOn;

-- 
--  Jerry van Dijk
--  Leiden, Holland
--
--  The early bird may get the worm, but the second mouse gets the cheese!!