[KaLLIaK]

Чтоб хоть как-то приблизится к желаемому, нашел как вытащить название видео карты.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
  memo1.lines.Clear;
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc := 0;
  while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
  begin
    Inc(cc);
    memo1.lines.add(lpDisplayDevice.DeviceString);
    Memo1.Lines.Delete(1); //удаляем 2ненужную строку
    Memo1.Lines.Delete(2); //удаляем 3ненужную
    Memo1.Lines.Delete(3); //4ненужную.

  end;

end;

Теперь бы еще вытащить звук (хотя бы) и как-то расставить на против них их ИД.