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

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

Автор: CodeLab

Tweet
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;

Просмотров: 4531

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.