данные о видеосистеме: тип видеоадаптера, тип монитора, режим монитора: разрешение, частота обновления

[WaxeP]

Подскажите пожалуйста как в Delphi получить информацию о видеосистеме компа: тип видеоадаптер, тип монитора, режим монитора(разрешение, частота обновления).

[merax]

Примеры из DelphiWorld 6:

Видюха-

procedure TForm1.button1click(Sender: TObject);
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
  form2.memo1.Clear;
  lpDisplayDevice.cb := sizeof(lpDisplayDevice);
  dwFlags := 0;
  cc := 0;
  while EnumDisplayDevices(nil, cc, lpDisplayDevice, dwFlags) do
  begin
    Inc(cc);
    form2.memo1.lines.add(lpDisplayDevice.DeviceString);
    {Так же мы увидим дополнительную информацию в lpDisplayDevice}
    form2.show;

end;
end;

Монитор - Определить текущее разрешение просто, достаточно обратиться к объекту TScreen и
посмотреть значения его полей Width и Height.

[WaxeP]

С видухой понятно, спасибо.
Через EnumDisplaySettings получаю список возможных параметров драйвера, но как получить текучие настройки (для частоты) всё равно не знаю. И с названием монитора никак. Help please ещё .

[Alar]

http://pblog.ru/?p=18

[merax]

Кстати можно тупо узнать так:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
     x, y : integer;
begin
x := Screen.DesktopHeight;
y := Screen.DesktopWidth;
Memo1.Lines.Add(IntToStr (y) + ' x ' + IntToStr (x));
end;

[WaxeP]

Странные вещи: везде идёт роспись функции EnumDisplaySettings и через неё получают весь список возможных параметров – это я и сам врубился, как ещё раньше писал. Но вот конкретно как узнать то что сейчас стоит нигде не пишут. Хорошо с разрешением, там ничего сложного, но надо ещё и частоту и имя дисплея получить (типа SyncMaster 757NF) – этого почему-то нигде не описано. Только пишут, что мол нужно не только знать текущие параметры, но и все возможные и давай про EnumDisplaySettings рассказывать, а как получить эти самые текущие!!?? Я в замешательстве, честное слово. А самое главное уверен что реально несложно, только с этим не сталкивался никто (из просматривающих тему имеется ввиду), пожалуйста перекопайте ещё у кого что есть.

[WaxeP]

Всё таки нашёл, как получать все настройки монитора. Вот:

 
procedure TForm1.Button1Click(Sender: TObject);
var
h,w,b,f:integer;
begin
h:=screen.Height;
w:=screen.Width;
b:=GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL); - глубина цвета
f:=GetDeviceCaps(Form1.Canvas.Handle, VREFRESH); - частота обновления
memo1.lines.add(inttostr(h));
memo1.lines.add(inttostr(w));
memo1.lines.add(inttostr(b));
memo1.lines.add(inttostr(f));
end;

Так и знал что мелочь, но о ней надо было знать – так вот и бывает постоянно: о всём подумаешь, а на мелочах засыпишся.
Теперь касательно монитора осталось имя получить. HELP!!!

[WaxeP]

Наконец я до всего додумался. Имя монитора достаю из реестра, работать правда будет походу только под ХР, но это хоть что-то. Ниже результат полудня напряжённого вглядывания в монитор, надеюсь, кому-то это будет полезно и он не будет так долго париться как я.

 
procedure TForm1.FormCreate(Sender: TObject);
var
lpDisplayDevice: TDisplayDevice; //для имени видеокарты
 
Reg:TRegistry;        //для имени монитора
SubKeys:TStringList;  //для имени монитора
MonitorName:string;   //для имени монитора
 
H,W,B,F:integer;  //настройки монитора
 
begin
 
//имя видеокарты
lpDisplayDevice.cb := sizeof(lpDisplayDevice);
if  EnumDisplayDevices(nil, 0, lpDisplayDevice, 0) then
Label2.Caption:='Видеоадаптер: '+lpDisplayDevice.DeviceString;
 
 
//настройки монитора
h:=screen.Height;
w:=screen.Width;
b:=GetDeviceCaps(Form1.Canvas.Handle, BITSPIXEL);
f:=GetDeviceCaps(Form1.Canvas.Handle, VREFRESH);
Label4.Caption:='Видеорежим: '+inttostr(w)+'x'+inttostr(h)+' '
+inttostr(b)+'bit '+inttostr(f)+'Hz';
 
 
//имя монитора
Reg:=TRegistry.Create;
with Reg do
  begin
  try
  RootKey := HKEY_LOCAL_MACHINE;
  OpenKeyReadOnly('SYSTEM\ControlSet001\Enum\DISPLAY\Default_Monitor');
  SubKeys := TStringList.Create;
  GetKeyNames(SubKeys);
  OpenKeyReadOnly(SubKeys[0]);
  MonitorName:=ReadString('DeviceDesc');
  if MonitorName='' then //если не удалось получить имени монитора
    begin
    Label3.Caption:='Монитор:  не удалось определить';
    exit;
    end;
  Label3.Caption:='Монитор: '+MonitorName; //если получили имя монитора выводим
  SubKeys.Free;
  Free;
  Except //если произошел вообще какой-то глюк при работе с реестром
  Label3.Caption:= 'Монитор:  не удалось определить';
  end;
  end;
 
end;

ЗЫ: Самым полезным было сообщение от merax, а конкретней строка “Примеры из DelphiWorld 6:” – раздобыл я этот DelphiWorld 6 и там обнаружил кучу полезной инфы, оттуда черпал идеи по написанию вышеизложенной процедуры. Всем спасибо за внимание к теме.

[zetrix]

Вот, когда-то писал - может понадобится:

[WaxeP]

Всё это хорошо, но всё равно пришлось бы самому разбираться, хотя это даже и лучше – больше всякого интересного и полезного перекопал и узнал. Насчёт правил и инфы – ничё нового, ток сидя через модем не раскатаешь губу качать всего и много и так друзей напрягаеш всегда L. А прога полезная – относительно меня интересно с версией винды, спасибо.