微剋多資訊

 找回密碼
 註冊

Login

Login

搜索
回覆 0則 瀏覽 918篇

[教學] 設定副檔名預設開啟程式的UDF

該用戶從未簽到

發表於 2012-10-6 17:55 | 顯示全部樓層 |閱讀模式
本帖最後由 rictirse 於 2012-11-5 23:40 編輯

[code=autoit];; _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[/code]
您需要登入後才可以回帖 登入 | 註冊

本版積分規則

小黑屋|Archiver|微剋多資訊(MicroDuo)

GMT+8, 2016-12-8 13:57

Discuz! X

© 2009-2016 Microduo

快速回覆 返回頂部 返回列表