Environment strings?

Function GetEnvVar(const csVarName : String ) : String;
const
  cnMaxVarValueSize = 250;
var
  pc1, pc2  : PChar;
begin
  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

Tusind tak Jens.
Du er en ven i nøden. Der er næsten ikke en grund til at skrive sit spørgsmål her i experten.dk, hvorfor ikke bare sende det til borrisholt's email :)