home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch21code / sysdecl.bas < prev    next >
Encoding:
BASIC Source File  |  1994-10-27  |  1015 b   |  26 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. ' Declare Windows API functions for finding running applicaitons.
  5. Declare Function GetNextWindow Lib "User" _
  6.     (ByVal hWnd As Integer, ByVal wFlag As Integer) As Integer
  7. Declare Function GetActiveWindow Lib "User" () As Integer
  8. Declare Function GetWindowText Lib "User" _
  9.     (ByVal hWnd As Integer, ByVal lpString As String, ByVal aint As Integer) As Integer
  10. Public Const GW_HWNDNEXT = 2
  11.  
  12. ' Declare Windows API functions for checking system configuration.
  13. Declare Function GlobalCompact Lib "Kernel" (ByVal dwMinFree As Long) As Long
  14. Declare Function GetWinFlags Lib "Kernel" () As Long
  15. Public Const WF_CPU286 = &h2
  16. Public Const WF_CPU386 = &h4
  17. Public Const WF_CPU486 = &h8
  18.  
  19. ' DeclareWindows API functions for showing invisible instances of applications.
  20. Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  21. Public Const SW_SHOW = 5
  22.  
  23. Sub main()
  24.     ' Form1.WindowState = vbMinimized
  25. End Sub
  26.