Get Computer Net Name and User Windows

function GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
  Result := buffer
  else
  Result := ''
end;

Function GetUserFromWindows: string;
Var
  UserName : string;
  UserNameLen : Dword;
Begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen) ;
  If GetUserName(PChar(UserName), UserNameLen) Then
  Result := Copy(UserName,1,UserNameLen - 1)
  Else
  Result := 'Unknown';
End;