Umgebungsvariable USERNAME laden

[juelin]

Hallo,
ich möchte in Lazarus den Inhalt von der Umgebungsvariable USERNAME laden.
In Delphi habe ich das folgender masen gemacht:

Code: Alles auswählen

  var BUser: string;
  var ranz: integer;
  var anz: word;
  
  BUser:='                                                     ';
  anz:=Length(BUser);
  try
    ranz:=GetEnvironmentVariable('USERNAME', LPTSTR(BUser), anz);
    xuser:=BUser;
    BUser:=copy(xuser, 1, ranz);
  except
    BUser:='unknown';
  end;

Wie geht das in Lazarus?
Danke und Gruß
Jürgen

[theo]

Code: Alles auswählen

GetEnvironmentVariable('USER'); //oder USERNAME auf Win?   

reicht. Gibt direkt den String zurück.

[af0815]

Laut der Doku ist die Syntax etwas anders. Da gibt es nur einen Parameter.
https://www.freepascal.org/docs-html/rt ... iable.html

Ach ja, was oft vergessen wird, das die Umgebung unterschiedlich sein kann, je nachdem wie gestartet wird (GUI vs. Commandline, Batch,...).

[juelin]

ja Danke,
hat geholfen.
bis dann ........
Jürgen