He probado el código que se sugiere y me encuentro un error en la línea:
Código Delphi
[-] a := EnumDisplaySettings(nil, I, DevChg);
He puesto en OnCreate:
Código Delphi
[-]Xwindow := GetSystemMetrics(0);
Ywindow := GetSystemMetrics(1);
If (Xwindow <> 800) Or (Ywindow <> 600) Then CambiaResolucion(800, 600);
¿Alguien sabe cómo reconducirlo?
Saludos.
bulc