动态更改分辨率问题！

Question

试试这段代码：
function ChangeDisplay(width,height:word) :BOOL ;
var
    lpDevMode :TDEVICEMODe ;
begin
    result := EnumDisplaySettings(Nil ,0 ,lpDEVMode) ;
    if result then
    begin
        lpDevmode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT ;
        lpdevmode.dmPelsWidth := width ;
        lpdevmode.dmPelsHeight := height ;
        result := ChangeDisplaySettings(lpdevmode ,CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL ;
    end ;
end ;

Answer 1

Liujc(阿聪)你试一下你写的代码，任务栏肯定要变位置

Answer 2

我试过了可以，如果将
ChangeDisplaySettings(lpdevmode ,CDS_UPDATEREGISTRY) ;
改为
ChangeDisplaySettings(lpdevmode ,0) ;就不行了。