Return Default Application Udf

[cppman]

Here is a really pretty simple UDF i wrote.

It returns the default aplication for a file extension.

The Return Value is the Full Path to the File.

Filename: 'extension.au3'

expandcollapse popup

;==================================
; Function Name:    _ReturnDefaultApp($extension)
; Description:    Returns the location to the default application that is used for the specified extension.
; Parameter(s):  $extension - Extension that you would like to use: Must contain the period. (e.g.:   '.txt').
; Requirement(s):   AutoIt3 Beta.
; Return Value(s):  On Success - Returns full location to the executable.
;                  On Failure - 0
; Author(s):        chris95219
;==================================
Func _ReturnDefaultApp($extension)
    $RegLocation = RegRead("HKEY_CLASSES_ROOT\" & $extension, "")
    $RegLoc = RegRead("HKEY_CLASSES_ROOT\" & $RegLocation & "\Shell\Open\command", "")
    $LocationA = _RemoveFromString($RegLoc, "%")
    $LocationB = _RemoveFromString($LocationA, Chr(34))
    $LocationC = _RemoveFromString($LocationB, ",")
    $FullLocation = _Convert($LocationC)
    if $FullLocation = "" Then
        Return 0
    EndIf
    
    Return $FullLocation
EndFunc

Func _RemoveFromString($String, $Char)
    $Array = StringSplit($String, "")
    Local $ComString
    For $i = 1 to $Array[0]
        If $Array[$i] == $Char Then
            $Array[$i] = ""
        EndIf
        $ComString &= $Array[$i]
    Next
    Return $ComString
EndFunc

Func _Convert($string)
local $ComString
        $ComString = StringReplace($string, "SystemRoot", @WindowsDir, 1)
        $ComString = StringReplace($ComString, "rundll32.exe ", "")
        $ComString = StringReplace($ComString, "ImageView_FullScreen", "")
        $ComString = StringReplace($ComString, " 1", "")
        $ComString = StringReplace($ComString, " /prefetch:6 /Open L", "")
        $ComString = StringReplace($ComString, " -url", "")
        Return $ComString
    Return 
EndFunc

usage

#include "extension.au3"
$ext = InputBox("Extension", "What is the Extension?")
MsgBox(0, "Extension Information:", "The default application for that extension is: " & @CRLF & _ReturnDefaultApp($ext))

This can be used if your not sure what the default application for a file is and need to run a file.

here is another example:

#include "extension.au3"
Run(_ReturnDefaultApp(".html") & " http://www.google.com")

This should open www.google.com in your DEFAULT browser.

Edited April 9, 2006 by CHRIS95219

[Amen]

Works Great and i think it's very usefull Function.Thanx for sharing!

Edited April 9, 2006 by Amen

[cppman]

Thanks . Glad you like it!

[RazerM]

the browser function looks good. Well done

[cppman]

Thanks!