ウィンドウズのコントロールパネルを起動するには？

解決

α 2001-03-25 20:02:27 No: 74035 IP: [192.*.*.*]

そのまんまですが、
VBでWINDOWSのコントロールパネルを起動したいのですが、
できますか？

MADIA URL 2001-03-25 22:03:38 No: 74036 IP: [192.*.*.*]

APIのWinexec関数を使用して下さい。

Winexecの第一引数に下記を指定して下さい。

RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Appwiz.cpl
アプリケーションの追加と削除のプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Desk.cpl
画面のプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Inetcpl.cpl
インターネットのプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Intl.cpl
地域のプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Joy.cpl
ゲームのプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Main.cpl
マウスのプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Mlcfg32.cpl
メールとファックス
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Mmsys.cpl
マルチメディアのプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Modem.cpl
新しいモデムのインストール
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Infrared.cpl
赤外線モニタ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Netcpl.cpl
ネットワーク
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Password.cpl
パスワードのプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Powercfg.cpl
電源の管理のプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Sticpl.cpl
スキャナとカメラのプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Sysdm.cpl
システムのプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Timedate.cpl
日付と時刻のプロパティ
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Wgpocpl.cpl
Microsoftワークグループポスト管理
RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Access.cpl
ユーザー補助のプロパティ

編集削除

α 2001-03-26 07:32:38 No: 74037 IP: [192.*.*.*]

すみませんが
WIN32API.TXTがないので
ApiのWinexec関数の宣言を教えてください。

あと自分の知識不足だとは思いますが、
第一引数とはどのようなものですか？

編集削除

PAPY URL 2001-03-26 13:11:59 No: 74038 IP: [192.*.*.*]

宣言はこれ

Declare Function WinExec Lib "kernel32" Alias "WinExec" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long

第一引数 /* コマンドラインのアドレス */
第二引数 /* 新しいアプリケーションのウィンドウスタイル */

VBの場合はShell関数でいけるかもしれません。
でも、最近VBをやっていないので定かでは在りません。（＾＾；

編集削除

α 2001-03-27 12:02:50 No: 74039 IP: [192.*.*.*]

助言通りにやっても
うまく動きません。出来る限りやったのですが、
うまくいきませんでした。

Dim Ret As Long
Ret = RUNDLL32.EXE(SHELL32.DLL, Control_RunDLL, Appwiz.cpl)

としても

Call RUNDLL32.EXE(SHELL32.DLL, Control_RunDLL, Appwiz.cpl)

としてもオブジェクトが必要だとエラーが起きます。
どのようにすればいいのでしょうか。
宣言は標準モジュールにあります。
お願いします。

編集削除

PAPY 2001-03-27 14:13:37 No: 74040 IP: [192.*.*.*]

こんな感じで動くはずです。

>Call WinExec("RUNDLL32.EXE SHELL32.DLL,Control_RunDLL >Appwiz.cpl",0)

編集削除

PAPY 2001-03-27 14:15:35 No: 74041 IP: [192.*.*.*]

ごめん間違った。

>Call WinExec("RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Appwiz.cpl",0)

※スペース(&20h)等も入るので気おつけて下さい

編集削除

PAPY 2001-03-27 14:18:19 No: 74042 IP: [192.*.*.*]

こんな感じでも動くみたい。

'マルチメディアのプロパティ
>Call Shell("RUNDLL32.EXE SHELL32.DLL,Control_RunDLL Mmsys.cpl")

編集削除

α 2001-03-27 15:49:34 No: 74043 IP: [192.*.*.*]

見事完璧に起動しました。
どうもありがとうございます。
しかし、１つ１つのプロパティでしか
起動しないのでしょうか。
次々と質問してすみません。