Dateiendung registrieren

[autoit]

;===============================================================================
; Requirement(s): keine
; Return Value(s): bei Erfolg: 1
; bei Fehler: 0 und @error = 1
;===============================================================================

[/autoit] [autoit][/autoit] [autoit]

$sFileType = ".abc" ; Dateierweiterung
$sDescription = "Tool" ; Beschreibung für die Datei
$sAppName = "" ; Anwendung für die Registriert werden
; soll, wird keine Anwendung angegeben
; wird die aktuelle Anwendung eingetragen

[/autoit] [autoit][/autoit] [autoit]

_RegisterFileType($sFileType, $sDescription, $sAppName)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _RegisterFileType($sFileType, $sDescription, $sAppName = "")
Dim $sTypeName

If $sFileType = "" Or $sDescription = "" Then
SetError(1)
Return 0
EndIf

If $sAppName = "" Then $sAppName = @ScriptFullPath

$sFileType = StringLower($sFileType)

If StringLeft($sFileType,1) <> "." Then
$sTypeName = $sFileType
$sFileType = "." & $sFileType
Else
$sTypeName = StringRight($sFileType, StringLen($sFileType) -1)
EndIf

$sTypeName = $sTypeName & "file"

RegWrite("HKEY_CLASSES_ROOT\" & $sFileType, "", "REG_SZ", $sTypeName)
RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName, "", "REG_SZ", $sDescription)
RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName & "\shell\open\command", "", "REG_SZ", $sAppName & " %1")
RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName & "\DefaultIcon", "", "REG_SZ", $sAppName & ",0")

SetError(0)
Return 1
EndFunc

[/autoit]