home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / aandbf1g / module1.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-22  |  1.3 KB  |  39 lines
  1. Attribute VB_Name = "Module1"
  2.  
  3. 'API for playing Audio CD
  4. Declare Function mciSendString Lib "winmm.dll" Alias _
  5.     "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
  6.     lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
  7.     hwndCallback As Long) As Long
  8.     
  9. 'API for getting all drives on your PC
  10. Public Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" _
  11.        (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  12.  
  13. 'Api to determine if you have a CD, floppy or Hard drive
  14. Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" _
  15.        (ByVal nDrive As String) As Long
  16.        
  17.        
  18. Declare Function auxSetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, ByVal dwVolume As Long) As Long
  19. Declare Function auxGetVolume Lib "winmm.dll" (ByVal uDeviceID As Long, lpdwVolume As Long) As Long
  20. Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  21.        
  22. Const SWP_NOMOVE = 2
  23. Const SWP_NOSIZE = 1
  24. Const Flags = SWP_NOMOVE Or SWP_NOSIZE
  25. Const HWND_TOPMOST = -1
  26. Const HWND_NOTOPMOST = -2
  27.  
  28.  
  29. Const SND_ASYNC = &H1
  30. Const SND_NODEFAULT = &H2
  31.  
  32. Dim CurrentVolLeft As Long
  33. Dim CurrentVolRight As Long
  34.  
  35. Dim kkk As String
  36.  
  37.      
  38.  
  39.