welcber browser ist installiet
-
- [ gelöst ]
-
rewejo -
23. August 2010 um 20:38 -
Geschlossen -
Erledigt
-
-
Wie währe es mit RegRead um zu ermitteln ob ein Browser installiert ist (Fast jede Software hinterlässt ihre Spuren beim installieren in der Registry)
PS: Wofür brauchst du das ?
-
Möchtest du abfragen, welcher Browser der Standardbrowser ist, oder möchstest du überprüfen, ob ein bestimmter Browser installiert ist?
-
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 -
[ offen ] standartbrowser bestimmen?
edit: Und bitte noch für Opera ein Skript c hinzufügen
-
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>
[/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>
$browserinfo=__GetBrowserInfo()
_arraydisplay($browserinfo)Func __FindPathToDefaultBrowser() ;findet den vollen Pfad zum Standardbrowser
[/autoit] [autoit][/autoit] [autoit]
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 ;==>FindPathToDefaultBrowserFunc __GetBrowserInfo() ;holt sich aus der registry den standardbrowser und setzt die Fensternamen
[/autoit]
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 -
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