ok. tengo bien redactado un codigo para efectuar una resolucion, preguntando al usuario.
Estos codigos ya tienen autores, asi q disculpen, respeto mucho los derechos de autores. esta bien formulado 100%
Código Delphi
[-]
function PonResolucion(x, y:word ):boolean;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end;
end;
procedure configurar_pantalla;
Var ModoOriginal: TDevMode;
begin
EnumDisplaySettings('\\.\Display1', Cardinal(-1), ModoOriginal);
if(ModoOriginal.dmPelsWidth<>1280)then
begin
messagedlg('Su Configuración actual es de: '+IntToStr(ModoOriginal.dmPelsWidth)+'',mtInformation,[mbok],0);
IF Application.MessageBox ('Para una mejor Resolución, se Configurará a 1280 x 800' + Chr(13)+'¿Desea que se efectue esta configuración?', 'Información',mb_YesNo+MB_ICONQUESTION) = idYes Then
PonResolucion(1280,800);
end;
end;