TInstalledBrowsers - Komponente um Browser auszulesen

[Andreas L.]

TInstalledBrowsers
Mit TInstalledBrowsers kann man herausfinden welche Browser auf dem System installiert sind. Bisher werden folgende Browser einwandfrei erkannt:

• Mozilla Firefox
• Mozilla Seamonkey
• Netscape Navigator
• Internet Explorer
• Opera
• Amaya
• MyBrowser
• InetPlus
• BrownIE
• Goias
• Flock
• K-Meleon
• Flashpeak SlimBrowser
• AvantBrowser
• Safari (neu)
• Maxthon (neu)
• GreenBrowser (neu)
• PowerBrowser (neu)
• HotJava Browser (neu)
• AccoBrowser (neu)
• Shareon (neu)
• AOL Explorer (neu)
• Multi-Browser XP (neu)

Folgende Informationen der Browser bekommt man:

• Name
• Version
• Installationsverzeichnis
• Pfad zur Exe
• Symbol als TIcon (neu)
• Hersteller/Entwickler (neu)

Ist die Eigenschaft GetVersionOnlyFromBinary True, so werden die Versionen direkt von der Datei ausgelesen andernfalls aus der Registry (sofern vorhanden).

Anwendungsbsp.:

Delphi-Quellcode:

 InstalledBrowsers1.Refresh;

 for i := 0 to InstalledBrowsers1.Count -1 do
  ShowMessage(InstalledBrowsers1.Browsers[i].Name + ' ' + InstalledBrowsers1.Browsers[i].Version);

Gibt jeden gefundenen Browser inkl. Version in einem Dialogfeld aus.

Wie man am Code erkennen kann, muss Refresh vor der ersten Verwendung aufgerufen werden!

Neue Funktionen:

• Über die Eigenschaft DefaultBrowser kann man den Standard-Browser ermitteln.
• TBrowserInfo hat nun die Prozedur OpenDoucmentInBrowser mit der man schnell Internetseiten aufrufen kann.
• Über die Funktionen IEControlInstalled und MozillaControlInstalled kann man herausfinden ob die jeweiligen ActiveX-Controls verwendet werden können.

Installation:
Pfad zu InstalledBrowsers.pas und Utils.pas als Suchpfad festlegen.
Beide Units in ein Package -> Kompilieren, Installieren, Fertig.

Zitat:

{-------------------------------------------------------------------------------
TInstalledBrowsers
Version 0.2

Part of the BrowserComponents package.

Copyright [c] 2008 by CapSystems
http://browsercomponents.cap-systems.de
[e-mail]

Licence:
§ 1: You are allowed to use this component in non-commercial applications
fully free of charge.
§ 2: If you make some modifications to the source, please mail it to
[e-mail].
§ 3: You are not allowed to remove this copyright notice.
§ 4: You have to place the name of the author (Andreas Lauss) or the company
(CapSystems) in the credits/info dialog of your application.
§ 5: If your application will be commercial or you don't want to place the
copyright notice, you have to purchase a licence at
http://browsercomponents.cap-systems.de


------------------------------------------------------------------------------}

ToDo-Liste:

• Mehr Informationen über die jeweiligen Browser anzeigen (siehe Post von himitsu)
• Weitere Browser unterstützen (z. B. T-Online Browser)
• Noch Ideen?

TInstalledBrowsers ist eigentlich nur ein kleiner Teil einer Komponentensammlung die ich demnächst veröffentlichen werde.
Ein Demoprogramm inkl. Source ist mit dabei.

Würde mich über Feedback freuen! Wenn jemand noch Browser kennt, die erkannt werden sollten -> Bescheid sagen.