Hallo Frank,
Den Standard-Browser kannst Du auch ueber die Dateiendung ermitteln.
Hier ein Beispiel:
Def FindExecutable(3) !"SHELL32","FindExecutableA"
Proc FindStdBrowser
Declare findfile$,Find$
Assign #1,"~~ttt.html"'DummyFile anlegen
Rewrite #1
Close #1
Dim findfile#,20
Dim result#,255
string findfile#,0="~~ttt.html"
FindExecutable(findfile#,0,result#)'Programm ermitteln
Let Findfile$=String$(result#,0)
Dispose findfile#
Dispose result#
Let Find$ = @FindFirst$(FindFile$)
Assign #1,"~~ttt.html"
Erase #1'DummyFile loeschen
Return Longname$(FindFile$)
EndProc
Declare Findfile#,Result#
cls
FindStdBrowser
Print $(0)
waitinput
end
Gruss
Andreas
|