Clipper On Line • Ver Tópico - Dica do dia: variável de ambiente
Mudar para estilo Clássico
Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.
Postar uma resposta

Dica do dia: variável de ambiente

12 Mar 2020 17:55

Acho que o fonte diz tudo:

Código:
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

Dica do dia: variável de ambiente

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.
Postar uma resposta