displaychange.pas

铁路道口管理系统 开发源码 大家随便看看 呵呵

unit displayChange;

interface
uses
  Windows, SysUtils,forms,Messages;

procedure ChangeDisplay(const x,y:Integer);

implementation
procedure ChangeDisplay(const x,y:Integer);
var
  lpdevMode:Tdevicemode;
begin
  lpdevmode.dmSize:=sizeof(_devicemodeW);
try
    Enumdisplaysettings(nil,0,lpdevmode);
    //lpdevmode.dmFields:=DM_pelswidth or DM_PELSHEIGHT;
    lpdevmode.dmBitsPerPel:=32;
    lpdevmode.dmDisplayFrequency:=75;
    lpdevmode.dmPelsWidth:=x;
    lpdevmode.dmPelsHeight:=y;
    changedisplaysettings(lpdevmode,0);
  except
    application.MessageBox('你的显示器不能够达到运行该软件的标准！运行中可能出现问题！！','警告');
  end;
end;


end.