Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > аппаратная конфигурация

Автор: Гость_vin 20.11.2004, 01:00

Ребята, нужно узнать имя сетевой карты и видеоадаптера. Может кто делал, подскажите как.
Причем это нужно делать и под Win9X и под WinNT(2000,XP). А если кто подскажет как определить пишущий или нет CD, то буду очень-очень благодарен

Виноградов Михаил

Автор: Alex 20.11.2004, 12:20

Код


function GetTupeVideoCard: String;
// Возвращает тип видео карты
var
  lpDisplayDevice: TDisplayDevice;
  cc: DWORD;
begin
  lpDisplayDevice.cb:= sizeof(lpDisplayDevice);
  cc:= 0;
  while EnumDisplayDevices(nil, cc, lpDisplayDevice , 0) do begin
    Inc(cc);
    Result:= Result + ' ' + lpDisplayDevice.DeviceString;
  end;
end;