╩αΩ ≤±≥αφεΓΦ≥ⁿ ΩεδΦ≈σ±≥Γε ÷Γσ≥εΓ Γ ±Φ±≥σ∞φεΘ ∩αδΦ≥≡σ?

╘≤φΩ÷Φ GetNumColors ΓετΓ≡α∙ασ≥ ΩεδΦ≈σ±≥Γε ÷Γσ≥εΓ Σδ αΩ≥≤αδⁿφε Γ√ß≡αφφεπε ≡ατ≡σ°σφΦ ²Ω≡αφα.

function GetNumColors: LongInt;
var
   BPP: Integer;
   DC: HDC;
begin
   DC := CreateDC('DISPLAY', nil, nil, nil);
   if DC <> 0 then begin
      try
	 BPP := GetDeviceCaps(DC, BITPIXEL) * GetDeviceCaps(DC, PLANES);
      finally
         DeleteDC(DC);
      end;
      case BPP of
         1: Result := 2;
         4: Result := 16;
         8: Result := 256;
         15: Result := 32768;
         16: Result := 65536;
         24: Result := 16777216;
      end;
   end else
      Result := 0;
end;

╤εΓσ≥√ φα≈Φφα■∙Φ∞