home *** CD-ROM | disk | FTP | other *** search
/ Dan Appleman's Visual Bas…s Guide to the Win32 API / Dan.Applmans.Visual.Basic.5.0.Programmers.Guide.To.The.Win32.API.1997.Ziff-Davis.Press.CD / VB5PG32.mdf / articles / vbbultn / source / th_rt_m.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-06  |  2.2 KB  |  53 lines
  1. Option Explicit
  2. Global Const NORMAL = 0
  3. Global Const MINIMIZED = 1
  4. Global Const MAXIMIZED = 2
  5. Global Const WM_WINDOWPOSCHANGING = &H46
  6. Global Const WM_SYSCOMMAND = &H112
  7. Global Const SWP_NOCOPYBITS = &H100
  8. Global Const SC_MINIMIZE = &HF020
  9. Global Const SC_MAXIMIZE = &HF030
  10. Global Const SC_RESTORE = &HF120
  11. Global Const SW_HIDE = 0
  12. Global Const SW_SHOWNORMAL = 1
  13. Global Const SW_NORMAL = 1
  14. Global Const SW_SHOWMINIMIZED = 2
  15. Global Const SW_SHOWMAXIMIZED = 3
  16. Global Const SW_MAXIMIZE = 3
  17. Global Const SW_SHOWNOACTIVATE = 4
  18. Global Const SW_SHOW = 5
  19. Global Const SW_MINIMIZE = 6
  20. Global Const SW_SHOWMINNOACTIVE = 7
  21. Global Const SW_SHOWNA = 8
  22. Global Const SW_RESTORE = 9
  23.  
  24. Global Const THUNDERRTMAINSTRING = "ThunderRTMain"
  25.  
  26. ' WM_WINDOWPOSCHANGING/CHANGED struct pointed to by lParam
  27. Type WINDOWPOS
  28.     hWnd As Integer
  29.     hwndInsertAfter As Integer
  30.     x As Integer
  31.     y As Integer
  32.     cx As Integer
  33.     cy As Integer
  34.     flags As Integer
  35. End Type
  36.  
  37. Declare Function GetCurrentTask% Lib "kernel" ()
  38. Declare Function IsIconic% Lib "User" (ByVal hWnd%)
  39. Declare Function IsZoomed% Lib "User" (ByVal hWnd%)
  40. Declare Function EnumTaskWindows% Lib "User" (ByVal htask%, ByVal lpEnumFunc&, ByVal lParam&)
  41. Declare Sub SetWindowPos Lib "user" (ByVal hWnd%, ByVal hwndafter%, ByVal x%, ByVal y%, ByVal cx%, ByVal cy%, ByVal fuflags%)
  42. Declare Function SendMessage& Lib "User" (ByVal hWnd%, ByVal msg%, ByVal wp%, lp As Any)
  43. Declare Function SendMessageBynum& Lib "User" Alias "SendMessage" (ByVal hWnd%, ByVal msg%, ByVal wp%, ByVal lp&)
  44. Declare Function PostMessage% Lib "User" (ByVal hWnd%, ByVal msg%, ByVal wp%, lp As Any)
  45. Declare Function PostMessageBynum% Lib "User" Alias "PostMessage" (ByVal hWnd%, ByVal msg%, ByVal wp%, ByVal lp&)
  46. Declare Function ShowWindow% Lib "User" (ByVal hWnd%, ByVal wflags%)
  47. Declare Function GetClassName% Lib "User" (ByVal hWnd%, ByVal lpstr$, ByVal strlen%)
  48.  
  49. Declare Function dwGetAddressForObject& Lib "dwspydll.dll" (object As Any)
  50. Declare Sub dwCopyData Lib "dwspydll.dll" (source As Any, dest As Any, ByVal nCount%)
  51. Declare Sub dwCopyDataBynum Lib "dwspydll.dll" Alias "dwCopyData" (ByVal source&, ByVal dest&, ByVal nCount%)
  52.  
  53.