Hola
mira si pones el sgte codigo en algun boton, te dará la resolución inicial de la pantalla...
Código Delphi
[-]
Var ModoOriginal: TDevMode;
begin
EnumDisplaySettings('\\.\Display1', Cardinal(-1), ModoOriginal);
ShowMessage(IntToStr(ModoOriginal.dmPelsWidth));
es decir,
si es 800x600, te entregará 800
si es 1024x768, te entregará 1024, y así según tu configuración...
y podrias realizar una consulta como sigue.. si pones esto en un boton...
Código Delphi
[-]Var ModoOriginal: TDevMode;
begin
EnumDisplaySettings('\\.\Display1', Cardinal(-1), ModoOriginal);
If ModoOriginal.dmPelsWidth =1024 then PonResolucion(800,600);
espero que esto te sirva
Saludos
