Определить разрешение и количество цветов

ОГЛАВЛЕНИЕ    HOME  MAIL

uses Math;

procedure TForm1.FormCreate(Sender: TObject);
var
  bp: integer;
  NumCol: single;
begin
  bp := GetDeviceCaps(GetDC(0), BITSPIXEL); //бит на точку
  NumCol := IntPower(2, bp);                //всего цветов
  Form1.Caption := 'Бит на точку - ' + IntToStr(bp) + ' (' +
    FloatToStr(NumCol) + ' цветов). Разрешение ';
  Form1.Caption := Form1.Caption +
  // разрешение по X
    IntToStr(GetDeviceCaps(GetDC(0), HORZRES)) + 'X'; 
  // разрешение по Y
  Form1.Caption := Form1.Caption +
    IntToStr(GetDeviceCaps(GetDC(0), VERTRES)) + ' ';
end;