No vídeo de hoje, vamos demonstrar em como abrir o navegador padrão, através um comando via AdvPL.

A dúvida de hoje, nos perguntaram, como poderíamos abrir uma URL direto no navegador padrão do Sistema Operacional via AdvPL.

Pensando nisso, montamos esse exemplo, onde vamos demonstrar em como fazer isso através da função ShellExecute.

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zVid0126
Demonstração em como abrir um site pelo navegador
@type  Function
@author Atilio
@since 22/02/2024
/*/

User Function zVid0126()
    Local aArea := FWGetArea()
    Local cURL  := "https://atiliosistemas.com"

    //Mostra uma pergunta
    If FWAlertYesNo("Deseja abrir o site <strong>" + cURL + "</strong>?", "Continua?")
    
        //Abre o link pelo navegador
        ShellExecute("Open", cURL, "", "", 1)
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP