| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как узнать размер и частоту экрана? [D6, Win95/98, WinME, NT4, Win2k, WinXP]
ReYken © (2002-11-19 11:00:00)Заранее благодарен за путевый ответ.
ReYken (2002-11-19 14:20:00) [1]НАШЕЛ!!! Кому надо вот код:
Как узнать частоту развертки:
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.
ReYken (2002-11-19 14:14:00) [2]Грхмм.... спасибо. А примера нет?
Игорь Шевченко (2002-11-19 11:41:00) [3]GetDeviceCaps
| |
