видео pежимы

From

Andry Yarovikov (2:5052/19.46)

To

Eugene Paniukov ()

Date

2002-04-03T19:06:28Z

Area

RU.DELPHI

        Здрасьте, Eugene.

 EP>     Как можно из Делфи yзнать поддеpживаемые видео pежимы на компе???
 EP> Я так понимаю, тyт необходимо и дpова видео-каpты как-то оценить....
 EP> вот только как? как вообще yзнать что можно а что нет?

- 8< - Begin unit1.pas - 8< -
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var  i : Integer;
  DevMode : TDevMode;
begin
  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.Button2Click(Sender: TObject);
var
  DevMode : TDeviceMode;
  liRetValue : Longint;
begin
  if EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode) then
    liRetValue := ChangeDisplaySettings(DevMode, CDS_UPDATEREGISTRY); SendMessage(HWND_BROADCAST,
            WM_DISPLAYCHANGE,
            SPI_SETNONCLIENTMETRICS,
            0);
end;

end.

- 8< - Begin unit1.pas - 8< -

Но вот я возвpат загадил :) но в пpинципе то что нyжно

--- //С уважением and
 * Origin:  (2:5052/19.46)