Environment-Variablen (Username, Computername...) rausfinden

[Dax]

Luckie hat in diesem Thread noch eine Möglichkeit aufgezeigt, Umgebungsvariablen zu bekommen ohne SysUtils nutzen zu müssen:

Delphi-Quellcode:

(*
* Author  : Michael Puff - [url]http://www.michael-puff.de[/url]
* Date    : 2006-05-14
* License : PUBLIC DOMAIN
*)

function ReadEnviromentVariable(const Variable: string; var Value: string): DWORD;
var
  error             : DWORD;
  Buffer            : PChar;
  len               : Integer;
begin
  error := 0;

  len := GetEnvironmentVariable(PChar(Variable), nil, 0);
  if len > 0 then
  begin
    try
      Buffer := GetMemory(len);
      len := GetEnvironmentVariable(PChar(Variable), Buffer, len);
      SetString(Value, Buffer, len);
    finally
      FreeMemory(Buffer);
    end;
  end
  else
    error := GetLastError;

  result := error;
end;

Verwenden kann man diese Funktion zum Beispiel so:

Delphi-Quellcode:

var
  s                 : string;
  error             : Integer;
begin
  error := ReadEnviromentVariable('windir', s);
  if error <> 0 then
    s := SysErrorMessage(error);
  ShowMessage(s);
end;