Rede - detectar usuario

Function GetWindowsUser: String;

Var

  nTam: Integer;    // Cardinal; -> PARA DELPHI 4

Begin

  nTam := 256;

  SetLength( Result, nTam );

  GetUserName( PChar( Result ), nTam );

  SetLength( Result, nTam );

End;

another way

===========

function UserName: String;

const

  cnMaxUserNameLen = 254;

var

  sUserName: String;

  dwUserNameLen: DWord;

begin

  dwUserNameLen := cnMaxUserNameLen -1;

  SetLength(sUserName, cnMaxUserNameLen);

  GetUserName(PChar(sUserName), dwUserNameLen);

  SetLength(sUserName, dwUserNameLen);

  Result := sUserName;

end;