[Winny]

1.Есть специальные программы для этого
2.Вот как узнать имя компьютера:

Код:

uses 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;

Как узнать версию компьютера:
http://www.btc.lancom.ru/programming...s_version.html
http://www.btc.lancom.ru/programming..._version2.html
Как узнать имя пользователя:

Код:

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;

3.Всегда пожалуйста