Dica do dia: variável de ambiente

[JoséQuintas]

Acho que o fonte diz tudo:

Código: Selecionar todos

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éQuintas]

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

A partir de agora, se precisar reinstalar Windows, meu aplicativo de build configura automático.