Скачать: CL | DM;

Меняем частоту обновления экрана   Найти похожие ветки 

← →
Zhenja   (2005-05-17 10:14) [0]

Подскажите плиз каким способом можно поменять частоту и разрешение.
Спасибо!

---

← →
Jungle Forever!   (2005-05-17 10:23) [1]

Вот статья с delphiworld.narod.ru:

Получение видорежимов:

procedure TForm1.FormCreate(Sender: TObject);
var
 i: Integer;
 DevMode: TDevMode;
begin
 i:=0;
 while EnumDisplaySettings(nil,i,DevMode) do
 begin
   with Devmode do
     ListBox1.Items.Add(Format("%dx%d %d Colors",
     [dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));
   Inc(i);
 end;
end;

Установка видеорежимов:

procedure TForm1.Button1Click(Sender: TObject);
var
 DevMode: TDeviceMode;
 liRetValue: Longint;
begin
 if EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode) then
   liRetValue := ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY);

 SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, 0);
end;

---

← →
Zhenja   (2005-05-17 11:24) [2]

Спасибо

---

← →
Zhenja   (2005-05-17 11:25) [3]

Спасибо

---

← →
Zhenja   (2005-05-17 11:25) [4]

Спасибо

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c