Вниз
Скачать: CL | DM;

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

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

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


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

ChangeDisplaySettings()


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

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


← →
FRick ©   (2004-11-07 20:44) [3]

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;


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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c
14-1101560486
OneFragLeft
2004-11-27 16:01
2004.12.19
Пришла идея, что даже вылез из за стола (ужинал)


3-1101121950
Aleksandr.
2004-11-22 14:12
2004.12.19
Не удается избавиться от ошибки "Не удалось найти строку..." ADO


14-1100958626
Nikolay M.
2004-11-20 16:50
2004.12.19
В ноутбуках кто разбирается?


1-1102057217
denis24
2004-12-03 10:00
2004.12.19
TdateEdit.date


14-1101457046
gn
2004-11-26 11:17
2004.12.19
Microsoft обвиняют в использовании чужой интеллектуальной собстве




   Наверх