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

解決

α 2001-03-26 05:02:27 No: 74035

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

MADIA URL 2001-03-26 07:03:38 No: 74036

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 16:32:38 No: 74037

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

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

PAPY URL 2001-03-26 22:11:59 No: 74038

宣言はこれ

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

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

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

α 2001-03-27 21:02:50 No: 74039

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

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 23:13:37 No: 74040

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

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

PAPY 2001-03-27 23:15:35 No: 74041

ごめん間違った。

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

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

PAPY 2001-03-27 23:18:19 No: 74042

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

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

α 2001-03-28 00:49:34 No: 74043

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

MADIA URL 2001-03-28 08:46:09 No: 74044

追加です。
コントロールパネルの起動方法です。

>Call Shell("RUNDLL32.EXE SHELL32.DLL,Control_RunDLL")

α 2001-03-30 21:35:11 No: 74045

どうもありがとうございました