Programmieren - alles kontrollieren 4.940 Themen, 20.676 Beiträge

Verfolgung starten Optionen

Benutzernamen in Delphi abfragen

pshuber / 6 Antworten / Flachansicht Nickles

Hallo,


hat jemand schnell einen Code um den Benutzernamen (wie man ihn bei der Windowsinstallation eingibt) abzufragen und ihn unter Delphi 2 Developer in einer Stringvariablen zu speichern?


Vielen Dank für Antworten schon mal im Vorraus
pshuber

bei Antwort benachrichtigen
Borlander pshuber „Benutzernamen in Delphi abfragen“
Optionen
function GetUserName: String;
var
  Buffer: Array[0..MAX_COMPUTERNAME_LENGTH+1] of Char;
  Size: DWORD;
begin
  Size:=1024;
  Windows.GetUserName(Buffer, Size);
  Result:=StrPas(Buffer);
end;



CU Borlander
bei Antwort benachrichtigen
Thanks. pshuber
Code hat bei mir nicht funktioniert, aber etwas Suche in der Registry hat ... pshuber
Der Registry Schlüssel ist bei mir unter W2K nicht vorhanden, würde also ... Borlander
Also bei mir funktioniert die Function einwandfrei... Das Du die Funktion ... Borlander
Das Du die Funktion noch aufrufen musst ist Dir hoffentlich klar? Also ... pshuber