Среда, 13 Ноября 2024, 11:44

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Высота и шерина и...
LorderonДата: Суббота, 03 Июля 2010, 11:48 | Сообщение # 1
старожил
Сейчас нет на сайте
Как програмно изменить разрешенше экрана? У меня делфи 2009 CodeGear Rad. СРОЧНО!
VarXdarДата: Суббота, 03 Июля 2010, 11:52 | Сообщение # 2
Работник Ubisoft
Сейчас нет на сайте
А причем сдесь С++?
С такими вопросами, читай книгу, ты вообще даже не нуб, а очень ленивый нуб.
karuyДата: Суббота, 03 Июля 2010, 12:00 | Сообщение # 3
заслуженный участник
Сейчас нет на сайте
http://forum.shelek.ru/index.php/topic,1788.0.html

Сообщение отредактировал karuy - Суббота, 03 Июля 2010, 12:01
LorderonДата: Суббота, 03 Июля 2010, 12:04 | Сообщение # 4
старожил
Сейчас нет на сайте
У меня моб. интернет и один МБ стоит 5 грн. И по страницам лазить дороговато...
VarXdarДата: Суббота, 03 Июля 2010, 12:08 | Сообщение # 5
Работник Ubisoft
Сейчас нет на сайте
Пойди в прокат или книжный магазин, и возьми книгу. Ты спрашиваешь элементарные вопросы, которые даже стыдно спрашивать
LorderonДата: Суббота, 03 Июля 2010, 12:13 | Сообщение # 6
старожил
Сейчас нет на сайте
Ну так ответь на "элементарнейший" вопрос, или не такой уж и элеминтарнеиший он? А?!
karuyДата: Суббота, 03 Июля 2010, 12:20 | Сообщение # 7
заслуженный участник
Сейчас нет на сайте
uses ShellApi;
var
DefWidth, DefHeight, BPP: word;
----------------------------------------------
procedure SaveSettings;
var
DC: hDC;
begin
DefWidth := Screen.Width;
DefHeight := Screen.Height;
DC := CreateDC('DISPLAY', nil, nil, nil);
BPP := GetDeviceCaps(DC, BITSPIXEL);
end;
---------------------------------------------------------------------
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
MessageBox(h,'This mode is not supported by your video.',
'Failed to change mode', MB_ICONWarning);
end;
На С++ все аналогично.


Сообщение отредактировал karuy - Суббота, 03 Июля 2010, 12:20
LorderonДата: Суббота, 03 Июля 2010, 12:29 | Сообщение # 8
старожил
Сейчас нет на сайте
Бальшущие спасибо!
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2024 Рейтинг