Разрешения монитор на текущем пользователе занести в comboBox

[Человек_Борща]

Привет всем!
Заинтересовала такая проблема..
как узнать возможные разрешения монитора(экрана) для текущего пользователя а потом занести их в combobox?

как в свойствах дисплея показывает минимально возможное и максимальное.. только для определенного монитора..(т.е. на другом компьютере программа будет уже другие разрешения брать..)

как такое реализовать?

[Kotofff]

Попробуй :

procedure TForm1.Button1Click(Sender: TObject);
var 
  DC: THandle; 
  Bits: integer;  
  HRes: integer;   
  VRes: integer;  
  DM: TDevMode;  
  ModeNum: longint;
  Ok: Bool;
  fre: integer;   
begin 
  DC   := GetDC(Handle); 
  Bits := GetDeviceCaps(DC, BITSPIXEL); 
  HRes := GetDeviceCaps(DC, HORZRES); 
  VRes := GetDeviceCaps(DC, VERTRES); 
  fre  := GetDeviceCaps(DC, VREFRESH); 
  // показываем текущее разрешение
  Edit1.Text := Format('%d bit, %d x %d', [Bits, HRes, VRes]); 
  ReleaseDC(Handle, DC);
  EnumDisplaySettings(nil, ModeNum, DM); 
  // заносим в ListBox все возможные
  ListBox1.Items.Add(Format('%d bit, %d x %d bei %d Hz', [DM.dmBitsPerPel, 
    DM.dmPelsWidth, DM.dmPelsHeight, Dm.dmDisplayFrequency])); 
  Ok := True; 
  while Ok do 
  begin 
    Inc(ModeNum); // Get next one 
    Ok := EnumDisplaySettings(nil, ModeNum, DM); 
    ListBox1.Items.Add(Format('%d bit, %d x %d bei %d Hz', [DM.dmBitsPerPel, 
      DM.dmPelsWidth, DM.dmPelsHeight, Dm.dmDisplayFrequency])); 
  end; 
end;

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
    DevMode : TDevMode;
begin
i:=0;
while  EnumDisplaySettings(nil,i,DevMode) do
 begin
  with Devmode do
  ComboBox1.Items.Add(Format('%dx%d %d Colors %d',
  [dmPelsWidth,dmPelsHeight, dmBitsperPel, dmDisplayFrequency]));
  inc(i);
 end;
end;

[vovk]

может тут?http://www.programmersforum.ru/showthread.php?t=2988

[Человек_Борща]

kotoff:

кхе кхе.. вариант не рабочий..
выводит типа:

7756984 bit, 37 x 1357484 bei 3 Hz

притом дублирует 1 раз. все.

Есть другие способы получить список разрешений монитора только для данного компьютера(монитора)? как это делает "Свойства дисплея"

SERG1980:
Вот спасибо!
Точный ответ на поставленный вопрос! То что надо!....


To all:
Всем спасибо! Вопрос решён!