Смена разрешения монитора

← →
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
Меня тоже это интересует...

Смена разрешения монитора Найти похожие ветки