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 >
Wrap
BASIC Source File
|
1994-10-27
|
1KB
|
26 lines
Attribute VB_Name = "Module1"
Option Explicit
' Declare Windows API functions for finding running applicaitons.
Declare Function GetNextWindow Lib "User" _
(ByVal hWnd As Integer, ByVal wFlag As Integer) As Integer
Declare Function GetActiveWindow Lib "User" () As Integer
Declare Function GetWindowText Lib "User" _
(ByVal hWnd As Integer, ByVal lpString As String, ByVal aint As Integer) As Integer
Public Const GW_HWNDNEXT = 2
' Declare Windows API functions for checking system configuration.
Declare Function GlobalCompact Lib "Kernel" (ByVal dwMinFree As Long) As Long
Declare Function GetWinFlags Lib "Kernel" () As Long
Public Const WF_CPU286 = &h2
Public Const WF_CPU386 = &h4
Public Const WF_CPU486 = &h8
' DeclareWindows API functions for showing invisible instances of applications.
Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
Public Const SW_SHOW = 5
Sub main()
' Form1.WindowState = vbMinimized
End Sub