Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Cambiar la resolución de la pantalla - Delphi
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

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+