Função: Variavel do Ambiente - Códigos Delphi

Código Delphi

// Função: Variavel do Ambiente.

// Retorna Informações Sobre Uma Variável do Ambiente.

Código

function API_GetEnvironmentVariable(EnVar : string) : string;
var
pEnvStrings : pointer;
begin
pEnvStrings := GetEnvironmentStrings;
SetLength(Result, 256);
SetLength(Result, GetEnvironmentVariable(pchar(EnVar), pchar(Result),256));
FreeEnvironmentStrings(pEnvStrings);
end;