有关屏幕分辨率的问题

1.我用changedisplaysettings函数来动态改变分辨率,但不知道为什么没有反应
代码:
   with device do
   begin
      dmsize := 122;
      dmfields := DM_PELSWIDTH OR DM_PELSHEIGHT;
      dmpelswidth := 800;
      dmpelsheight := 600;
   end;
   changedisplaysettings(device,0);
运行后屏幕只散动了一下,但并没有变化.
2.我用getdevicecaps函数来获取屏幕的宽度,其结果为0,不知道为什么?
代码:  showmessage(inttostr(getdevicecaps(hinstance,HORZRES)));