screen resolution - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

screen resolution

how can i change screen resolution in windows from delphi?

Comments

  • tefariktefarik Posts: 3Member
    procedure TForm1.FormCreate(Sender: TObject);
    var
    i : Integer;
    DevMode : TDevMode;
    begin
    Button1.Enabled:=False;
    i := 0;
    while EnumDisplaySettings(nil,i,Devmode) do begin
    with Devmode do
    ListBox1.Items.Add(Format('%dx%d %d Colors',[dmPelsWidth,dmPelsHeight,1 shl dmBitsperPel]));
    Inc(i);
    end;
    end;

    procedure TForm1.ListBox1Click(Sender: TObject);
    begin
    Button1.Enabled := Listbox1.ItemIndex >= 0;
    end;

    procedure TForm1.Button1Click(Sender: TObject);

    var
    DevMode : TDevMode;
    begin
    EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);
    ChangeDisplaySettings(DevMode,0);
    end;

Sign In or Register to comment.