URL soll je nach Wahl mit IEXPLORER oder auch mit Mozilla zu öffnen sein

[nachtstreuner]

Hallo Delphianer,

in meinem Programm sind gewisse URLs von Internetseiten hinterlegt.
Über ein Pulldown wählt der Benutzer den entsprechenden Browser aus.

Mit shellexecute öffne ich dann die URL, dies funktioniert auch, allerdings wird die Seite nur im Standardbrowser geöffnet.

Wie muss ich denn dem Shellexecute beibringen, das er statt den iexplore den Mozilla nehmen soll.

Code:

procedure TfrmVerbindung.sbtnHTTPClick(Sender: TObject);
begin
 ShellExecute(Handle,
               'open',
               PWideChar(sDBEdit_URL.Text),
               nil,
               nil,
               SW_SHOW);
end;

Danke schonmal für Eure Anregungen und Lösungsvorschlägen.

[Bernhard Geyer]

statt "open" musst du Pfad+Dateiname der Exe (hier Browser-Exe) angeben welche die URL öffnen soll.

[nachtstreuner]

Hallo Bernhard,

das ging aber schnell, danke sehr , werde es gleich mal ausprobieren.

[nachtstreuner]

Nochmal der nachtstreuner,

entweder habe ich gestern abend zu tief ins Glas geschaut, oder an meinem Code-Beispiel ist noch ein Fehler.

Es tut sich nämlich nichts.

Code:

procedure TfrmVerbindung.sbtnHTTPClick(Sender: TObject);
begin
 ShellExecute(Handle,
               //'open',
               'C:\Program Files (x86)\Internet Explorer\iexplore.exe',
               PWideChar(sDBEdit_URL.Text),
               nil,
               nil,
               SW_SHOW);
end;:|

[DeddyH]

ShellExecute(Handle, 'open', PChar(Browserpfad), PChar(URL), nil, SW_SHOW);

[nachtstreuner]

Hallo DeddyH,

das war wiedermal ein Volltreffer.

Funktioniert bestens. Allerdings kann es je nach System sein, das sich iexplore.exe oder Firefox.exe nicht im vorgegebenen Installationspfad befinden. Was dann...

Wie kann man am einfachsten feststellen wo sich die beiden ausfühgrbaren Dateien befinden ?

Danke nochmals für den obigen Lösungsvorschlag

[DeddyH]

Vielleicht kann man über die Registry den Pfad herausfinden (unter HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uni nstall nach einem entsprechenden Schlüssel suchen).

[Bernhard Geyer]

Zitat von nachtstreuner:

Allerdings kann es je nach System sein, das sich iexplore.exe ... nicht im vorgegebenen Installationspfad befinden.

Wie soll das möglich sein? hatte bei IE noch nie einen Auswahldialog bezüglich Installationspfad gesehen

[DeddyH]

Habe ich mir auch gedacht, aber bei anderen Browsern (FF, Chrome, Safari etc.) hat er ja Recht. Gab es hier in der DP nicht mal eine Komponente, die die installierten Browser ermitteln konnte?

[edit] Japp, gefunden: http://www.delphipraxis.net/105635-t...uszulesen.html [/edit]

[nachtstreuner]

Hallo DeddyH,Hallo Bernhard,

vielen Dank für eure Beiträge. Natürlich meinte ich die anderen Browser, die selbstverständlich irgendwo auf der Platte oder gar einem Stick installiert sind. IExplore.exe sei mal davon ausgeschlossen. Wobei ich gerade gesehen habe, das auf meinem Windows 7 System, die iexplore.exe in folgenden Verzeichnissen zu finden ist.

c:\Program Files (x86)\Internet Explorer\iexplore.exe und
c:\Program Files\Internet Explorer\iexplore.exe

Desweiteren kann ich die iexplore.exe(eine Kopie davon) in jedes Verzeichnis kopieren und starten.

Werde nachher mal TInstalledBrowsers ausprobieren.