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