Высота и шерина и...
|
|
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 |
старожил
Сейчас нет на сайте
| Бальшущие спасибо!
|
|
| |