benutzer auslesen

[Fritziiiii]

hi leute, vielleicht kann mir ja jemand von euch weiterhelfen

ich möchte eigentlich nur, daß meine anwendung weiß, welcher benutzer(login) auf dem rechner aktiv ist, um eben den benutzernamen auslesen zu können. was auch noch nett wär, ist den rechnernamen zu wissen.

wenn mir jemand weiterhelfen könnte, würd mich das tierisch freuen

fritziiiii

[Lars]

Nimmst die API-Funktion
  FUNCTION GetUserName(lpBuffer : LPTStr; nSize : LPDWord) : Boolean; STDCALL; EXTERNAL 'advAPI32.DLL' name 'GetUserNameA';


Falls diese Funktion False zurückliefern sollte,
müßtest Du evtl. die Umgebungsvariablen NWUSERNAME (NT) oder USERID (Win9x) auslesen (GetEnvironmentVariable)

[edit]
Ups, hast recht Rainer.
dumdidum...

[Rainer]

hmmm? Lars, evtl nicht auf den Bereich geachtet?

Unter Linux mit Kylix geht es so

Code:

uses libc;



function GetUserName: string;

var

  passwdRecord : PPasswordRecord;

begin

  passwdRecord := getpwuid(getuid);

  Result := passwdRecord.pw_name;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowMessage(GetUserName);

end;