void __fastcall TForm1::FormActivate(TObject *Sender)
{
int indice=0;
DEVMODE displaymode;
displaymode.dmSize=sizeof(DEVMODE);
/*declaro dos variables globales que en teoria almacenan la resolucion actual
que tiene la pantalla
*/
X=displaymode.dmPelsWidth;
Y=displaymode.dmPelsHeight;
while(EnumDisplaySettings(NULL, indice, &displaymode)){
if(displaymode.dmPelsWidth==1024 && displaymode.dmPelsHeight==768){
displaymode.dmFields=DM_PELSWIDTH | DM_PELSHEIGHT;
LONG result=ChangeDisplaySettings(&displaymode, CDS_TEST);
if(result==DISP_CHANGE_SUCCESSFUL){
ChangeDisplaySettings(&displaymode,0);
break;
}
}
indice++;
}
}