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.

[himitsu]

ideal wären noch möglichkeiten für einen Zugriff.

wie z.B.
- auslesen welche Seite(n) geladen sind
- laden einer Seite (neues Fenster / neuer Tab)

[Andreas L.]

Zitat von himitsu:

ideal wären noch möglichkeiten für einen Zugriff.

wie z.B.
- auslesen welche Seite(n) geladen sind
- laden einer Seite (neues Fenster / neuer Tab)

Naja, das wird dann doch ziemlich speziell. Werde es mir aber mal durch den Kopf gehen lassen

[Andreas L.]

Update
Im ersten Post!

[API]

Hallo,

Könntest du noch Google Chrome hinzufügen?

Zitat:

[HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Uninstall\Google Chrome]
"DisplayName"="Google Chrome"
"UninstallString"="\"C:\\Dokumente und Einstellungen\\XXX\\Lokale Einstellungen\\Anwendungsdaten\\Google\\Chrome\\Ap plication\\0.2.149.27\\Installer\\setup.exe\" --uninstall"
"InstallLocation"="C:\\Dokumente und Einstellungen\\xxx\\Lokale Einstellungen\\Anwendungsdaten\\Google\\Chrome\\Ap plication"
"DisplayIcon"="C:\\Dokumente und Einstellungen\\XXX\\Lokale Einstellungen\\Anwendungsdaten\\Google\\Chrome\\Ap plication\\chrome.exe,0"
"NoModify"=dword:00000001
"NoRepair"=dword:00000001
"Publisher"="Google"
"Version"="0.2.149.27"
"DisplayVersion"="0.2.149.27"
"InstallDate"="20080903"

[zahor]

der thread ist über 7 monate alt...

[Mackhack]

Zitat von zahor:

der thread ist über 7 monate alt...

Und das bedeutet was?

[zahor]

das der threadersteller vllt die arbeit an der kompo eingestellt hat?????

[freak4fun]

Zitat von zahor:

das der threadersteller vllt die arbeit an der kompo eingestellt hat?????

Dann nimmt er sie eben jetzt wieder auf. Bei mir läuft das Demoprogramm auch super.

[Mackhack]

Zitat von freak4fun:

Zitat von zahor:

das der threadersteller vllt die arbeit an der kompo eingestellt hat?????

Dann nimmt er sie eben jetzt wieder auf. Bei mir läuft das Demoprogramm auch super.

Das wuerd ich auch sagen,... und wenn er net will machen wir ihn wollend! 8)

[Andreas L.]

Hi,
Chrome wird noch hinzugefügt. Wie ich schon erwähnte ist TInstalledBrowsers nur ein kleiner Teil einer Komponentensammlung. Ich habe zwar aktuell ziemlich wenig Zeit zum programmieren, rechne aber damit das ich in ca. 1 Monat fertig sein werden.

Folgendes wird möglich sein:

• Browser auslesen
• Cookies diverser Browser auslesen und editieren
• Profile diverser Browser auslesen
• Lesezeichen auslesen und veränder
• und noch ein bisschen was...

Stay tuned!

EDIT: Falls mir jemand helfen möchte: Ich brauche ein gutes Tutorial wie man auf SQLite Datenbanken zugreift. Chrome und Firefox 3 verwenden diese um Cookies zu speichern...