Entwickler-Ecke
Open Source Units - TInstalledBrowsers - Komponente um Browser auszulesen
Andreas L. - Mi 26.12.07 18:11
Titel: TInstalledBrowsers - Komponente um Browser auszulesen
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-Quelltext
1: 2: 3: 4:
| 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
support@cap-systems.de
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
support@cap-systems.de.
§ 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
In remembrance of Robert Marquardt
(* 01.02.1961; † 29.12.2007)
Rest in peace!
------------------------------------------------------------------------------}
|
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.
Leuchtturm - Mi 26.12.07 19:07
Hi,
ich wollte mir mal den Screenshot ankucken. Irgendwie geht das aber nicht, weil bei beiden Downloads die Zip-Datei geöffnet wird :(
Liegt das an mir, an der EE oder an dir?
DrRzf - Mi 26.12.07 19:11
Vorher war da noch ein Bildchen, hat er sich beim Update vertan ?
Andreas L. - Mi 26.12.07 19:13
Heute läuft aber auch alles schief... Naja, Bildchen ist jetzt wieder da.
Leuchtturm - Mi 26.12.07 19:23
Jetzt gehts wieder. Schöne Komponente. damit könnte an ja überprüfen ob man TWebbrowser oder das FF-Aquvivalänt nimmt.
Du hast aber ganz schön viel Browser installiert :shock:
Leuchtturm
Andreas L. - Mi 26.12.07 19:29
Leuchtturm hat folgendes geschrieben: |
| Jetzt gehts wieder. Schöne Komponente. damit könnte an ja überprüfen ob man TWebbrowser oder das FF-Aquvivalänt nimmt. |
Danke. Wenn IE 5.0 oder höher installiert ist kann man den TWebBrowser verwenden. Ob das TMozillaBrowser-ActiveX-Steuerelement installiert ist, kann die Komponente noch nicht herausfinden, soll heißen ich bau das demnächst ein :-)
Leuchtturm hat folgendes geschrieben: |
Du hast aber ganz schön viel Browser installiert :shock:
Leuchtturm |
Um zu testen ob die Komponente funktioniert. Außerdem war es mal schön zu sehen was so alte Dinge von 1998 mit einer Seite wie dem DF machen. Muss sagen, immer noch leserlich ;-)
Andreas L. - Di 22.01.08 20:03
Update
Im ersten Post!
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!