Video in einem Game

[ichbins]

natürlich:

wenn der User 1024x768 Pixel hat, und das Form maximiert wird, hat es ja 1024x768 Pixel, aber du brauchst 800x600.

Bildschirmauflösung ändern geht damit:

Delphi-Quellcode:

function ChangeResolution(XResolution, YResolution, Depth: DWORD): BOOL;
var
  DevMode: TDeviceMode;
  i: Integer;
begin
  Result := False;
  i      := 0;
  while EnumDisplaySettings(nil, i, DevMode) do
    with DevMode do
    begin
      if (dmPelsWidth = XResolution) and
        (dmPelsHeight = YResolution) and
        (dmBitsPerPel = Depth) then           //CDS_UPDATEREGISTRY wenn Auflösung systemweit geändert wird
        if ChangeDisplaySettings(DevMode, [CDS_FULLSCREEN]) =
          DISP_CHANGE_SUCCESSFUL then
        begin
          Result := True;
          SendMessage(HWND_BROADCAST, WM_DISPLAYCHANGE, SPI_SETNONCLIENTMETRICS, 0);
          Break;
        end;
      Inc(i);
    end;
end;