Fórum Saber usuário conectado à Novell #238552

function read_userid: string;
var
    LPTSTR: array[0..100] of char; // address of name buffer
    LPDWORD: dword; // address of size of name buffer
begin
  LPTSTR := ´´;
  LPDWORD := 100;
  getusername(LPTSTR, LPDWORD);
  read_userid := trim(uppercase(LPTSTR));
end;