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

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

← →
ReYken   (2002-11-19 11:00) [0]

Заранее благодарен за путевый ответ.

---

← →
Игорь Шевченко ©   (2002-11-19 11:41) [1]

GetDeviceCaps

---

← →
ReYken   (2002-11-19 14:14) [2]

Грхмм.... спасибо. А примера нет?

---

← →
ReYken   (2002-11-19 14:20) [3]

НАШЕЛ!!! Кому надо вот код:

Как узнать частоту развертки:

procedure TForm1.Button1Click(Sender: TObject);
Var TC,BPP,CP,VR,x: integer; x1,x2:real;
OV: TOSVersionInfo;
begin
BPP:=GetDeviceCaps(Form1.Canvas.Handle,BITSPIXEL);
CP:=GetDeviceCaps(Form1.Canvas.Handle,PLANES);
x2:=intpower(2,BPP);
x2:=intpower(x2,CP); TC:=round(x2);
Label1.Caption:="Бит на пиксел: "+IntToStr(BPP);
if (TC<3) then Label2.Caption:="Монохромный дисплей " else
Label2.Caption:="Число цветов: "+IntToStr(TC);
OV.dwOSVersionInfoSize:=SizeOf(OV);
GetVersionEx(OV);
if OV.dwPlatformID=VER_PLATFORM_WIN32_NT then begin
VR:=GetDeviceCaps(Form1.Canvas.Handle,VREFRESH);
Label3.Caption:="Частота развертки: "+IntToStr(VR)+" Гц";
end else Label3.Caption:="Частота развертки не определется в данной ОС";
end;
end.

---

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

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



Память: 0.45 MB
Время: 0.015 c