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 / coop.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-06  |  1.1 KB  |  26 lines
  1. Option Explicit
  2.  
  3. Type CoopStructure
  4.     CompanyName As String * 24
  5.     Count As Integer
  6.     Amount As Currency
  7.     Total As Single
  8. End Type
  9.  
  10. Global Const COOP_MESSAGE = "Coop_Private_Message"
  11. Global Const THUNDERRTMAIN = "ThunderRTMain"
  12. Global Const GWW_HINSTANCE = -6
  13.  
  14. Declare Sub dwCopyDataBynum Lib "dwspydll.dll" Alias "dwCopyData" (ByVal Source&, ByVal dest&, ByVal nCount%)
  15. Declare Function dwGetAddressForObject& Lib "dwspydll.dll" (object As Any)
  16.  
  17. Declare Function RegisterWindowMessage% Lib "User" (ByVal frmsgstr$)
  18. Declare Function EnumWindows% Lib "User" (ByVal lpEnumFunc&, ByVal lParam&)
  19. Declare Function GetWindowWord% Lib "user" (ByVal hWnd%, ByVal offset%)
  20. Declare Function SendMessage% Lib "user" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, lParam As Any)
  21. Declare Function SendMessageBynum& Lib "User" Alias "SendMessage" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
  22. Declare Function GetWindow% Lib "User" (ByVal hWnd%, ByVal wCmd%)
  23. Declare Function GetWindowTask% Lib "User" (ByVal hWnd%)
  24. Declare Function GetClassName% Lib "User" (ByVal hWnd%, ByVal lpstr$, ByVal strlen%)
  25.  
  26.