PC_Namen auslesen ?

[marabu]

Stimmt:

Delphi-Quellcode:

function CurrentUser: string;
var
  buf: array [0..256] of Char;
  size: Cardinal;
begin
  size := SizeOf(buf);
  if Windows.GetUserName(@buf, size)
    then Result := buf
    else Result := '';
end;