Clipper On Line • Ver Tópico - Dica do dia: variável de ambiente

Dica do dia: variável de ambiente

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Dica do dia: variável de ambiente

Mensagempor JoséQuintas » 12 Mar 2020 17:55

Acho que o fonte diz tudo:

STATIC FUNCTION CheckGetEnv()

   LOCAL oElement
   LOCAL aList := { ;
      { "HB_BUILD_DYN",         "no" }, ;
      { "HB_BUILD_CONTRIB_DYN", "no" }, ;
      { "HB_BUILD_STRIP",       "all" }, ;
      { "HB_BUILD_SHARED",      "no" }, ;
      { "HB_COMPILER",          "mingw" }, ;
      { "HB_INSTALL_PREFIX",    "d:\harbour" }, ;
      { "HB_WITH_ADS",          "no" }, ;
      { "HB_WITH_CURL",         "no" }, ;
      { "HB_WITH_CAIRO",        "no" }, ;
      { "HB_WITH_RABBITMQ",     "no" }, ;
      { "HB_WITH_FIREBIRD",     "no" }, ;
      { "HB_WITH_FREEIMAGE",    "no" }, ;
      { "HB_WITH_ICU",          "no" }, ;
      { "HB_WITH_GD",           "no" }, ;
      { "HB_WITH_GS",           "no" }, ;
      { "HB_WITH_LIBMAGIC",     "no" }, ;
      { "HB_WITH_MYSQL",        "no" }, ;
      { "HB_WITH_OPENSSL",      "no" }, ;
      { "HB_WITH_PGSQL",        "no" }, ;
      { "HB_WITH_OCILIB",       "no" } }

   FOR EACH oElement IN aList
      IF GetEnv( oElement[ 1 ] ) != oElement[ 2 ] .OR. Empty( GetEnv( oElement[ 1 ]  ) )
         ShowAlert( "Not found SET " + oElement[ 1 ] + "=" + oElement[ 2 ] )
         ShellExecuteOpen( "setx.exe", oElement[ 1 ] + " " + oElement[ 2 ], 0 )
      ENDIF
   NEXT

   RETURN NIL
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13473
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 837 vezes

Dica do dia: variável de ambiente

Mensagempor JoséQuintas » 13 Mar 2020 08:59

Ou talvez não...
Resultado após a execução:

setvar.png


A partir de agora, se precisar reinstalar Windows, meu aplicativo de build configura automático.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13473
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 837 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro