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

← →
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]

Спасибо

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