Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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
Меня тоже это интересует...




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




Наверх





Память: 0.73 MB
Время: 0.021 c
1-79362           DJ X                  2002-02-08 16:20  2002.02.25  
Icons in WinXP style


7-79478           miDDTrich             2001-11-20 14:01  2002.02.25  
Где в win2000 прописать размер environment?


6-79409           Дима                  2001-12-07 19:07  2002.02.25  
МАС адрес


4-79518           Овал                  2001-12-25 01:31  2002.02.25  
Как написать заменитель Windows Explorer a ?


14-79437          XeN                   2002-01-06 01:46  2002.02.25  
command line