home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / popupx / setup.exe / _SETUP.1 / Module1.bas < prev    next >
Encoding:
BASIC Source File  |  1998-06-14  |  2.0 KB  |  52 lines
  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3.  
  4. ' If the function succeeds, the return value is a bitmask
  5. ' representing the currently available disk drives. Bit
  6. ' position 0 (the least-significant bit) is drive A, bit position
  7. ' 1 is drive B, bit position 2 is drive C, and so on.
  8. ' If the function fails, the return value is zero.
  9. Declare Function GetLogicalDrives Lib "kernel32" () As Long
  10.  
  11. ' If the function succeeds, the return value is a search handle
  12. ' used in a subsequent call to FindNextFile or FindClose
  13. Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
  14.                         (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
  15.  
  16. 'FindFirstFile failure rtn value
  17. Public Const INVALID_HANDLE_VALUE = -1
  18.  
  19. ' Rtns True (non zero) on succes, False on failure
  20. Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" _
  21.                         (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
  22.  
  23. ' Rtns True (non zero) on succes, False on failure
  24. Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
  25.  
  26. Type FILETIME
  27.         dwLowDateTime As Long
  28.         dwHighDateTime As Long
  29. End Type
  30.  
  31. Public Const MaxLFNPath = 260
  32.  
  33. Type WIN32_FIND_DATA
  34.         dwFileAttributes As Long
  35.         ftCreationTime As FILETIME
  36.         ftLastAccessTime As FILETIME
  37.         ftLastWriteTime As FILETIME
  38.         nFileSizeHigh As Long
  39.         nFileSizeLow As Long
  40.         dwReserved0 As Long
  41.         dwReserved1 As Long
  42.         cFileName As String * MaxLFNPath
  43.         cShortFileName As String * 14
  44. End Type
  45.  
  46. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
  47.     ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
  48.     ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  49.  
  50. Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  51.  
  52.