Изменение разрешения

← →
начинающий програмер © (2002-09-01 16:29) [0]

Здравствуйте! Как мне програмно изменить разрешение монитора?
Спасибо!

← →
DeMoN-777 © (2002-09-01 17:23) [1]

Поищи в FAQ, лень враг програмиста !
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988625473&n=16

← →
ZZ © (2002-09-01 17:44) [2]

http://delphi.mastak.ru/articles/display/index.html

А вообще-то после таких фокусов если прога не игра, то она сразу удаляется :)

← →
начинающий програмер © (2002-09-01 18:00) [3]

Cпасибо!

Вот тебе такой пример. Первой кнопкой ищеш возможные разрешения, второй меняеш.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExXPToolButton, StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TExXPToolButton;
Button2: TExXPToolButton;
procedure ExXPToolButton1Click(Sender: TObject);
procedure ExXPToolButton2Click(Sender: TObject);
private
{ Private declarations }
modes:array[0..255] of tdevMode;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
ListBox1.Items.Clear;
i:=0;
while EnumDisplaySettings(nil,i,Modes[i]) do
begin
ListBox1.Items.Add(IntToStr(modes[i].dmBitsPerPel)+" "+
IntToStr(modes[i].dmPelsWidth)+" "+
IntToStr(modes[i].dmPelsHeight)+" "+
IntToStr(modes[i].dmDisplayFrequency)) ;
inc(i);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Modes[ListBox1.ItemIndex].dmfields:=dm_BitsPerPel or
dm_PelsWidth or dm_PelsHeight or
dm_displayflags or dm_displayfrequency;
ChangeDisplaySettings(Modes[listbox1.itemindex],0);
end;

end.

Изменение разрешения Найти похожие ветки