設定副檔名預設開啟程式的UDF

rictirse

[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]