Определить разрешение и количество цветов
Для определения разрешения можно использовать Screen.Width и Screen.Height. Но количество цветов так не узнать. Вот как определить разрешение и количество цветов с помощью WinAPI. 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;
