Função para obter os valores das variáveis de ambiente do Windows. – Show Delphi

DICAS

Visite a biblioteca de dicas da comunidade.

Saiba mais

ARTIGOS

Abordagens detalhadas sobre assuntos diversos.

Saiba mais

INICIANTES

Aprenda a programar de um modo simples e fácil.

Saiba mais

DOWNLOADS

Acesse os materiais exclusivos aos membros.

Saiba mais
voltar

PARA QUEM GOSTA DE DELPHI

Função para obter os valores das variáveis de ambiente do Windows.

 

Esta função recebe o nome da variável de ambiente
a qual deve-se acessar e retorna uma string com seu valor.

Caso a variável não seja localizada, a função retorna uma
String vazia.

É necessário estar declarado Windows na seção uses,
em versões unicode declare Winapi.Windows.

Abaixo segue o código fonte da função:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
function GetValVarAmbiente(const VarName: string): string;
var
  I: Integer;
begin
  Result := '';
 
  { Obtém o comprimento da variável. }
  I := GetEnvironmentVariable(PChar(VarName), nil, 0);
 
  if (I > 0) then
  begin
    SetLength(Result, I);
    GetEnvironmentVariable(PChar(VarName), PChar(Result), I);
  end;
end;

Exemplos de uso

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Verificando a pasta do windows.
  ShowMessage('Diretório do Windows:' + GetValVarAmbiente('windir'));
 
  // Verificando a pasta de arquivos temporários.
  ShowMessage('Diretório do Windows:' + GetValVarAmbiente('TEMP'));
 
  // Verificando a arquitatura do processador.
  ShowMessage('Diretório do Windows:' +
  GetValVarAmbiente('PROCESSOR_ARCHITECTURE'));
end;
Facebook Comments

Posts Relacionados

  • Administrador
  • 939 views
  • 0 comentários
  • 26 de março de 2015

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Ir ao topo

© 2016 Infus Soluções em Tecnologia - Todos os Direitos Reservados