'================================================================
'= インターネットオプション(全般)を開く
'=    (ShellExecute2.bas)
'================================================================
#include "Windows.bi"

' 拡張子に関連付けられたプログラムを実行
Declare Function Api_ShellExecute& Lib "shell32" Alias "ShellExecuteA" (ByVal hWnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&)

#define vbNormalFocus 1                 '開いたアプリケーションはフォーカスを持ち、前回起動したサイズと位置に復元される

Var Shared Button1 As Object

Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14

'================================================================
'=
'================================================================
Declare Function ShowInetOption(ByVal hWnd As Long) As Integer
Function ShowInetOption(ByVal hWnd As Long) As Integer
    Var tmpStr As String
    Var Ret As Long
     
    tmpStr = "shell32.dll,Control_RunDLL inetcpl.cpl"

    Ret = Api_ShellExecute(hWnd, "open", "rundll32.exe", tmpStr, ByVal 0, vbNormalFocus)
 
    ShowInetOption = (Ret > 32)
End Function

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
   If Not ShowInetOption(GethWnd) Then
       A% = MessageBox("Error", "インターネットオプションは見つかりません！", 0, 2)
   End If
End Sub

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