獲得Dos環境變量

function GetDOSEnvVar ( const VarName: string ): string;
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 );