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

void __fastcall TForm1::BTnGetClick(TObject *Sender)

{

int x,y;

x = GetSystemMetrics(SM_CXSCREEN);

y = GetSystemMetrics(SM_CYSCREEN);

ShowMessage("显示器水平分辨率:" + AnsiString(x) + "\n\n显示器垂直分辨率:" + AnsiString(y));

}

//---------------------------------------------------------------------------

void __fastcall TForm1::DynamicResolution(int x,int y)

{

TDeviceMode lpDevMode;

bool Result;

Result = EnumDisplaySettings(NULL,0,&lpDevMode);

if (Result)

{

lpDevMode.dmFields = DM_PELSWIDTH DM_PELSHEIGHT;

lpDevMode.dmPelsWidth = x;

lpDevMode.dmPelsHeight = y;

Result = ChangeDisplaySettings(&lpDevMode,0);

// = DISP_CHANGE_SUCCESSFUL;

}

}

void __fastcall TForm1::BitBtn1Click(TObject *Sender)

{

DynamicResolution(800,600);

}

//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)

{

DynamicResolution(1024,768);

}