Получить описание ПК

[Shouldercannon]

Имя ПК можно получить так

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;

Как можно получить Описание ПК

[саша40]

Компьютер->Свойства системы

[Shouldercannon]

Сообщение от саша40

Компьютер->Свойства системы

Шутник, а если по делу?

[Аватар]

А что такое описание компьютера? Например для определения версии винды можно воспользоваться Win32Platform, Win32MajorVersion, Win32MinorVersion, Win32BuildNumber или просто GetVersionEx. Для оценки физической памяти GlobalMemoryStatus и так для каждого искомого параметра. Есть SystemParametersInfo и прочее

[Shouldercannon]

Конкретно интересует

[Аватар]

http://www.tek-tips.com/viewthread.cfm?qid=1210820

[Shouldercannon]

Сообщение от Аватар

http://www.tek-tips.com/viewthread.cfm?qid=1210820

Ни один из браузеров не может перейти по ссылке

[Аватар]

Там не Delphi но разобраться можно.
Вариант 1

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
    Wscript.Echo "Description: " & objItem.Description
Next

Вариант 2

Dim objShell
Set objShell = CreateObject("Wscript.Shell")
RegKey = "HKLM\System\currentControlSet\Services\lanmanserver\Parameters\"
PCDesc = objShell.RegRead(RegKey & "srvcomment")
Wscript.Echo PCDesc

[Shouldercannon]

Было подозрение, что придётся в реестр лезть

function GetComputerNetDescription: string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('SYSTEM\CurrentControlSet\Services\LanmanServer\Parameters', False);
  Result := Reg.ReadString('srvcomment');
  Reg.CloseKey;
  Reg.Free;
end;