UserName

[5woho19]

hallo, allerseits!
hat jemand eine ahnung, wie ich den login username in mein programm einbinden kamm ?
(für begrüßung ect.....)
hatte schon einmal unter delphi eingebunden, dies aber vergessen und vergraben irgenwo.........

[m.fuchs]

Da du von Delphi sprichst vermute ich mal du arbeitest unter Windows. Bitte immer das Betriebssystem angeben.

In der Unit Windows befindet sich die Funktion GetUserName. Die dürfte dir helfen.

[5woho19]

Da du von Delphi sprichst vermute ich mal du arbeitest unter Windows. Bitte immer das Betriebssystem angeben.

In der Unit Windows befindet sich die Funktion GetUserName. Die dürfte dir helfen.

OK, danke! ich möchte das aber in LAZARUS haben , hast du noch eine Idee für mich?

[m.fuchs]

Das ist doch für Lazarus.

[5woho19]

Das ist doch für Lazarus.

Ja.natürlich (shame on me ) danke habe vorher schon probiert aber wahrscheinlich mich zu dumm angestellt......

[marcov]

Nebenbei: Fuer *nix gibts die "Users" Package mit units users,grp,pwd,shadow

[jwdietrich]

ich verwende dafür in meinen Programmen immer den folgenden plattformsensitiven Code:

Code: Alles auswählen

uses
  ...
  {$IFDEF win32}
  , Windows
  {$ELSE}
  , Unix
    {$IFDEF LCLCarbon}
  , MacOSAll
    {$ENDIF}
  {$ENDIF}
 
var
  gUserName: string;
  arraySize: DWord; 
 
...
 
{$IFDEF UNIX}
gUserName := GetEnvironmentVariable('USER');
{$ELSE}
GetUserName(UserName, arraySize);
gUserName := string(UserName);
{$ENDIF}

Das funktioniert unter allen Betriebssystemen.