[Zylex]

Подскажите, как изменить разрешение экрана?

[lmikle]

См. ChangeDisplaySettings

[Zylex]

А можно привести кусок кода, или сайт, где можно по этому достать информацию?

[MegaPiha]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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;

[lmikle]

Сообщение от Zylex

А можно привести кусок кода, или сайт, где можно по этому достать информацию?

msdn.com не годится?

[Zylex]

Сообщение от MegaPiha

Код:

Я такое находил, а как зделать так, чтобы при нажатии кнопки, менялось разрешение?

[Zylex]

Всем спасаибо, заработало