BUffer leeren.

[yörsch]

ich hab bei mir folgenden schnipsel gefunden...

Delphi-Quellcode:

function GetNTloginUser: string;
VAR szUserName: PChar;
    iUserNameLength: Cardinal;
begin
  iUserNameLength := 0;
  //Retrieve windows username
  GetUserName(nil, iUserNameLength);
  Inc(iUserNameLength, 2);
  GetMem(szUserName, iUserNameLength);
  if not GetUserName(szUserName, iUserNameLength) then szUserName := '';
  result:= szUserName;
end;