Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Вниз

Как программно поменять разрешение экрана 


Andrey196   (2001-12-23 20:06) [0]

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
:)



Вадим   (2001-12-23 22:42) [1]

function SetFullscreenMode(ModeIndex: Integer): Boolean;
var
DeviceMode : TDevMode;
begin
with DeviceMode do
begin
dmSize := SizeOf(DeviceMode);
dmBitsPerPel := 32;
dmPelsWidth := 800;
dmPelsHeight := 600;
dmDisplayFrequency := 85;
dmFields := DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT
or DM_DISPLAYFREQUENCY;
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;
begin
ChangeDisplaySettings(T, CDS_FULLSCREEN);
end;




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.25;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.024 c
1-80497           kronos                2002-03-12 20:19  2002.03.25  
Помогите чайнику!!!


1-80500           DimaIv                2002-03-12 08:54  2002.03.25  
В папке на ряду с другими файлами проекта находится файл


1-80561           Компонент             2002-03-07 22:34  2002.03.25  
Не видел ли кто-нибудь примера программы, которая эмулировала бы среду Delphi?


1-80596           .Horol.               2002-03-03 16:40  2002.03.25  
посылка нажатых клавиш в дос програму


1-80542           Bonus                 2002-03-07 23:34  2002.03.25  
QuickReport, TCompositeReport