Delphi

Вопрос

Как изменить разрешение экрана из своей программы?

Ответ

Рекомендую копнуть в сторону DirectX откроешь для себя много нового. Для простоты — возьми DelphiX компоненты
Пример:
Установим видеорежим 640x480x8 {используем DirectX headers от JEDI}

procedure TForm1.Button1Click(Sender: TObject);
var
    DD : IDirectDraw;
    DD4 : IDirectDraw4;
    hr : HRESULT;
begin
    hr := DirectDrawCreate(nil, DD, nil);
    if(hr = DD_OK) then
    begin
   DD.QueryInterface(IID_IDirectDraw4,DD4);
DD4.SetCooperativeLevel(Self.Handle, DDSCL_EXCLUSIVE or DDSCL_FULLSCREEN);
   DD4.SetDisplayMode(640,480,8,0,0);
   //DD4.RestoreDisplayMode;
    end;
end;

то же используя компонент DelphiX

procedure TForm1.Button1Click(Sender: TObject);
begin
    DXDraw1.Display.Width := 640;
    DXDraw1.Display.Height := 480;
     DXDraw1.Display.BitCount := 8;
DXDraw1.Options := DXDraw1.Options + [doFullScreen];
    DXDraw1.Initialize;
end;

Aleksey Rykov