Как изменить частоту видеоадаптера?

← →
DSKalugin © (2004-11-02 17:29) [0]

При старте ТВТюнера сбрасывается частота видеоадаптера до 60Гц.
Как программно изменить частоту видеоадаптера?
хочу написать обертку для этого долбаного тюнера, чтобы при выходе восстанавливал частоту и выключал ПК. С остальным - все ясно

← →
clickmaker © (2004-11-02 18:34) [1]

ChangeDisplaySettings()

← →
DSKalugin © (2004-11-03 13:48) [2]

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

uses ..., ShellApi, ...; procedure SetScreen(BPP:byte;width,height,FR:integer); var D: TDevMode; h: HWND; begin h:=0; D.dmDeviceName:="DISPLAY"; D.dmBitsPerPel:=BPP; D.dmDisplayFrequency:=FR; D.dmPelsWidth:=Width; D.dmPelsHeight:=Height; D.dmFields:=DM_BITSPERPEL+DM_PELSWIDTH+DM_PELSHEIGHT+DM_DISPLAYFREQUENCY; D.dmSize:=SizeOf(D); if ChangeDisplaySettings(D,CDS_TEST)=DISP_CHANGE_SUCCESSFUL then ChangeDisplaySettings(D,CDS_UPDATEREGISTRY) else begin showmessage("Монитор не поддерживает выбраный вами видео режим"); Form1.Close; //При ощибке выходит end; end; procedure TForm1.FormCreate(Sender: TObject); begin SetScreen(32,1024,768,60); {Бит,Width,Height,Гц.} end;

Напищи помогло или непомогло или сам разобрался!

Как изменить частоту видеоадаптера? Найти похожие ветки