怎么改程序的分辨率

如何改程序的分辨率
原来的程序在宽屏上开发的,分辨率是1200*800
现在放到17寸上1024*768上,就完成变样了.
怎么改分辨率
谢谢

[解决办法]
SCREEN.WIDTH
SCREEN.HEIGHT
[解决办法]
void __fastcall TForm1::Button1Click(TObject *Sender)
{
DEVMODE stDEVMODE;

stDEVMODE.dmSize = sizeof ( DEVMODE );
stDEVMODE.dmPelsWidth = 1024; // Pixel width
stDEVMODE.dmPelsHeight = 768; // Pixel height
// stDEVMODE.dmDisplayFlags Mode flags
stDEVMODE.dmDisplayFrequency = 75; // Mode frequency
// stDEVMODE.dmPosition
stDEVMODE.dmFields = DM_PELSWIDTH | DM_PELSHEIGHT | DM_DISPLAYFREQUENCY;

ChangeDisplaySettings ( &stDEVMODE, CDS_UPDATEREGISTRY );
}




[解决办法]
哦，那用控件的ScolBy属性调整就可以，把原来的显示比例赋给单前的显示比例就不会变了