Форум: "Система";
Поиск по всему сайту: 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.027 c
1-79393           Galina                2002-02-09 13:02  2002.02.25  
Нужна помощь


1-79334           DarkDv                2002-02-08 07:27  2002.02.25  
Помогите плиз =(( (+)


14-79475          Alexey(Me)            2002-01-05 11:11  2002.02.25  
Comp. фирма


3-79252           Helen                 2002-01-29 15:47  2002.02.25  
SQL запрос SQL запроса для компонента ADOQuery!


14-79447          Socol                 2001-12-28 15:04  2002.02.25  
Загрузка файла!