' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Seleziona_il_primo_cd-rom

''Get first cd drive



Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (nDrive As String) As Long



Function GetFirstCD() As String

                DefLng DRIVE_CDROM = 5

                DefLng DRIVE_FIXED = 3

                DefLng DRIVE_RAMDISK = 6

                DefLng DRIVE_REMOTE = 4

                DefLng DRIVE_REMOVABLE = 2

                DefLng DRIVE_UNKNOWN = 0

                DefLng i

                DefStr drvLtr

                ' initialize

                Result = ""

                ' process

                For i = Asc("A") To Asc("Z")

                               drvLtr = Chr$(i) + ":"

                               If GetDriveType(@drvLtr) = DRIVE_CDROM Then

                                               Result = drvLtr + "\"

                                               Exit For

                               End If

                Next

End Function



showMessage "The first CD Drive is:" + GetFirstCD()



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb