currentunit.~pas

双色球分析软件

unit CurrentUnit;

interface

uses
   Windows;
Var
   VarResolveType:Shortint;

   procedure ResolveBuckup();
   procedure ResolveRestore(VarMode:Integer);

implementation

procedure ResolveBuckup();
Var
   VarPelsHorizontal:Smallint;
   VarPelsVertical:Smallint;
begin
   VarPelsHorizontal:=GetSystemMetrics(SM_CXSCREEN); //分辨率宽
   VarPelsVertical:=GetSystemMetrics(SM_CYSCREEN); //分辨率高
   if VarPelsHorizontal=640 and VarPelsVertical=480 then VarResolveType:=1;
   if VarPelsHorizontal=800 and VarPelsVertical=600 then VarResolveType:=2;
   if VarPelsHorizontal=1024 and VarPelsVertical=768 then VarResolveType:=3;
   if VarPelsHorizontal=1280 and VarPelsVertical=1024 then VarResolveType:=4;
   //......
end;

procedure ResolveRestore(VarMode:Integer);
var
   VarDeviceMode:TDeviceMode;
begin
   if EnumDisplaySettings(nil,0,VarDeviceMode) then //取得旧的显示参数
      begin
         VarDeviceMode.dmFields:=DM_PELSWIDTH Or DM_PELSHEIGHT;
         case VarMode of
          	1:begin
                 VarDeviceMode.dmPelsWidth:=640;
                 VarDeviceMode.dmPelsHeight:=480;
              end;
            2:begin
                 VarDeviceMode.dmPelsWidth:=800;
                 VarDeviceMode.dmPelsHeight:=600;
              end;
            3:begin
                 VarDeviceMode.dmPelsWidth:=1024;
                 VarDeviceMode.dmPelsHeight:=768;
              end;
            4:begin
                 VarDeviceMode.dmPelsWidth:=1280;
                 VarDeviceMode.dmPelsHeight:=1024;
              end;
            //......
	       end;
         ChangeDisplaySettings(VarDeviceMode,0); //设置新的显示参数
      end;
end;

end.