Standard-Browser [Erledigt]

[Jan]

Gibt es eine praktikable Möglichkeit, aus dem Programm heraus den Standard-Browser abzufragen?

Jan

[georg]

Hallo, Jan -


aus dem Ärmel geschüttelt: das ist das Standard-Programm, das für http:// Adressen bzw. .html Dateien in der Registry eingetragen ist.

Ich würde jetzt bei mir nachsehen, wie die Einträge in ClassesRoot lauten und dann in meinem Programm die Registry entsprechend auslesen.

[brandelh]

Hi,

das "Standardprogramm" ermittle ich mit dieser Funktion (z.b. für den Standard-PDF-Reader), die sollte auch für HTM Dateien gelten.
Wichtig, du musst den Pfad (ohne Datei) und die gewünschte Datei dieses Typs angeben.

Code: Alles auswählen

*-------------------------------------------------------------
function GetStandardProgramm(cFile, cPath)
   local cExe , nRet, x
   cExe := space(256)
   nRet := FindExecutableA(cFile, cPath, @cExe)
   if nRet <= 32
      cExe := ""
   else
      x := at(chr(0),cExe)
      if x > 0
         cExe := left(cExe,x-1)
      endif
      cExe := alltrim(cExe)
   endif
return cExe

DLLFUNCTION FindExecutableA( cF, cP, @cE ) USING STDCALL FROM SHELL32.DLL

[Jan]

Moin Hubert,

hervorragend! Vielen Dank, das werde ich heute Abend mal ausprobieren.

Nur zur Info, warum ich das frage (Manfred, könnte eventuell für Dich interessant sein): Ich erstelle bei Bedarf html-Dateien mit einem Aufruf von OpenStreetMap. Da kann ich dann auch selbstdefinierte Marker der betreffenden Orte anzeigen. Das klappt einwandfrei - aber nicht beim Opera. Da muß man erst eine einfache manuelle Konfiguration vornehmen. Das würde ich dem Anwender im Bedarfsfall natürlich gerne mitgeben. Daher möchte ich abfragen, ob der Opera der Standard-Browser ist.

Jan

[Jan]

Moin Hubert,

das funktioniert einwandfrei. Danke für den Code.

Jan