Содержание материала

ChangeDisplaySettings

 Автор cpu

Code:

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;

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить