控制Windows分辨率

enumdisplaysettings() 和changedisplaysettings()，

function dynamicresolution(x, y: word): bool;
var
   lpdevmode: tdevicemode;
begin
   result := enumdisplaysettings(nil, 0, lpdevmode);
if result then
begin
lpdevmode.dmfields := dm_pelswidth or dm_pelsheight;
lpdevmode.dmpelswidth := x;
lpdevmode.dmpelsheight := y;
result := changedisplaysettings(lpdevmode, 0) = disp_change_successful;
end
end;

procedure tform1.button1click(sender: tobject);
begin
if dynamicresolution(640, 480) then
showmessage('now is 640*480');
end;

procedure tform1.button2click(sender: tobject);
begin
   if dynamicresolution(800, 600) then
      showmessage('now is 800*600');
end;