Delphi7中修改屏幕分辨率

//该函数用于设置屏幕分辨率******************************************************
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;
//****************************************************************************
其中X,Y分别为屏幕的分辨铝大小(既长、宽)，该函数返回值为BOOL。调用方法如下：
if DynamicResolution(X,Y) then
begin
………………
end;