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

[Манжосов Денис :)]

У меня есть игра. Размеры формы 800*600. Как установить такое разрешение экрана, старое значение разрешения запомнить и при выходе установить?

[B_N]

Не нужно ничего запоминать и устанавливать при выходе. Вызывайте EnumDisplaySettings, выбирайте один из подходящих режимов (из тех, что она вернёт) и устанавливайте его через ChangeDisplaySettings с флагом CDS_FULLSCREEN. После завершения программы Windows восстановит предыдущий режим.

[Манжосов Денис :)]

Я не понимаю. Я попробовал но ничего не получается. Может кто нибудь показать это на коде?

[B_N]

procedure TForm1.FormCreate(Sender: TObject);

var
    dm          : DEVMODE;
    goodmode    : DEVMODE;
    i           : integer;
begin

    dm.dmSize := sizeof (DEVMODE);
    i := 0;
    goodmode.dmDisplayFrequency := 0;
    goodmode.dmBitsPerPel       := 0;

    while BOOLEAN(EnumDisplaySettings(nil, i, dm)) do begin
        if( (dm.dmPelsWidth = 800) AND (dm.dmPelsHeight = 600) ) then begin
            if(
                (dm.dmDisplayFrequency > goodmode.dmDisplayFrequency)
                AND
                (dm.dmBitsPerPel >= goodmode.dmBitsPerPel)
            ) then begin
                goodmode := dm;
            end;
        end;
        i := i + 1;
    end;

    if (goodmode.dmBitsPerPel > 0) then begin

        ChangeDisplaySettings(
                goodmode,
                CDS_FULLSCREEN);

        SetWindowPos(
                self.Handle,
                HWND_TOPMOST,
                0,
                0,
                goodmode.dmPelsWidth,
                goodmode.dmPelsHeight,
                0);
    end;

end;