Полноэкранный режим

Советы » Монитор и Экран » Полноэкранный режим

function

SetFullscreenMode: Boolean; var

DeviceMode: TDevMode; begin

with

DeviceMode do

begin

dmSize := SizeOf(DeviceMode); dmBitsPerPel := 16; dmPelsWidth := 640; dmPelsHeight := 480; 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

; procedure

RestoreDefaultMode; var

T: TDevMode absolute

0; begin

ChangeDisplaySettings(T, CDS_FULLSCREEN); end

; procedure

TForm1.Button1Click(Sender: TObject); begin

if

setFullScreenMode then

begin

sleep(7000); RestoreDefaultMode; end

; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com