welcber browser ist installiet

    hallo ich möchte über ne n script abfragen welcher browser installiet ist
    brauchte aber nen gedankenanstoss
    danke im vorraus.so
    gelöst

    Code
    $key = RegRead("HKEY_CLASSES_ROOT\http\shell\open\command","")
$key1 = StringMid($key, 2, StringInStr($key, '"', 0, 2) - 2)
  MsgBox(0, "Standardbrowser",$key1 )

    Einmal editiert, zuletzt von rewejo (25. August 2010 um 18:24) aus folgendem Grund: gelöst

    ja möchte wissen welcher Browser der Standardbrowser ist . brauche das für ein script das unter ie ,ff laufen soll.
    folgende funktion abfrfrage welcher browser
    wenn ie dann script a,
    bei ff script b
    danke für jede hilfe

    Einmal editiert, zuletzt von rewejo (24. August 2010 um 15:46)

    i2C, dein wunsch ist mir Befehl, habe folgendes aus einem meiner Scripte rauskopiert...
    Das Script habe ich übrigens täglich mehrfach im Einsatz, "googlen" tu ich schon lange nicht mehr "von Hand"^^

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Array.au3>
    $browserinfo=__GetBrowserInfo()
    _arraydisplay($browserinfo)

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

    Func __FindPathToDefaultBrowser() ;findet den vollen Pfad zum Standardbrowser
    Local $RegLocation = RegRead("HKEY_CLASSES_ROOT\" & ".html", "")
    Local $RegLoc = RegRead("HKEY_CLASSES_ROOT\" & $RegLocation & "\Shell\Open\command", "")
    $RegLoc = StringMid($RegLoc, 2, StringInStr($RegLoc, '"', 0, 2) - 2)
    If $RegLoc = "" Then
    MsgBox(262144, "Fehler!", "Der Pfad zum in Windows installierten Standardbrowser konnte nicht ermittelt werden!" & @CRLF & "Bitte installieren sie einen Browser oder teilen Sie dem System den Standardbrowser mit." & @CRLF & "Das Programm wird beendet!")
    Return SetError(-1,0,0)
    ;_GUIClose()
    Else
    Return SetError(@error, 0, $RegLoc)
    EndIf
    EndFunc ;==>FindPathToDefaultBrowser

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

    Func __GetBrowserInfo() ;holt sich aus der registry den standardbrowser und setzt die Fensternamen
    Local $cPath, $cFDrive, $cFDir, $cFName, $cFExt
    Local $browsernewwindow,$Browsername,$Browserprocess
    local $DefaultBrowser = __FindPathToDefaultBrowser()
    if @error then return seterror(-1,0,0)
    Local $a = _PathSplit($DefaultBrowser, $cFDrive, $cFDir, $cFName, $cFExt)
    ;_arraydisplay($a)
    local $browser_exe = $a[3] & $a[4]
    local $Browser = $a[3]
    Switch $Browser
    Case "OPERA"
    $Browsername = "Opera"
    $Browserprocess = "Opera.exe"
    $browsernewwindow = "Schnellwahl - " & $Browsername
    Case "IEXPLORER"
    $Browsername = "Windows Internet Explorer"
    $Browserprocess = "iexplore.exe"
    $browsernewwindow = "Neue Registerkarte - " & $Browsername
    Case "Firefox"
    $Browsername = "Mozilla Firefox"
    $Browserprocess = "firefox.exe"
    $browsernewwindow = $Browsername
    Case "IRON"
    $Browsername = "Iron"
    $Browserprocess = "iron.exe"
    $browsernewwindow = "Neuer Tab - " & $Browsername
    Case Else
    $Browsername = "Unbekannter Browser"
    $Browserprocess = ""
    $browsernewwindow = ""
    EndSwitch
    Dim $ret[3]
    $ret[0]=$Browsername
    $ret[1]=$Browserprocess
    $ret[2]=$browsernewwindow
    return $ret
    EndFunc ;==>_GetBrowserInfo

    [/autoit]

    hallöchen,

    einfacher gehts doch aber so:

    Code
    #include <WinAPI.au3>
MsgBox(4096, "_WinAPI_FindExecutable", "Datei: " & "c:\meineseite.html" & @LF & "Verknüpftes Programm: " & _WinAPI_FindExecutable("c:\meineseite.html"))

    das habe ich selbst heute gebraucht und von einem freund den hinweis bekommen.

    edit: meineseite.html muss auch tatsächlich so exestieren.

    gruss exberliner

    ExBerliner, damit findest du aber m.E. nur die zum Dateityp gehörende ausführende Datei. Ich kann doch HTML standardmäßig mit Scite öffnen und trotzdem Opera als StandardBrowser haben