'================================================================
'= コントロールパネルアイテムを呼び出す
'=    (WinExec.bas)
'================================================================
#include "Windows.bi"

' 指定されたアプリケーションを実行
Declare Function Api_WinExec& Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine$, ByVal nCmdShow&)

Var Shared Radio(18) As Object
Var Shared Button1 As Object

For i = 0 To 18
    Radio(i).Attach GetDlgItem("Radio" & Trim$(Str$(i + 1))) : Radio(i).SetFontSize 12
Next i
Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

ShowWindow -1

'================================================================
'=
'================================================================
Declare Function Index bdecl () As Integer
Function Index()
    Index = Val(Mid$(GetDlgRadioSelect("Radio1"), 6)) - 1
End Function

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var CmdLine As String
    Var Ret As Long

    Select Case Index
        Case 0    'コントロールパネル
            CmdLine = "control"
        Case 1    'アプリケーションの追加と削除のプロパティ(フォルダオプション:Appwiz.cpl @1)
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Appwiz.cpl"
        Case 2    '画面のプロパティ
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Desk.cpl"
        Case 3    'インターネットのプロパティ
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Inetcpl.cpl"
        Case 4    '地域の言語のオプション
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Intl.cpl"
        Case 5    'ゲームコントローラー
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Joy.cpl"
        Case 6    'マウスのプロパティ(キーボード:Main.cpl @1)
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Main.cpl"
        Case 7    'メールとファックス
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Mlcfg32.cpl"
        Case 8    'サウンドとオーディオデバイスのプロパティ
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Mmsys.cpl"
        Case 9    '電話とモデムのオプション
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Modem.cpl"
        Case 10    '赤外線も似た
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Infrared.cpl"
        Case 11    'ネットワーク接続(ネットワークセットアップウィザード:NetSetup.cpl)
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Ncpa.cpl"
        Case 12    'パスワードのプロパティ
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Password.cpl"
        Case 13    '伝下の婦ションのプロパティ
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Powercfg.cpl"
        Case 14    'スキャナとカメラのプロパティ
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Sticpl.cpl"
        Case 15    'システムのプロパティ
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Sysdm.cpl"
        Case 16    '日付と時刻のプロパティ
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Timedate.cpl"
        Case 17    'Microsoftワークグループポスト管理
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Wgpocpl.cpl"
        Case 18    'ユーザー補助のオプション
            CmdLine = "Rundll32.exe Shell32.dll, Control_RunDLL Access.cpl"
    End Select

    Ret = Api_WinExec(CmdLine, 0)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End