home *** CD-ROM | disk | FTP | other *** search
/ Solo Programadores 22 / SOLO_22.iso / packages / win32ada / data.z / init.ads < prev    next >
Encoding:
Text File  |  1996-03-15  |  1.8 KB  |  46 lines
  1. -- $Source: /home/harp/1/proto/monoBANK/winnt/init.ads,v $ 
  2. -- $Revision: 1.3 $ $Date: 96/03/15 13:52:09 $ $Author: stm $ 
  3. -- $Id: init.ads 1.2 1995/01/25 15:55:04 teg Exp teg $
  4. --
  5. --  package Init specification
  6. --  
  7. --  Based on init.c
  8. --
  9.  
  10. with Win32;
  11. with Win32.WinDef;
  12. with Win32.Winnt;
  13.  
  14. package Init is
  15.  
  16.   function RegisterAppClass (hInst : Win32.Windef.HINSTANCE) return Win32.BOOL;
  17.  
  18.   procedure UnregisterAppClass (hInst : Win32.Windef.HINSTANCE); 
  19.  
  20.   function CreateAppWindow (hInst : Win32.Windef.HINSTANCE) return 
  21.                                                         Win32.WinDef.HWND;
  22.  
  23.   function CreateMDIClientWindow (hWndFrame : Win32.WinDef.HWND)
  24.                                               return Win32.WinDef.HWND;
  25.  
  26. -------------------------------------------------------------------------------
  27. --
  28. -- THIS FILE AND ANY ASSOCIATED DOCUMENTATION IS PROVIDED WITHOUT CHARGE
  29. -- "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING
  30. -- BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
  31. -- FITNESS FOR A PARTICULAR PURPOSE.  The user assumes the entire risk as to
  32. -- the accuracy and the use of this file.  This file may be used, copied,
  33. -- modified and distributed only by licensees of Microsoft Corporation's
  34. -- WIN32 Software Development Kit in accordance with the terms of the 
  35. -- licensee's End-User License Agreement for Microsoft Software for the
  36. -- WIN32 Development Kit.
  37. --
  38. -- Copyright (c) Intermetrics, Inc. 1995
  39. -- Portions (c) 1985-1994 Microsoft Corporation with permission.
  40. -- Microsoft is a registered trademark and Windows and Windows NT are
  41. -- trademarks of Microsoft Corporation.
  42. --
  43. -------------------------------------------------------------------------------
  44.  
  45. end Init;
  46.