用CB动态改变显示器分辨率

void _ _ fast call t form 1::btnGetClick(to object * Sender)
{
int x，y；
x = GetSystemMetrics(SM _ CX screen)；
y = GetSystemMetrics(SM _ cy screen)；
ShowMessage("显示器的水平分辨率:"+AnsiString(x)+"\n\n \ n显示器的垂直分辨率:"+Anstring(y))；

}
///-
void _ _ fastcall t form 1::dynamic resolution(int x，int y)
{
TDeviceMode lpDevMode；
bool结果；

result = EnumDisplaySettings(NULL，0，& lpDevMode)；
if(Result)
{
lpdevmode . DM fields = DM _ pels width | DM _ pels height；
lpdevmode . dmpelswidth = x；
lpdevmode . dmpelsheight = y；
Result = ChangeDisplaySettings(& lpDevMode，0)；
//= DISP _更改_成功；
}
}
void _ _ fast call t form 1::bit BTN 1 click(to object * Sender)
{
dynamic resolution(800，600)；
}
// -

void _ _ fast call t form 1::bit BTN 2 click(to object * Sender)
{
dynamic resolution(1024，768)；
}