Dica do dia: variável de ambiente
Enviado: 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