Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Изменение разрешения [D6, WinXP]

начинающий програмер © (2002-09-01 16:29:00)
Здравствуйте! Как мне програмно изменить разрешение монитора?
Спасибо!

anatoli (2002-09-01 20:19:00) [1]
Вот тебе такой пример. Первой кнопкой ищеш возможные разрешения, второй меняеш.

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.

начинающий програмер (2002-09-01 18:00:00) [2]
Cпасибо!

ZZ (2002-09-01 17:44:00) [3]
http://delphi.mastak.ru/articles/display/index.html

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

DeMoN-777 (2002-09-01 17:23:00) [4]
Поищи в FAQ, лень враг програмиста !
http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988625473&n=16

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »