Internetseite mittels Pushbutton aufrufen - xbase 1.9

Alle Fragen um die Programmierung, die sich sonst nicht kategorisieren lassen. Von Makro bis Codeblock, von IF bis ENDIF

Moderator: Moderatoren

Antworten
saul
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 247
Registriert: So, 26. Mär 2006 12:23

Internetseite mittels Pushbutton aufrufen - xbase 1.9

Beitrag von saul » So, 05. Aug 2018 10:52

Hallo,
ich möchte mittels Pushbutton eine Internetseite durch den vom Betriebssystem voreingestelltem Browser öffnen.

Code: Alles auswählen

oInternet := XbpPushButton():New (,, { 10 , 230 } , { 40 , 10 } )
oInternet : pointerFocus :=.F.
oInternet : Caption := "~Interentseite"
oInterent :Create()
oInterent :Activate := { || runshell( "http://homepage.de/index.html" ) }
Leider ist mir das nicht gelungen. Geht das überhaupt?

Wolfgang

Benutzeravatar
Wolfgang Ciriack
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 2434
Registriert: Sa, 24. Sep 2005 9:37
Wohnort: Berlin
Kontaktdaten:

Re: Internetseite mittels Pushbutton aufrufen - xbase 1.9

Beitrag von Wolfgang Ciriack » So, 05. Aug 2018 11:46

Versuchs mal mit:

Code: Alles auswählen

cUrl:=""http://homepage.de/index.html"
cParams := 'url.dll,FileProtocolHandler ' + Alltrim(cURL)
cCommand := 'Rundll32.exe'
lAsync:=.T.
lBackground:=.F.

RunShell( cParams, cCommand, lAsync, lBackground )
Viele Grüße
Wolfgang

saul
Rekursionen-Architekt
Rekursionen-Architekt
Beiträge: 247
Registriert: So, 26. Mär 2006 12:23

Re: Internetseite mittels Pushbutton aufrufen - xbase 1.9

Beitrag von saul » So, 05. Aug 2018 13:38

Klappt, danke.

Wolfgang

Antworten