home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Nexcon_She886135302002.psc / modDeclare.bas < prev    next >
Encoding:
BASIC Source File  |  2002-05-31  |  2.7 KB  |  77 lines
  1. Attribute VB_Name = "modDeclare"
  2. Global MsgBoxDone As Boolean
  3. Global SM_1 As Boolean
  4. Global SM_2 As Boolean
  5. Global SM_1P As String
  6. Global SM_2P As String
  7. Global varPassword As String
  8. Global varResults As String
  9. Global varComputerName As String
  10. Global varConnectTo As String
  11. Global strAdminPass As String
  12.  
  13. Declare Function EnumDisplaySettings Lib "user32" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As Long, ByVal iModeNum As Long, lpDevMode As Any) As Boolean
  14. Declare Function ChangeDisplaySettings Lib "user32" Alias "ChangeDisplaySettingsA" (pDevMode As Any, ByVal dwFlags As Long) As Long
  15.  
  16. Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
  17.  
  18. Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  19. Public Const EWX_LOGOFF = 0
  20. Public Const EWX_SHUTDOWN = 1
  21. Public Const EWX_REBOOT = 2
  22. Public Const EWX_FORCE = 4
  23. Public Const CCDEVICENAME = 32
  24. Public Const CCFORMNAME = 32
  25. Public Const DM_BITSPERPEL = &H40000
  26. Public Const DM_PELSWIDTH = &H80000
  27. Public Const DM_PELSHEIGHT = &H100000
  28. Public Const CDS_UPDATEREGISTRY = &H1
  29. Public Const CDS_TEST = &H4
  30. Public Const DISP_CHANGE_SUCCESSFUL = 0
  31. Public Const DISP_CHANGE_RESTART = 1
  32. Type DEVMODE
  33.     dmDeviceName As String * CCDEVICENAME
  34.     dmSpecVersion As Integer
  35.     dmDriverVersion As Integer
  36.     dmSize As Integer
  37.     dmDriverExtra As Integer
  38.     dmFields As Long
  39.     dmOrientation As Integer
  40.     dmPaperSize As Integer
  41.     dmPaperLength As Integer
  42.     dmPaperWidth As Integer
  43.     dmScale As Integer
  44.     dmCopies As Integer
  45.     dmDefaultSource As Integer
  46.     dmPrintQuality As Integer
  47.     dmColor As Integer
  48.     dmDuplex As Integer
  49.     dmYResolution As Integer
  50.     dmTTOption As Integer
  51.     dmCollate As Integer
  52.     dmFormName As String * CCFORMNAME
  53.     dmUnusedPadding As Integer
  54.     dmBitsPerPel As Integer
  55.     dmPelsWidth As Long
  56.     dmPelsHeight As Long
  57.     dmDisplayFlags As Long
  58.     dmDisplayFrequency As Long
  59. End Type
  60.  
  61. Dim varAdminPass As Variant
  62. Dim varScreenWidth As Integer
  63. Dim varScreenHeight As Integer
  64. Dim varUserListLocation As Variant
  65.  
  66.  
  67.  
  68. #If Win16 Then 'Conditional Compile statements
  69.  
  70.  
  71. Declare Sub SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer)
  72. #Else
  73.  
  74.  
  75. Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  76. #End If
  77.