file extention writer

[7h331337]

with this script you can make ur own file extention like forexample .exe .pdf and allthat you can also set an icon

CODE

#include <guiconstants.au3>

global $icon,$applacation

$main = GUICreate("file extention", 300,200)

$ext = GUICtrlCreateInput("input your file extention e.g. .exe .itmp",10,10)

$type = GUICtrlCreateInput("input your file type e.g. myscript, myprogram", 10, 40)

$app = GUICtrlCreateButton("select defalt app", 10, 70,100)

$ico = GUICtrlCreateButton("select icon", 10, 100,100)

$create = GUICtrlCreateButton("create file extention", 10, 130,100)

GUISetBkColor(0x120000,$main)

GUISetState()

While 1

$msg = GUIGetMsg()

Select

Case $msg = $app

app()

Case $msg = $ico

icon()

Case $msg = $create

create2()

ExitLoop

EndSelect

WEnd

Func app()

$applacation = FileOpenDialog("select defalt applacation to open with", @ScriptDir, "(*.exe)")

EndFunc ;==>app

Func icon()

$icon = FileOpenDialog("select icon file", @ScriptDir, "(*.ico)")

EndFunc ;==>icon

func create2()

$ext2 = GUICtrlRead($ext)

$type2 = GUICtrlRead($type)

RegWrite("HKEY_CLASSES_ROOT\" & $ext2,"","REG_SZ",$type2)

RegWrite("HKEY_CLASSES_ROOT\" & $type2)

RegWrite("HKEY_CLASSES_ROOT\" & $type2 & "\DefaultIcon","","REG_SZ",$icon)

RegWrite("HKEY_CLASSES_ROOT\" & $type2 & "\shell","","REG_SZ","run")

RegWrite("HKEY_CLASSES_ROOT\" & $type2 & "\shell\run","","REG_SZ","run script")

RegWrite("HKEY_CLASSES_ROOT\" & $type2 & "\shell\run\command","","REG_SZ",$applacation & " %1")

endfunc

[MrCreatoR]

There is already FileRegister() UDF. It's in the FAQ (Q 16.).

[7h331337]

There is already FileRegister() UDF. It's in the FAQ (Q 16.).

dose that one let you create you own file type like .exe .pdf and have a icon and open it in a applacation of you choice

any way i was board lol just sumthing to pass the time

[emoyasha]

actualy, it allowed you to use your own file extension yes, however the icon is that of the executable it is selected to run with by default.