Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Разрешение экрана

Автор: Dead.MorozZ 23.02.2007 1:10

Скажите пожалуйста,
Как в Delphi узнать текущее разрешение экрана пользователя?
И как его можно программно изменить?

Автор: Артемий2 23.02.2007 1:20

Узнать -- GetSystemMetrics;
Изменить -

function SetFullscreenMode:Boolean; 
var DeviceMode : TDevMode;
begin
with DeviceMode do begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=16;
dmPelsWidth:=640;
dmPelsHeight:=480;
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;