Adgang til NT environment variabler fra et Delphi program

Brugernavnet får du fat i sådan her :

Function GetCurrentUserName : String;
var
  Size : Cardinal;
begin
Size := MAX_PATH;
SetLength(Result, Size);
Windows.GetUserName(PChar(Result),Size);
SetLength(Result, Pred(Pos(#0,Result)));
end;


De resterende variabler fanger du sådan her :

Function GetEnvVar(const csVarName : String ) : String;
const
{
change the following value if you
expect more than 250 char values
from env. vars. set to 250 by
default to be compatible with
16bit versions of Delphi
}
  cnMaxVarValueSize = 250;
var
  pc1, pc2  : PChar;
begin

{
although you can use huge Strings with
Delphi 4.x, we\'ll use good old PChars
and allocate memory here
}
  pc1 := StrAlloc( Length( csVarName )+1 );
  pc2 := StrAlloc( cnMaxVarValueSize + 1 );
  StrPCopy( pc1, csVarName );
  GetEnvironmentVariableA( pc1, pc2, cnMaxVarValueSize );
  Result := StrPas( pc2 );
  StrDispose( pc1 );
  StrDispose( pc2 );
end;


Jens B

Kan du give noget uddybende forklaring ? Det virker lidt kryptisk. Jeg kan finde forklaring til alle de ting, du gør i koden, men det forvirrer bare endnu mere.

GetCurrentUserName er vel lige til ?

Til den adnden prøv en form en knap og et memo. Og så det følgende kode :

Memo1.Lines.Add(GetEnvVar(\'ComSpec\'));
Memo1.Lines.Add(GetEnvVar(\'Path\'));


Jens B