Pregunta: | 4023 - CAMBIAR LA RESOLUCION DEL MONITOR |
Autor: | Ricardo Sanchez |
Quisiera saber como se cambia la resolución del monitor (640x480, 1024x768, etc) desde Delphi 4 en Windows |
Respuesta: | Dairo Osorio González |
Crea un nuevo proyecto en delphi. Y reemplaza el codigo de la forma por este: Suerte ******************** unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; modonuevo,ModoOriginal: TDevMode; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin EnumDisplaySettings(´\\.\Display1´, Cardinal(-1), ModoOriginal); ShowMessage(IntToStr(ModoOriginal.dmPelsWidth)+´x´+IntToStr(ModoOriginal.dmPelsHeight)); modonuevo:=modooriginal; end; procedure TForm1.Button2Click(Sender: TObject); begin modonuevo.dmPelsWidth:=640; modonuevo.dmPelsHeight:=480; ChangeDisplaySettings(Modonuevo,0); end; procedure TForm1.Button3Click(Sender: TObject); begin modonuevo.dmPelsWidth:=800; modonuevo.dmPelsHeight:=600; ChangeDisplaySettings(Modonuevo,0); end; end. |