Nesse vídeo demonstraremos a utilização da função PasteFromClipboard, que pega o conteúdo armazenado na área de transferência do sistema operacional.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe381
Busca um conteúdo que esta na clipboard do S.O.
@type Function
@author Atilio
@since 28/03/2023
@see https://tdn.totvs.com/display/tec/PasteFromClipboard
@obs
Função PasteFromClipboard
Parâmetros
Função não tem parâmetros
Retorno
Retorna o conteúdo que foi dado Ctrl+C em memória
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe381()
Local aArea := FWGetArea()
Local cTexto := ""
//Busca o valor e mostra
cTexto := PasteFromClipboard()
FWAlertInfo("O conteúdo em memória é '" + cTexto + "'", "Teste PasteFromClipboard")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
