Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Монитор и экран » Установить полноэкранный режим с указанным разрешением

Установить полноэкранный режим с указанным разрешением

Автор: CodeLab

function SetFullscreenMode(W,H:integer): Boolean;
var DeviceMode: TDevMode;
begin
  with DeviceMode do
  begin
    dmSize := SizeOf(DeviceMode);
    dmBitsPerPel := 32;
    dmPelsWidth := W;
    dmPelsHeight := H;
    dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
    result := False;
    if ChangeDisplaySettings(DeviceMode, CDS_TEST or CDS_FULLSCREEN) 
        <> DISP_CHANGE_SUCCESSFUL then Exit;
    Result := ChangeDisplaySettings(DeviceMode,
               CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
  end;
end;

Пример использования:


var: DefScrW, DefScrH: Integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
  DefScrW:=Screen.Width;
  DefScrH:=Screen.Height;
  if SetFullscreenMode(1280, 1024)=false then 
     MessageBox(0,'Ошибка!', 'Ошибка!', MB_ICONError);
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SetFullscreenMode(DefScrW, DefScrH);
end;