/ КОМПЬЮТЕРЫ И ПО / Языки программирования / WinAPI

Выпуск № 538
от 03.10.2008, 14:05

Вопрос № 145.290

Есть ли функции API с помощью которых можно менять разрешение экрана монитора.

Отправлен: 28.09.2008, 13:46 Вопрос задал: Кулешов Владимир Григорьевич (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: estiGi Здравствуйте, Кулешов Владимир Григорьевич! Да, конечно, такие функции есть

Ответ отправил: estiGi (статус: Студент) Ответ отправлен: 28.09.2008, 14:17

Отвечает: DrakoN Здравствуйте, Кулешов Владимир Григорьевич! В приложении пример на VB.Net (VS 2005). Удачи Приложение: Option Strict Off Option Explicit On <System.Runtime.InteropServices.ProgId("clsDisplaySettings_NET.clsDisplaySettings")> Public Class clsDisplaySettings Private Structure DEVMODE <VBFixedString(32),System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr,SizeConst:=32)> Public dmDeviceName As String Dim dmSpecVersion As Short Dim dmDriverVersion As Short Dim dmSize As Short Dim dmDriverExtra As Short Dim dmFields As Integer Dim dmOrientation As Short Dim dmPaperSize As Short Dim dmPaperLength As Short Dim dmPaperWidth As Short Dim dmScale As Short Dim dmCopies As Short Dim dmDefaultSource As Short Dim dmPrintQuality As Short Dim dmColor As Short Dim dmDuplex As Short Dim dmYResolution As Short Dim dmTTOption As Short Dim dmCollate As Short <VBFixedString(32),System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr,SizeConst:=32)> Public dmFormName As String Dim dmUnusedPadding As Short Dim dmBitsPerPixel As Short Dim dmPelsWidth As Integer Dim dmPelsHeight As Integer Dim dmDisplayFlags As Integer Dim dmDisplayFrequency As Integer ' The following only appear in Windows 95, 98, 2000 Dim dmICMMethod As Integer Dim dmICMIntent As Integer Dim dmMediaType As Integer Dim dmDitherType As Integer Dim dmReserved1 As Integer Dim dmReserved2 As Integer ' The following only appear in Windows 2000 Dim dmPanningWidth As Integer Dim dmPanningHeight As Integer End Structure Private Declare Function EnumDisplaySettings Lib "user32.dll" Alias "EnumDisplaySettingsA" (ByVal lpszDeviceName As String, ByVal iModeNum As Integer, ByRef lpDevMode As DEVMODE) As Boolean Const ENUM_CURRENT_SETTINGS As Short = -1 Private Declare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwFlags As Integer) As Integer Const CDS_UPDATEREGISTRY As Short = &H1s Const CDS_TEST As Short = &H2s Const DISP_CHANGE_SUCCESSFUL As Short = 0 Const DISP_CHANGE_RESTART As Short = 1 Public Function ChangeDisplay(ByRef lngpxlsWidth As Integer, ByRef lngpxlsHeight As Integer) As Integer Dim dm As New DEVMODE ' display settings Dim retval As Integer = 0 ' return value ' Change the resolution settings to passed Resolution Dim value(32) As Char dm.dmDeviceName = New String(value, 0, value.Length) dm.dmFormName = New String(value, 0, value.Length) dm.dmSize = CShort(System.Runtime.InteropServices.Marshal.SizeOf(dm)) If EnumDisplaySettings(vbNullString, ENUM_CURRENT_SETTINGS, dm) = False Then System.Diagnostics.Debug.WriteLine("Unhandle errorr while getting display settings") Exit Function End If dm.dmPelsWidth = lngpxlsWidth dm.dmPelsHeight = lngpxlsHeight retval = ChangeDisplaySettings(dm, CDS_TEST) If retval <> DISP_CHANGE_SUCCESSFUL Then System.Diagnostics.Debug.WriteLine("Cannot change to that resolution!") Else Try retval = ChangeDisplaySettings(dm, CDS_UPDATEREGISTRY) Catch ex As Exception System.Diagnostics.Debug.WriteLine(ex.ToString) End Try Select Case retval Case DISP_CHANGE_SUCCESSFUL ChangeDisplay = 1 Case DISP_CHANGE_RESTART ChangeDisplay = 2 Case Else ChangeDisplay = 3 End Select End If End Function Public Function GetCurrentDisplaySettings() As Integer() 'This function returns current screen resolution Dim Display(1) As Integer Dim dm As New DEVMODE ' display settings Dim retval As Integer = 0 ' return value Try ' Change the resolution settings to passed Resolution Dim value(32) As Char dm.dmDeviceName = New String(value, 0, value.Length) dm.dmFormName = New String(value, 0, value.Length) dm.dmSize = CShort(System.Runtime.InteropServices.Marshal.SizeOf(dm)) If EnumDisplaySettings(vbNullString, ENUM_CURRENT_SETTINGS, dm) = False Then System.Diagnostics.Debug.WriteLine("Unhandle errorr while getting display settings") Display = Nothing Exit Function End If Display(1) = dm.dmPelsHeight Display(0) = dm.dmPelsWidth Catch ex As Exception MsgBox("Unhandle errorr while getting display settings") Display = Nothing End Try Return Display End Function End Class --------- От Винта!

