Folgenden Code habe ich gesucht/gefunden/gelesen/verstanden und gelernt..
so..
Delphi-Quellcode:
function GetUsername: String;
var
Buffer: array[0..255] of Char;
Size: DWord;
begin
Size := SizeOf(Buffer);
if not Windows.GetUserName(Buffer, Size) then
RaiseLastOSError;
SetString(Result, Buffer, Size - 1);
end;
Jetzt frage ich mich nur, ob das hier Speichern in einer Variable) so in Ordnung ist:
Delphi-Quellcode:
var
x : String;
begin
X := GetUsername;
end;