[[Ohcan]]

Para el nombre del equipo:

Código Delphi [-]
function GetComputerName:String;
var
  pcComputer:PChar;
  dwCSizeWORD;
begin
  dwCSize := MAX_COMPUTERNAME_LENGTH+1;
  GetMem(pcComputer,dwCSize);
  try
    if Windows.GetComputerName(pcComputer,dwCSize) then Result := pcComputer;
  finally
    FreeMem(pcComputer);
  end;
end;