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

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

Смена разрешения экрана [D5, Win95/98, WinXP]

Ilg ©   (2004-01-03 14:31:00) 

Здравствуйте!
Я столкнулся со следующей проблемой:
Мне нужно изменить разрешение экрана. Использую процедуру

procedure ChangeDisplayResolution(x, y: word);
var
 dm: TDEVMODE;
begin
 ZeroMemory(@dm, sizeof(TDEVMODE));
 dm.dmSize := sizeof(TDEVMODE);
 dm.dmPelsWidth := x;
 dm.dmPelsHeight := y;
 dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
 ChangeDisplaySettings(dm, 0);
end;
В Windows 98 все работает нормально, а в Windows XP наблюдается следующий глюк: разрешение меняется нормально, но частота устанавливается строго 60 Гц (даже если до смены было такое же разрешение, но с нормальной частотой). Как с этим бороться?
Заранее, Большое спасибо!

---

Автоответчик   (2004-01-04 15:05:00) [1]

Сначала получи все возможные режими с помощью EnumDisplaySettings

---

Автоответчик   (2004-01-04 15:05:00) [2]

Сначала получи все возможные режимы с помощью EnumDisplaySettings

---

Ilg   (2004-01-04 14:20:00) [3]

Спасибо, но это не очень подходит, т. к. не получится выставлять частоту вручную (поддерживаемая частота не известна, на каждом компьютере разная (кроме тех же 60 Гц)). Проблема в том, что с промощью используемой процедуры в Win98 ставится нормальная частота, а в WinXP - 60 Гц... А может это глюк WinXP или драйверов?

---

Konstantin   (2004-01-03 15:03:00) [4]

Привет, dmDisplayFrequency вроде бы и есть частота, вот код из фака для смены разрешения, может поможет.

function SetFullscreenMode(ModeIndex: Integer): Boolean;
var
DeviceMode : TDevMode;
begin
with DeviceMode do
  begin
    dmSize := SizeOf(DeviceMode);
    dmBitsPerPel := 32;
    dmPelsWidth := 800;
    dmPelsHeight := 600;
    dmDisplayFrequency := 85;
    dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT
      or DM_DISPLAYFREQUENCY;
    Result := False;
    if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN)
               <> DISP_CHANGE_SUCCESSFUL then Exit;
    Result := ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
  end;
end;

procedure RestoreDefaultMode;
var
T : TDevMode;
begin
ChangeDisplaySettings(T, CDS_FULLSCREEN);
end;


---

Наверх