ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文
Toolボックス( 追加したアイコンの名称変更を可能にする )
日時: 2007/05/11 15:46
名前: lightbox



拡張子:
<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン

 名前変更可能にする

 フォルダオプション/ディスク/コントロールパネル/Toolボックス
************************************************************
</COMMENT>

<OBJECT id="WshShell" progid="WScript.Shell" />

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>

<SCRIPT language=VBScript>


' Toolボックス
strPath = "HKEY_CLASSES_ROOT\CLSID\{C9C868E6-BCD1-4D3E-8F8D-334F09BDE657}\ShellFolder"
Call EnableName( strPath )

' フォルダオプション
strPath = "HKEY_CLASSES_ROOT\CLSID\{6DFD7C5C-2451-11d3-A299-00C04F8EF6AF}\ShellFolder"
Call EnableName( strPath )

' ディスク
strPath = "HKEY_CLASSES_ROOT\CLSID\{8693EDE0-F047-48E9-AE25-65CEBDC4AC8C}\ShellFolder"
Call EnableName( strPath )

' コントロールパネル
strPath = "HKEY_CLASSES_ROOT\CLSID\{21EC2020-3AEA-1069-A2DD-08002B30309D}\ShellFolder"
Call EnableName( strPath )


Function EnableName( strPath )

	strEntry = "Attributes"
	on error resume next
	nData = WshShell.RegRead( strPath & "\" & strEntry )
	if Err.Number <> 0 then
		nData = 0
	end if
	on error goto 0
	nData = CLng( nData ) or &H10
	WshShell.RegWrite strPath & "\" &  strEntry, nData, "REG_DWORD"

End Function
</SCRIPT>
</JOB>
拡張子:
[HKEY_CLASSES_ROOT\CLSID\{C9C868E6-BCD1-4D3E-8F8D-334F09BDE657}]
@="Toolボックス"
"LboxMenu"=""
"LboxTitle"="【編集メニュー】"
"LboxTitle1"="個別メニューを各アイコンに追加"
"LboxTitle2"="個別メニューを各アイコンから削除"
"LboxTitle3"="sep"
"LboxTitle4"="コマンドプロンプトに一覧表示"
"LboxTitle5"="簡易編集"
"LboxTitle6"="sep"
"LboxTitle7"="【設定を全て保存】"
"LboxCommand1"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\menuAdd.wsf\""
"LboxCommand2"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\menuDel.wsf\""
"LboxCommand4"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\listItem.wsf\""
"LboxCommand5"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\editItem.wsf\""
"LboxCommand7"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\saveAll.wsf\""
"LboxDir1"=""
"LboxDir2"=""
"LboxDir4"=""
"LboxDir5"=""
"LboxDir7"=""
"LboxTitle8"="sep"
"LboxTitle9"="追加したアイコンの名称変更を可能にする"
"LboxCommand9"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\enableName.wsf\""
"LboxTitle10"="追加したアイコンの名称変更を不可にする"
"LboxCommand10"="wscript.exe \"%ProgramFiles%\\laylaClass\\\\launch\\\\disableName.wsf\""
メンテナンス

追加したアイコンの名称変更を不可にする ( No.1 )
日時: 2007/05/11 15:47
名前: lightbox


日時: 2007/05/11 15:47
名前: lightbox
拡張子:
<JOB>
<COMMENT>
************************************************************
 WSH 実行スケルトン

 名前変更不可にする

 フォルダオプション/ディスク/コントロールパネル/Toolボックス
************************************************************
</COMMENT>

<OBJECT id="WshShell" progid="WScript.Shell" />

<COMMENT>
************************************************************
 外部スクリプト定義
************************************************************
</COMMENT>

<SCRIPT language=VBScript>


' Toolボックス
strPath = "HKEY_CLASSES_ROOT\CLSID\{C9C868E6-BCD1-4D3E-8F8D-334F09BDE657}\ShellFolder"
Call EnableName( strPath )

' フォルダオプション
strPath = "HKEY_CLASSES_ROOT\CLSID\{6DFD7C5C-2451-11d3-A299-00C04F8EF6AF}\ShellFolder"
Call EnableName( strPath )

' ディスク
strPath = "HKEY_CLASSES_ROOT\CLSID\{8693EDE0-F047-48E9-AE25-65CEBDC4AC8C}\ShellFolder"
Call EnableName( strPath )

' コントロールパネル
strPath = "HKEY_CLASSES_ROOT\CLSID\{21EC2020-3AEA-1069-A2DD-08002B30309D}\ShellFolder"
Call EnableName( strPath )


Function EnableName( strPath )

	strEntry = "Attributes"
	on error resume next
	nData = WshShell.RegRead( strPath & "\" & strEntry )
	if Err.Number <> 0 then
		nData = 0
	end if
	on error goto 0
	nData = CLng( nData ) and &HFFFFFFEF
	WshShell.RegWrite strPath & "\" &  strEntry, nData, "REG_DWORD"

End Function
</SCRIPT>
</JOB>
このアーティクルの参照用URLをクリップボードにコピー メンテナンス