Ответ отправил: DrakoN (статус: Студент) Ответ отправлен: 28.09.2008, 15:10

Отвечает: PavelGM Здравствуйте, Кулешов Владимир Григорьевич! Platform SDK, пример SetDisp, ключевая функция в приложении Приложение: /**************************************************************************** * * FUNCTION : ChangeResolution (UINT nNewMode, HWND hwnd) * * PURPOSE : Change the resolution to the nNewMode index DEVMODE * ****************************************************************************/ BOOL ChangeResolution ( UINT nNewMode, HWND hwnd ) { LONG lResult; //Result of ChangeDisplaySettings INT_PTR nUserResponse; //Return from VerifyRes Dlg UINT nOldMode; /* ChangeDisplaySettings can set dmBitsPerPel Bits per pixel dmPelsWidth Pixel width dmPelsHeight Pixel height dmDisplayFlags Mode flags dmDisplayFrequency Mode frequency but one of these must be set in the DEVMODE dmFields DM_BITSPERPEL Use the dmBitsPerPel value. DM_PELSWIDTH Use the dmPelsWidth value. DM_PELSHEIGHT Use the dmPelsHeight value. DM_DISPLAYFLAGS Use the dmDisplayFlags value. DM_DISPLAYFREQENCY Use the dmDisplayFrequency value. dmSize must be set to the size, in bytes, of the DEVMODE structure. */ // // First select a DevMode to use // to start, just cycling through them // nOldMode = gnCurrentMode; gnCurrentMode = nNewMode; // // Increment ptr to the new mode // gpCurrentMode = gpDevModes; gpCurrentMode += nNewMode; // // Verify that the DEVMODE select will change something // if (!(DM_BITSPERPEL & gpCurrentMode->dmFields || DM_PELSWIDTH & gpCurrentMode->dmFields || DM_PELSHEIGHT & gpCurrentMode->dmFields || DM_DISPLAYFLAGS & gpCurrentMode->dmFields || DM_DISPLAYFREQUENCY & gpCurrentMode->dmFields ) ) { // // Note our DEVMODE returned from EnumDisplaySettings // So we should never enter here // gnCurrentMode = nOldMode; gpCurrentMode = gpDevModes; gpCurrentMode += gnCurrentMode; return (FALSE); } /************************************************************ * * * Possible Flags for param 2 of ChangeDisplay Settings * * 0 The graphics mode for the current * * screen will be changed dynamically. * * CDS_UPDATEREGISTRY The graphics mode for the * * current screen will be changed dynamically * * and the graphics mode will be updated in * * the registry. The mode information is * * stored in the USER profile. * * CDS_TEST The system tests if the requested * * graphics mode could be set. * * * ************************************************************/ // // First have the system test if we can set it // // // Param 1 is the new DEVMODE // Param 2 is Test Flag, // which asks the operating system if this is a valid setting // to change to -- wedon't want to make the system unusable // // Note: ChangeDisplaySettings required dmSize to be // set to structSize, so we set that here lResult = ChangeDisplaySettings ( gpCurrentMode, CDS_TEST ); if (lResult == DISP_CHANGE_RESTART) { MessageBox(hwnd, "This mode requires a reboot which " "is not supported in this sample.", "SetDisp Message", IDOK); gnCurrentMode = nOldMode; gpCurrentMode = gpDevModes; gpCurrentMode += gnCurrentMode; return FALSE; } if (DISP_CHANGE_SUCCESSFUL ==lResult) { // // Param 2 is 0 to change dynamically // hence the app name SetDisp! // // Note: ChangeDisplaySettings required dmSize to be // set to structSize, so we set that here lResult = ChangeDisplaySettings ( gpCurrentMode, 0 ); } switch (lResult) { case DISP_CHANGE_SUCCESSFUL: //The settings change was successful. TRC("DISP_CHANGE_SUCCESSFUL "); break; case DISP_CHANGE_RESTART: //The computer must be restarted in order // for the graphics mode to work. TRC("DISP_CHANGE_RESTART "); break; case DISP_CHANGE_BADFLAGS: //An invalid set of flags was passed in. TRC("DISP_CHANGE_BADFLAGS "); break; case DISP_CHANGE_FAILED: //The display driver failed the specified // graphics mode. TRC("DISP_CHANGE_FAILED "); break; case DISP_CHANGE_BADMODE: //The graphics mode is not supported. TRC("DISP_CHANGE_BADMODE "); break; case DISP_CHANGE_NOTUPDATED: //Windows NT only: Unable to write settings // to the registry. TRC("DISP_CHANGE_NOTUPDATED "); break; default: TRC("Undocumented return value!!!! "); break; } // // Set a timer to only give the user so much // time to dedice incase the screen is garbled // SetTimer(hwnd, VERIFY_RESCHANGE, VERIFY_TIMEOUT, VerifyTimerProc); // // Have the user verify the new resolution and depth // nUserResponse = DialogBox(g_hinst,// handle this application MAKEINTRESOURCE(IDD_VERIFYRES),// identifies dialog box template NULL, // handle to owner window VerifyDlgProc); // the dialog box procedure // // The verification is over, kill the timer // KillTimer(hwnd, VERIFY_RESCHANGE); if (IDYES == nUserResponse) { // // Keep resolution and update registry // char szTip[50]; // // TODO: give them three choices: // Dynamic only, Registry too, or Abort // // Note: ChangeDisplaySettings required dmSize to be // set to structSize, so we set that here lResult = ChangeDisplaySettings ( gpCurrentMode, CDS_UPDATEREGISTRY ); // Flag to update registry switch (lResult) { case DISP_CHANGE_SUCCESSFUL: // // The settings change was successful. // TRC("DISP_CHANGE_SUCCESSFUL - reg "); wsprintf(szTip,"%d x %d, %d bit color at %d hz", gpCurrentMode->dmPelsWidth, gpCurrentMode->dmPelsHeight, gpCurrentMode->dmBitsPerPel, gpCurrentMode->dmDisplayFrequency); { // // Update the Menu informtion, just a check mark for now // HMENU hMenu, hMenu2; hMenu = GetMenu(hwnd); hMenu2 = GetSubMenu (hMenu, 0); // // Uncheck the old // CheckMenuItem (hMenu2, nOldMode, MF_BYPOSITION | MF_UNCHECKED); // // Check the new // CheckMenuItem (hMenu2, gnCurrentMode, MF_BYPOSITION | MF_CHECKED); } // // Update the Notify_Icon quick tip // TrayMessage(hwnd, NIM_MODIFY, g_sDlgItems[0].uNotify, LoadImage(g_hinst, MAKEINTRESOURCE(IDI_SETDISP), IMAGE_ICON, 16, 16, 0), szTip); break; case DISP_CHANGE_RESTART: //The computer must be restarted in order // for the graphics mode to work. TRC("DISP_CHANGE_RESTART - reg "); break; case DISP_CHANGE_BADFLAGS: //An invalid set of flags was passed in. TRC("DISP_CHANGE_BADFLAGS - reg "); break; case DISP_CHANGE_FAILED: //The display driver failed the specified // graphics mode. TRC("DISP_CHANGE_FAILED - reg "); break; case DISP_CHANGE_BADMODE: //The graphics mode is not supported. TRC("DISP_CHANGE_BADMODE - reg "); break; case DISP_CHANGE_NOTUPDATED: //Windows NT only: Unable to write settings // to the registry. TRC("DISP_CHANGE_NOTUPDATED - reg "); break; default: TRC("Undocumented return value!!!! - reg "); break; } } else { // // The user chose to not keep the setting or we timed out // so they may not have seen the dialog box to choose // // Change resolution back by calling // ChangeDisplaySettings // with a NULL DEVMODE which returns us to the current // registry settings // // Note: ChangeDisplaySettings required dmSize to be // set to structSize, so we set that here lResult = ChangeDisplaySettings ( NULL, 0 ); // 0 to change dynamically gnCurrentMode = nOldMode; gpCurrentMode = gpDevModes; gpCurrentMode += gnCurrentMode; } return (TRUE); }

Ответ отправил: PavelGM (статус: Студент) Ответ отправлен: 29.09.2008, 10:46

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.3 RC 2 от 09.09.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru