Получить текущую глубину цвета
|
Программисты фирмы "Майкрософт" нашли действенное решение по устранению "синих экранов смерти" в операционной системе 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;
|
|
