Como ler variável de ambiente
Bom dia,
No meu sistema, tenho um método que lê uma variável de ambiente, porém ao ler a variável de ambiente o programa não executa o comando que quero, segue o código.
DEBUG_INI é minha variável de ambiente, se ela está com o valor "TRUE", deveria chamar o método, mas não está chamando. Alguém sabe o que pode impedir o código de ler essa variável corretamente?
OBS: Tentei com outras variáveis de ambiente e deu certo, apenas com essa que eu criei que não funciona
No meu sistema, tenho um método que lê uma variável de ambiente, porém ao ler a variável de ambiente o programa não executa o comando que quero, segue o código.
procedure inicio();
var
PegaVar: string;
begin
PegaVar:= GetEnvironmentVariable('DEBUG_INI');
var1:=False;
if PegaVar= 'TRUE' then
begin
var1:= true;
Metodo();
end;
end;
DEBUG_INI é minha variável de ambiente, se ela está com o valor "TRUE", deveria chamar o método, mas não está chamando. Alguém sabe o que pode impedir o código de ler essa variável corretamente?
OBS: Tentei com outras variáveis de ambiente e deu certo, apenas com essa que eu criei que não funciona
Gabriel
Curtidas 0
Melhor post
Marco Antônio
25/02/2016
gabsmanolo, boa tarde.
Kra aqui funciono bl.
Nas propriedades do sistema 'edita' o nome da variável e verifica se não há espaço no inicio ou no final. Qualquer coisa tenta excluir e incluir novamente esta variável. Lembre-se que qualquer alteração em se tratando de variáveis de ambiente a máquina deverá ser reiniciada.
Kra aqui funciono bl.
Nas propriedades do sistema 'edita' o nome da variável e verifica se não há espaço no inicio ou no final. Qualquer coisa tenta excluir e incluir novamente esta variável. Lembre-se que qualquer alteração em se tratando de variáveis de ambiente a máquina deverá ser reiniciada.
GOSTEI 2
Mais Respostas
Raylan Zibel
25/02/2016
Debugou? O valor de PegaVar é realmente 'TRUE'?
GOSTEI 1
Gabriel
25/02/2016
Debugou? O valor de PegaVar é realmente 'TRUE'?
Sim, para as duas perguntas
GOSTEI 0
Gabriel
25/02/2016
[img]http://arquivo.devmedia.com.br/forum/imagem/465319-20160225-131003.png[/img]
GOSTEI 0
Crist
25/02/2016
Veja se funciona:
function GetEnvVarValue(const VarName: string): string;
var
BufSize: Integer;
begin
BufSize := GetEnvironmentVariable(
PChar(VarName), nil, 0);
if BufSize > 0 then
begin
SetLength(Result, BufSize - 1);
GetEnvironmentVariable(PChar(VarName),
PChar(Result), BufSize);
end
else
Result := '';
end;
function GetEnvVarValue(const VarName: string): string;
var
BufSize: Integer;
begin
BufSize := GetEnvironmentVariable(
PChar(VarName), nil, 0);
if BufSize > 0 then
begin
SetLength(Result, BufSize - 1);
GetEnvironmentVariable(PChar(VarName),
PChar(Result), BufSize);
end
else
Result := '';
end;
GOSTEI 2
Gabriel
25/02/2016
Qualquer coisa tenta excluir e incluir novamente esta variável. Lembre-se que qualquer alteração em se tratando de variáveis de ambiente a máquina deverá ser reiniciada.
Fiz exatamente isso e funcionou, obrigado pela ajuda pessoal!
GOSTEI 0