Seite 1 von 1

Standard-Browser [Erledigt]

Verfasst: So, 03. Feb 2013 18:38
von Jan
Gibt es eine praktikable Möglichkeit, aus dem Programm heraus den Standard-Browser abzufragen?

Jan

Re: Standard-Browser

Verfasst: So, 03. Feb 2013 19:30
von 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.

Re: Standard-Browser

Verfasst: Mo, 04. Feb 2013 10:15
von 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

Re: Standard-Browser

Verfasst: Mo, 04. Feb 2013 10:41
von 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

Re: Standard-Browser

Verfasst: Mi, 06. Feb 2013 8:17
von Jan
Moin Hubert,

das funktioniert einwandfrei. Danke für den Code.

Jan