xMasteRx |
|
| Dal titolo avete capito cosa fa... La funzione: CODICE Func _ExtensionAssociate($r_Ext, $r_PatchEXE, $r_Descrizione, $r_PatchICON="", $r_PatchICON_N=0, $r_2ndOpenMode="", $r_3rdOpenMode="")
;by xMasteRx at autoit.forumcommunity.net
RegWrite("HKCR\."&$r_Ext)
RegWrite("HKCR\."&$r_Ext, "", "REG_SZ", $r_Ext&"File")
RegWrite("HKCR\"&$r_Ext&"File\shell\open\command\", "", "REG_EXPAND_SZ", $r_PatchEXE&' %1')
If $r_PatchICON="" Then
RegWrite("HKCR\"&$r_Ext&"File\DefaultIcon\", "", "REG_EXPAND_SZ", $r_PatchEXE&",0")
Else
RegWrite("HKCR\"&$r_Ext&"File\DefaultIcon\", "", "REG_EXPAND_SZ", $r_PatchICON&","&$r_PatchICON_N)
EndIf
If Not $r_2ndOpenMode="" Then
RegWrite("HKCR\"&$r_Ext&"File\shell\"&$r_2ndOpenMode&"\command\", "", "REG_EXPAND_SZ", $r_PatchEXE&' %1 '&$r_2ndOpenMode)
EndIf
If Not $r_3rdOpenMode="" Then
RegWrite("HKCR\"&$r_Ext&"File\shell\"&$r_3rdOpenMode&"\command\", "", "REG_EXPAND_SZ", $r_PatchEXE&' %1 '&$r_3rdOpenMode)
EndIf
RegWrite("HKCR\"&$r_Ext&"File", "", "REG_SZ", $r_Descrizione)
If Not (@OSVersion="WIN_7" Or @OSVersion="WIN_VISTA") Then RegWrite("HKCR\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\."&$r_Ext, "Progid", "REG_SZ", $r_Ext&"File")
EndFunc Esempio di uso: Script secondario usando la funzione: CODICE _ExtensionAssociate("test", @ScriptDir&"\Program.exe", "File di test", "", 0, "EDIT", "PRINT") Script Program.exe che dovrà essere compilato: CODICE If $CmdLine[0]>0 Then
For $x=1 To $CmdLine[0]
MsgBox(0, $x, $CmdLine[$x])
Next
Else
MsgBox(0, "$CmdLine[0]=0; $CmdLineRaw=", $CmdLineRaw)
EndIf Infine create un file .test e apritelo lol, e guardate il menù di click destro le opzioni Stampa e Edit, come imposti nei ultimi due parametri della funzione  PS: Se lasciate il campo $r_PatchICON vuoto, la funzione imposta l'icona dell'eseguibile come icona per la estensione |
| | |
