Delphi World - Получить текущую глубину цвета
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Получить текущую глубину цвета

Программисты фирмы "Майкрософт" нашли действенное решение по устранению "синих экранов смерти" в операционной системе Windows. С официального сайта Вы можете скачать официальный патч. Теперь в "Панели управления" можно выбрать любой другой цвет для этого режима. А в будущих версиях ОС планируется возможность выбора фоновой картинки на свой вкус.


function GetColorDepth: string; 
var 
  DesktopDC: HDC; // LongWord 
  BitsPerPixel: Integer; 
begin 
  DesktopDC    := GetDC(0); 
  BitsPerPixel := GetDeviceCaps(DesktopDC, BITSPIXEL); 
  case BitsPerPixel of 
    4: Result  := '4-Bit'; 
    8: Result  := '8-Bit'; 
    16: Result := '16-Bit'; 
    24: Result := '24-Bit'; 
    32: Result := '32-Bit'; 
  end; 
  ReleaseDC(0, DesktopDC); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  ShowMessage(GetColorDepth); 
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования