設定副檔名預設開啟程式的UDF
本帖最後由 rictirse 於 2012-11-5 23:40 編輯;; _DefaultLnkAdd ( FileExtension, DefaultOpen, DefaultEdit)
;; _DefaultLnkAdd (副檔名, 預設開啟的檔案, 預設編輯的檔案)
_DefaultLnkAdd ( "f70", "Notepad.exe", "Notepad.exe")
;; 上面函式 預設副檔名 f70 預設啟動 由 Notepad.exe 開啟 編輯也是使用 Notepad.exe 預設開啟
Func _DefaultLnkAdd ( $FileExtension, $FileDefaultOpen, $FileDefaultEdit)
Local $RegName = StringFormat ( "%s", $FileExtension)
Local $OpenRegName = StringFormat ( "_%sOpen", $FileExtension)
RegWrite ( StringFormat ( "HKCR\.%s\", $FileExtension), "", "REG_SZ", $OpenRegName)
RegWrite ( StringFormat ( "HKCR\%s\Shell\Open\command", $OpenRegName), "", "REG_SZ", $FileDefaultOpen&" %1")
If $FileDefaultEdit <> "" Then
RegWrite ( StringFormat ( "HKCR\%s\Shell\Edit\command", $OpenRegName), "", "REG_SZ", $FileDefaultEdit&" %1")
EndIf
EndFunc
頁:
[1]