Executar um Hiperlink

[jfaguiar]

Bom dia amigos.

Como faço para executar um hiperlink em FW xHarbour 13.07 ?

Tentei assim mas não executou:

@ 2, 2 BUTTON "&Help" OF oDlg ;

ACTION WinExec("https://onedrive.live.com/...")

[kapiaba]

Podes ser: URLLINK:

   REDEFINE URLLINK ID 402 URL "mailto:joao@pleno.com.br" OF oDlgBak ;
            FONT oFont                                       ;
            TOOLTIP "E-mail da Contato Sistemas <Click-me>"

ou,

   cGoogleDrive := ( "https://www.google.com/intl/pt-BR/drive/" )
 
   REDEFINE BUTTONBMP oGoogledrive ID 301 OF oDlgBak                        ;
            ACTION( ShellExecute(GetActiveWindow(),"open",'"'+cGoogleDrive+'"') )
 
   oGoogledrive:cToolTip := "Google Drive: armazenamento na nuvem e backup gratuito."

[Orlando FMC]

Eu uso assim:

winexec("C:\Program Files\Google\Chrome\Application\chrome.exe http://www.mg.superesportes.com.br/campeonatos/"+ALLTRIM(STR(YEAR(DATE())))+"/brasileiro/serie-a/")

Mas, neste caso, veja que estou usando o "Google\Chrome".

[kapiaba]

#include "FiveWin.ch"

#include "URLLink.ch"   // samples\testurl.prg


#define COLOR_BTNFACE  15


//----------------------------------------------------------------------------//


function Main()


   local nColor := GetSysColor( COLOR_BTNFACE )

   local oDlg, oFont, oFnt1, oFnt2, oBmp


   DEFINE FONT oFont NAME GetSysFont() SIZE 0, -12

   DEFINE FONT oFnt1 NAME "ARIAL" SIZE 0, -20 BOLD

   DEFINE FONT oFnt2 NAME "ARIAL" SIZE 0, -14 BOLD


   DEFINE DIALOG oDlg RESOURCE "Main" FONT oFont


   REDEFINE BITMAP oBmp ID 301 OF oDlg RESOURCE "Fivewin"


   oBmp:cToolTip := "Logotipo de Fivewin"


   REDEFINE SAY ID 101 PROMPT "FW/FWH/FW++/FWC3" FONT oFnt1 ;

            COLOR CLR_BLACK, nColor OF oDlg


   REDEFINE SAY ID 102 PROMPT "Fivetech © 1993-2004" FONT oFnt2 ;

            COLOR CLR_MAGENTA, nColor OF oDlg


   REDEFINE SAY ID 103 ;

            PROMPT "La mejor librería para crear con CA-Clipper " + ;

                   "auténticas aplicaciones Windows. Es muy fácil " + ;

                   "de usar y los resultados son excelentes. " + ;

                   "Visite la página oficial de Fivewin:" ;

            FONT oFont OF oDlg


   REDEFINE URLLINK ID 104 URL "www.fivetechsoft.com" OF oDlg ;

            TOOLTIP "Sitio oficial de FiveTech"


   REDEFINE SAY ID 105 ;

            PROMPT "Fivewin para Harbour le ofrece el poder de " + ;

                   "los 32 bits. Además, ya está disponible FW " + ;

                   "para el nuevo compilador C3. " + ;

                   "Contacte con nosotros enviando un e-mail a:" ;

            FONT oFont OF oDlg


   REDEFINE URLLINK ID 106 URL "mailto:alinares@fivetechsoft.com" OF oDlg ;

            TOOLTIP "E-mail de FiveTech"


   REDEFINE BUTTON ID 201 ACTION ( oDlg:End() )


   oDlg:lHelpIcon := .f.


   ACTIVATE DIALOG oDlg CENTER ;

            VALID ( oFont:End(), oFnt1:End(), oFnt2:End(), .t. )


return nil


//----------------------------------------------------------------------------//

[jfaguiar]

Show Kapiaba. Valeu galera.

Permitam-me fazer um breve comentário:

Lembro-me quando comecei a programar em Turbo Pascal em 1991 e depois no velho dbase, após fazer todos os tipos de macros em Lotus 123. Logo em seguida passei para o Clipper Sammer 87, Clipper 5.0, Clipper 5.01, Clipper 5.2. Lembro-me que eu "comi" aqueles livros do grande clippeiro Antonio Geraldo da Rocha Vidal. Virei cliente assíduo da Papelivros e da Livraria Cultura, pois trabalhava na Av Paulista, ali por perto.

Hoje me orgulho de participar de uma comunidade tão unida como essa do Fivewin.

Conheço outras linguagem como Delphi, e Visual Basic, aliás a primeira linguagem que programei foi o velho Turbo Pascal, mas me adaptei tanto com a linguagem xbase e o fivewin tornou-se o meu porto seguro!

Parabéns a todos.