Вот что я нашел по поводу видюхи, а ваще хотелсь сделать прогу чтоб о всех железяках на компе выдавала инфу.
var
lpDisplayDevice: TDisplayDevice;
DevMode : TDevMode;
S : String;
i, j, k : integer;
begin
// Подготовка структуры lpDisplayDevice
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
// Получение списка видеоадаптеров
i := 0;
while EnumDisplayDevices(nil, i, lpDisplayDevice, 0) do begin
Inc(i);
Memo1.Lines.Add('***** '+lpDisplayDevice.DeviceString + ' *****');
Memo1.Lines.Add(' DeviceName = ' +lpDisplayDevice.DeviceName + ' - ' + lpDisplayDevice.DeviceString);
S := lpDisplayDevice.DeviceName;
j := 0;
Memo1.Lines.Add(' Мониторы ' );
// Получение списка мониторов
while EnumDisplayDevices(@S[1], j, lpDisplayDevice, 0) do begin
inc(j);
memo1.lines.add(' DeviceMonitor = ' +lpDisplayDevice.DeviceName + ' - ' + lpDisplayDevice.DeviceString);
end;
k := 0;
Memo1.Lines.Add(' Видеорежимы ' );
// Получение списка поддерживаемых видеорежимов
while EnumDisplaySettings(Pchar(S), k, DevMode) do begin
Memo1.Lines.Add(' --- режим № '+IntToStr(k)+' ---');
inc(k);
Memo1.Lines.Add('DevMode.dmDeviceName = ' + DevMode.dmDeviceName);
Memo1.Lines.Add('DevMode.dmBitsPerPel = ' + IntToStr(DevMode.dmBitsPerPel));
Memo1.Lines.Add('DevMode.dmPelsWidth = ' + IntToStr(DevMode.dmPelsWidth));
Memo1.Lines.Add('DevMode.dmPelsHeight = ' + IntToStr(DevMode.dmPelsHeight));
Memo1.Lines.Add('DevMode.dmDisplayFrequency = ' + IntToStr(DevMode.dmDisplayFrequency) + ' Гц');
end;
end;
end;
end.
|