如何动态更改分辨率

[ysh]

请问如何在BCB中动态更改屏幕分辨率？

[dengdeng]

使用API函数.下面是我写的DELPIH的一段代码,你可以参考.

function SetDisplayMode(PelsWidth, PelsHeight, ColorBits: Integer): Integer;
var
DeskDC: HDC;
DeskMode: TDeviceModeA;
Source_Bits, Source_Width, Source_Height: Integer;
begin
DeskDC := GetDC(GetDesktopWindow);
Source_Bits := GetDeviceCaps(DeskDC, BITSPIXEL);
Source_Width := GetDeviceCaps(DeskDC, HORZRES);
Source_Height := GetDeviceCaps(DeskDC, VERTRES);
ReleaseDC(GetDesktopWindow, DeskDC);
if (Source_Bits = ColorBits) and (Source_Width = PelsWidth) and (Source_Height = PelsHeight) then
begin
Result := 0;
Exit;
end;
DeskMode.dmSize := SizeOf(TDeviceModeA);
DeskMode.dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
DeskMode.dmPelsWidth := PelsWidth;
DeskMode.dmPelsHeight := PelsHeight;
DeskMode.dmBitsPerPel := ColorBits;
Result := ChangeDisplaySettings(DeskMode, CDS_UPDATEREGISTRY);
end;

[风子]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TDeviceMode lpDevMode;
if(EnumDisplaySettings(NULL, 0, &lpDevMode) )
{
lpDevMode.dmPelsWidth=800;
lpDevMode.dmPelsHeight=600;
lpDevMode.dmBitsPerPel=16; //颜色 16,24,32位
bool flag=ChangeDisplaySettings(&lpDevMode,0)==DISP_CHANGE_SUCCESSFUL;
if(flag)
ShowMessage("修改分辨率成功！");
}
}

!@$#$%^%^^%^%^*&*$#$#~!@@
黑屏的时候你可别找我马烦哦！