my green friend needed an easy way to access tokenizing and all that stuff, so I wrote him a basic script...
Code:
$kixfile=readvalue("HKEY_CLASSES_ROOT\.kix","")
if not len($kixfile) $kixfile = "KiXfile" endif
$KXfile=readvalue("HKEY_CLASSES_ROOT\.kx","")
if not len($KXfile) $KXfile = "KXfile" endif
if not exist('%windir%\system32\'+@scriptexe)
copy @scriptdir+'\'+@scriptexe '%windir%\system32\'+@scriptexe
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+$KXfile,""))
$=writevalue("HKEY_CLASSES_ROOT\"+$KXfile,"","KiXtart KX File","REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+$KXfile+"\DefaultIcon",""))
$=writevalue("HKEY_CLASSES_ROOT\"+$KXfile+"\DefaultIcon","","%SystemRoot%\system32\SHELL32.dll,76","REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+$KXfile+"\shell",""))
$=writevalue("HKEY_CLASSES_ROOT\"+$KXfile+"\shell","","Open","REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+$KXfile+"\shell\Open\command",""))
$=writevalue("HKEY_CLASSES_ROOT\"+$KXfile+"\shell\Open\command","",'"%windir%\system32\'+@scriptexe+'" "%%1"',"REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+$kixfile,""))
$=writevalue("HKEY_CLASSES_ROOT\"+$kixfile,"","KiXtart Script File","REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+$kixfile+"\DefaultIcon",""))
$=writevalue("HKEY_CLASSES_ROOT\"+$kixfile+"\DefaultIcon","","%SystemRoot%\system32\SHELL32.dll,72","REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+$kixfile+"\shell",""))
$=writevalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell","","Open","REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell\Open\command",""))
$=writevalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell\Open\command","",'"%windir%\system32\'+@scriptexe+'" "%%1"',"REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell\Edit\command",""))
$=writevalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell\Edit\command","",'"%windir%\system32\notepad.exe" "%%1"',"REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell\Tokenize\command",""))
$=writevalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell\Tokenize\command","",'"%windir%\system32\'+@scriptexe+'" "%%1" /t',"REG_SZ")
endif
if not len(readvalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell\Debug\command",""))
$=writevalue("HKEY_CLASSES_ROOT\"+kixfile+"\shell\Debug\command","",'"%windir%\system32\'+@scriptexe+'" "%%1" /d',"REG_SZ")
endif
