Pular para o conteúdo principal

Postagem em destaque

BlackTDN NEWS :: 2025.02.12 :: 22:09:23

_Créditos das imagens: ChatGPT # Essa é a primeira imagem gerada por IA protegida por direitos autorais **Fonte:** B9.com.br **Autor:** Carlos Merigo **Publicado em:** 2025-02-12T17:58:04Z ![Imagem](https://assets.b9.com.br/wp-content/uploads/2025/02/i-american-cheese.jpg) > A primeira obra de arte inteiramente gerada por inteligência artificial acaba de receber proteção de direitos autorais nos Estados Unidos. A imagem “A Single Piece of American Cheese”, criada por Kent Keirsey, CEO da Invoke, foi aprovada pelo U.S. Copyright O… [Leia mais](https://www.b9.com.br/171074/imagem-ia-recebe-protecao-direitos-autorais-american-cheese/) --- # SXSW 2025: Issa Rae, Hideo Kojima e elenco de “The Last of Us” estão entre os novos destaques confirmados **Fonte:** B9.com.br **Autor:** Carlos Merigo **Publicado em:** 2025-02-12T13:06:07Z ![Imagem](https://assets.b9.com.br/wp-content/uploads/2025/02/sxsw-pedro-pascal.jpg) > O SXSW anunciou uma nova leva de keynotes e palestrantes para...

Protheus :: Advpl :: Dica Resources por Sergio E. S. Souza

Sergio E. S. Souza

Fala иαldσ,

estava lendo esse seu post sobre 'resources do repositório' e bolei uma solução simples para obter todas as imagens do rpo para uma pasta executando-a no campo formulas!

Caso julgue interessante adicione ao post.

1ª Opção:

Cria uma pasta predefinida e salva instantaneamente as imagens no drive de instalação do SO.

MakeDir(cDir:=Left(GetTempPath(.T.),3)+cVersao+'_IMG\'),aEval(GetResArray('*.*'),{|x|Resource2File(x,cDir+x) })

2ª Opção:

Permite a seleção da pasta e salva instantaneamente as imagens.

cDir:=cGetFile("Pastas|*","Salvar",,,.F.,176),aEval(GetResArray('*.*'),{|x|Resource2File(x,cDir+x) })

Ficadica!

Abs,

Sergio E. S. Souza

Comentários

Postagens mais visitadas