Icon für Dateiendung

    Hi @all
    Es wurde ja hier mal was gepostet um eine dateiendung zu registrieren. [ offen ] Dateiendung registrieren

    kann man auch etwas einstellen , also ein icon für die datei und ein standard programm

    Einmal editiert, zuletzt von simon (9. Mai 2009 um 20:48)

    DA wird bei mir aber leider nix geändert

    Spoiler anzeigen
    [autoit]

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

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

    $sFileType = ".xx" ; Dateierweiterung
    $sDescription = "xx" ; Beschreibung für die Datei
    $sAppName = "/sb.ico" ; 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 & "\sb.ico", "", "REG_SZ", $sAppName & " %1")
    RegWrite("HKEY_CLASSES_ROOT\" & $sTypeName & "\sb.ico", "", "REG_SZ", $sAppName & ",0")

    SetError(0)
    Return 1
    EndFunc

    [/autoit]