Разрешение экрана

← →
МегаПупс (2007-02-22 21:07) [0]

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

← →
begin...end © (2007-02-22 21:14) [1]

EnumDisplaySettings
ChangeDisplaySettings

← →
iXT © (2007-02-23 09:35) [2]

Не пиши такие программы.
> разрешение экрана пользователя

Если он захочет, то сам поменяет.

function SetFullscreenMode(PelsWidth, PelsHeight, BitsPerPixel,
DisplayFrequency: Integer):Boolean;
var
DeviceMode : TDevMode;
begin
with DeviceMode do
begin
dmSize:=SizeOf(DeviceMode);
dmBitsPerPel:=BitsPerPixel;
dmPelsWidth:=PelsWidth;
dmPelsHeight:=PelsHeight;
dmDisplayFrequency:=DisplayFrequency;
dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
Result:=ChangeDisplaySettings(DeviceMode,CDS_UPDATEREGISTRY) = DISP_CHANGE_SUCCESSFUL;
end;
end;

Разрешение экрана Найти похожие ветки