Форум: "WinAPI";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Вниз
Изменение разрешения Найти похожие ветки
← →
начинающий програмер (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пасибо!
← →
anatoli (2002-09-01 20:19) [4]Вот тебе такой пример. Первой кнопкой ищеш возможные разрешения, второй меняеш.
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.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.10.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c