DELPHI中改变屏幕分辨率只是改变局部的大小，能不能象WINDOW中的桌面属性那样改变分辨率？

Question

procedure ChangeResolution(X, Y: word);
var
    lpDevMode: TDeviceMode;
begin
    Result := EnumDisplaySettings(nil, 0, lpDevMode);
    if Result then
    begin
        lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT or DM_DISPLAYFREQENCY ;
        lpDevMode.dmPelsWidth := X;      //宽
        lpDevMode.dmPelsHeight := Y;     //高
        lpDevMode.dmDisplayFrequency:=85;//刷新率
        Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
    end
end;

Answer 1

有一次我也是这样的。
我的Form上有一幅全屏的图。
我是这样写的就一切OK了。
 form1.ClientWidth:=800;
 form1.ClientHeight:=600;
 image1.Height:=600;
 image1.Width:=800;

Answer 2

还可以加上一个去掉Form标题栏的语句。
设form的：BorderStyle:=bsNone;