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

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

Изменение частоты обновления экрана ? [D7, WinXP]

chili ©   (2005-07-28 12:02:00) 

Добрый день...

Подскажите как изменить частоту обновления экрана???

---

chili   (2005-07-28 13:11:00) [1]

Вобщем сам разобрался
если кто не знает или просто интересно :)

function TMainForm.ChangeResolution(XResolution, YResolution, Depth: DWORD; Frequency: Cardinal): BOOL;
var
   DevMode: TDeviceMode;
   i: Integer;
begin
   Result := False;
   i := 0;
   while EnumDisplaySettings(nil, i, DevMode) do
       with DevMode do
       begin
           if (dmPelsWidth = XResolution) and (dmPelsHeight = YResolution) and (dmBitsPerPel = Depth) and (dmDisplayFrequency = Frequency) then
               if ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL then
               begin
                   Result := True;
                   SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, 0);
                   Break;
               end;
           Inc(i);
       end;
end;


---

Наверх