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

[Skiron]

ich hab hier in der Codelibrary schon einige Beiträge gefunden, wie man den Computernamen oder den Usernamen rausfindet.
Delphi bietet hier aber eine schöne Funktion, welche nicht nur den Computer- und Usernamen bietet, sondern noch viel mehr:

In der Unit SysUtils gibt es die Funktion namens
GetEnvironmentVariable

Es gibt einige Gültige Parameter:
'Username'
'Computername'
'LogonServer'
'OS'
und noch viele andere

die Findet man alle im Delphi-Menü unter Tools->Environment Options (1. Menüpunkt) in der Registerkarte Environment Variables

[MathiasSimmack]

Zitat von Skiron:

Es gibt einige Gültige Parameter:
'Username'
'Computername'
'LogonServer'
'OS'
und noch viele andere

Das stimmt, hängt aber vom Betriebssystem ab. Im Normalfall solltest du daher bspw. für den Benutzer- und Computernamen nicht die Umgebungsvariablen heranziehen, sondern besser die passenden API- oder Delphi-Funktionen nehmen, weil die auf jedem Windows funktionieren. Aber dazu gibt´s schon einige Einträge.

[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;