[Pozia]

FreshMen85,

Код:

#NOtrayIcon
#include <GuiConstantsEx.au3>
#include <ComboConstants.au3>
;
$sBSPI_Drives = ""
$sSel_Drive = ""
$sFirst_Drive = ""
$aDrives = DriveGetDrive("All")

;=============================================================================
For $i = 1 To $aDrives[0]
    If DriveStatus($aDrives[$i]) <> "READY" Then ContinueLoop

    If FileExists($aDrives[$i] & "\BSPI\Presetup.exe") Then
        If $sBSPI_Drives = "" Then $sFirst_Drive = $aDrives[$i]
        $sBSPI_Drives &= StringUpper($aDrives[$i]) & "|"
    EndIf
Next

$sBSPI_Drives = StringRegExpReplace($sBSPI_Drives, "\|+$", "")

If StringInStr($sBSPI_Drives, "|") Then
    $hGUI = GUICreate("Выберите диск запуска BSPI", 240, 50)
	
    $Drives_Combo = GUICtrlCreateCombo("", 20, 20, 40, 20, $CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, $sBSPI_Drives, $sFirst_Drive)

    $OK_Button = GUICtrlCreateButton("OK", 80, 19, 60, 25)
    $Cancel_Button = GUICtrlCreateButton("Cancel", 160, 19, 60, 25)

    GUISetState(@SW_SHOW, $hGUI)

    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $Cancel_Button
                Exit
            Case $OK_Button
                $sSel_Drive = GUICtrlRead($Drives_Combo)

                ExitLoop
        EndSwitch
    WEnd
ElseIf $sBSPI_Drives <> "" Then
    $sSel_Drive = $sBSPI_Drives
EndIf

If $sSel_Drive <> "" Then RunWait($sSel_Drive & "\BSPI\Presetup.exe")
;=============================================================================