Ver Mensaje Individual
  #1  
Antiguo 09-08-2007
Avatar de ingabraham
ingabraham ingabraham is offline
Miembro
 
Registrado: ago 2007
Posts: 614
Reputación: 17
ingabraham Va por buen camino
Configurar resolucion de pantalla

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;
//[][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][][]
Responder Con Cita