Форум: "Система";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
ВнизСмена разрешения монитора Найти похожие ветки
← →
KLM (2001-11-15 06:26) [0]Подскажите, пожалуйста, как программно менять разрешеия монитора?
И параметры вообще..............
← →
KLM (2001-11-15 08:21) [1]Ну неужели никто не знает как это делается!?
← →
Юрий Зотов (2001-11-15 15:25) [2]ChangeDisplaySettings
← →
Anatoly Podgoretsky (2001-11-15 22:27) [3]Только желательно делать это на чужих компьютерах
← →
fenix (2001-11-16 11:25) [4]Мне недавно один из мастеров прислал ответ на этот вопрос, к своему стыду не запомнил его имени, а письмо удалено. Вот его совет, у меня тоже работает
function SetFullscreenMode:Boolean;
var DeviceMode : TDevMode;
begin
with DeviceMode do begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=16;
dmPelsWidth:=1024;
dmPelsHeight:=768;
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 Tpassword.FormClose(Sender: TObject; var Action: TCloseAction);
begin
RestoreDefaultMode;
end;
← →
Dmitriiy (2001-11-18 09:45) [5]Почему НИ КТО НЕ ПИШЕТ О РАРАМЕТРЕ : dmDisplayFrequency:=85; ???
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 absolute 0;
begin
ChangeDisplaySettings(T,CDS_FULLSCREEN);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if setFullScreenMode(1) then begin
sleep(10000);
RestoreDefaultMode;
end;
end;
← →
Dmitriy (old ) (2001-11-18 09:56) [6]И КАК ПОТОМ ПОСЛАТЬ СООБЩЕНИЕ всем !!! ПРОГ. о изменении резолюции
( особенно DECKTOP ) ???
← →
Dmitriy (old ) (2001-11-18 09:58) [7]O
procedure WMDisplayChange(var Message: TMessage); message WM_DISPLAYCHANGE;
НЕ ГОВОРИТЕ .
← →
PGM (2001-11-19 12:05) [8]А о WM_DEVMODECHANGE ГОВОРИТЬ можно?
← →
GovoRun (2001-11-19 19:40) [9]А как насчет размера системного шрифта
Можно ли это сделать без перезагрузки?
← →
VEG (2001-11-20 22:19) [10]>GovoRun
Меня тоже это интересует...
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2002.02.25;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c