Buscar

Resgatando de variáveis do ambiente dos

Código

Function GetDOSEnvVar(const VarName:String):String;
// Rotina de resgate das variáveis de ambiente DOS
Var
Len:Integer;
pDosEnv:PChar;
Begin
result :='';
Len := Length(VarName);
PDosEnv := GetEnvironmentStrings;
If (StrLIComp(PDosEnv, @VarName[1], Len) = 0) And (PDosEnv[Len] =' ') Then
  Begin
  Result := StrPas(PDosEnv + Len + 1);
  Break;
  End;
Inc(PDosEnv, StrLen(PDosEnv) + 1);
End;

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Windows
Adicionada dia: 24/06/03
Por: Felipe Monteiro
Visualizada: 1953 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009