[Zylex]

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

[lmikle]

См. ChangeDisplaySettings

[Zylex]

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

[MegaPiha]

Код:

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

Код:

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;

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

[Zylex]

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