По поводу режимом дисплея.
Есть программа, иллюстрирующая работу с режимами дисплея
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Spin;
type
PdmArray = ^TDmArrya;
TDmArray = array [0..] of TDeviceMode;
TForm1 = class(TForm)
Memo1: TMemo;
SpinEdit1: TSpinEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
lpDMArray: PDMArray;
NumModes: integer;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
MoreModes: boolean;
dm: TDeviceMode;
begin
Memo1.Lines.Clear;
MoreModes:=True;
i:+0;
while MoreModes do
begin
Moremodes:=EnumDisplaySettings(nil, i, dm);
Memo1.Lines.Add('Mode ' + IntToStr(i) + ': ' + IntToStr(dm.dmBitsPerPel) + ' Bits PerPixel ' + IntToStr(dm.dmPelsWidth) + ' x ' + IntToStr(dm.dmPelsHeight));
inc(i);
end;
NumModes:=i;
SpinEdit1.MainValue:=0;
SpinEdit1.MaxValue:=NumModes;
GetMem(lpDmArray, sizeof(TDeviceMode) * NumModes);
FillChar(lpDmArray^, SizeOf(TdevoceMode) * NumModes, #0);
{$IFOPT R+}
{$DEFINE CKRANGE}
{$R-}
{$ENDIF}
for i:=0 to NumModes-1 do
EnumDisplaySettings(nil, i, lpDmArray[i]);
{$IFDEF CKRANGE}
{$UNDEF CKRANGE}
{$R+}
{$ENDIF}
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Return:integer;
begin
{$IFOPT R+}
{$DEFINE CKRANGE}
{$R-}
{$ENDIF}
Return:=ChangeDisplaySettings(lpDmArray[SpinEdit1.Value], CDS_UPDATEREGISTRY);
{$IFDEF CKRANGE}
{$UNDEF CKRANGE}
{$R+}
{$ENDIF}
if not Return = DISP_CHANGE_SUCCESSFUL
then
ShowMessage('Error');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FreeMem(lpDMArray, SizeOf(TDeviceMode)*NumModes);
end;
end.
|
|
