| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Меняем частоту обновления экрана

Zhenja ©   (2005-05-17 10:14:00) 

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

---

Zhenja   (2005-05-17 11:25:00) [1]

Спасибо

---

Zhenja   (2005-05-17 11:25:00) [2]

Спасибо

---

Zhenja   (2005-05-17 11:24:00) [3]

Спасибо

---

Jungle Forever!   (2005-05-17 10:23:00) [4]

Вот статья с 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;

---

Наверх