Cambiar la resolución de la pantalla - Delphi Proyecto AjpdSoft

Lenguaje de programación Borland Delphi

Utilizaremos la propiedad TDeviceMode:

 
function cambiarResolucion (X, Y: word): BOOL;
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;

Forma de usar la función cambiarResolucion: pondremos un botón en un formulario y en el evento click del mismo:

procedure TForm1.Button2Click(Sender: TObject);
begin
  if cambiarResolucion (800, 600) then
    ShowMessage('La resolución de la pantalla se ha cambiado a: 800*600');
end;

NOTA: esta función devolverá FALSE si no ha podido cambiar la resolución de la pantalla. Por ejemplo porque el monitor no la soporte.

Publicado el: 2003-09-17