Como puedo hacer para obtener la frecuencia de refresco horizontal del monitor??
Pues eso.. mi codigo fuente ( por si alguien se le ocurre algo mejor o alguien lo quiere coger...)
.... Como puedo obtener la frecuencia de refresco horizontal?? Procedure CambioResolucion(X,Y: Word; Frec: Cardinal; Cambiada: Boolean ); var DevMode: TDeviceMode; X_Ant, Y_Ant : Integer; Frec_Ant : Byte; begin EnumDisplaySettings(nil, 0, DevMode); X_Ant := GetSystemMetrics(SM_CXSCREEN); Y_Ant := GetSystemMetrics(SM_CYSCREEN); :confused: Frec_Ant := (DevMode.dmDisplayFrequency); //esto es lo que se debe mejorar DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY; DevMode.dmPelsWidth := X; DevMode.dmPelsHeight := Y; DevMode.dmDisplayFrequency := Frec; Case ChangeDisplaySettings(DevMode, 0) Of DISP_CHANGE_SUCCESSFUL : Begin // Application.MessageBox('Desea conservar esta configuracion?','CA'); If (not Cambiada) Then If MessageDlg('Desea conservar esta configuración?',mtInformation ,mbOKCancel,0)= mrCancel then CambioResolucion(X_Ant, Y_Ant, Frec_Ant, True); End; DISP_CHANGE_FAILED : Begin ShowMessage('El controlador de pantalla no soporta ese modo gráfico'); End; DISP_CHANGE_BADMODE : Begin ShowMessage('El modo gráfico no es soportado'); End; End; se le llama con ... CambioResolucion(1024,768,60,False); |
Podrias mandarme el componente????
Hola Forjap, podrias mandarme el TDeviceMode a mi cuenta de correo, es que no lo encuentro x ningun lado, muchas gracias. Saludos
|
La franja horaria es GMT +2. Ahora son las 08:05:59. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi