Delphi 獲取系統顏色位數：GetDeviceCaps 實現

函數實現

function GetSysColorNum: Integer;
var
  ScreenDC: HDC;
  NumBitsPixel: Integer;
begin
  Result := 0;
  ScreenDC := GetDC(0);
  try
    NumBitsPixel := GetDeviceCaps(ScreenDC, BITSPIXEL);
    Result := 1 shl NumBitsPixel; // 2^位數 = 顏色數
  finally
    ReleaseDC(0, ScreenDC);
  end;
end;

原理解析

• GetDC(0) 獲取螢幕 DC。
• GetDeviceCaps(..., BITSPIXEL) 返回每像素位數 (如 4/8/16/24/32)。
• 1 shl n 計算 2^n，即顏色總數 (16/256/65536/16M/4G)。

常見返回值對照

應用建議

• 程序啟動時檢測，若 < 16 位提示用戶調整顯示設置。
• 根據顏色位數動態選擇圖片資源 (8位用索引圖，16位+用真彩色)。
• 繪圖代碼中根據位數選擇優化路徑。

1. 上一篇文章： Delphi 內存數據十六進制/二進制查看工具函數
2. 下一篇文章： Delphi 調用 Windows API 核心技巧：數據類型轉換與封裝

Delphi

Delphi 序列埠通訊實戰：雙重模式獲取 DCB 參數、配置對話框與資料收發

專案背景：工業控制與舊式設備整合的序列埠核心需求 儘管 US

Delphi 偵測網路連線狀態四大方案對比：InetIsOffline、TcpServer、InternetGetConnectedState、IsNetworkAlive

需求：即時、準確判斷「目前是否聯網」與「連線方式」 方案一

GDI+ 繪圖基礎：使用 DrawArc 繪製弧線

前言 TGPGraphics.DrawArc 在矩形範圍內繪

Delphi 實作網路訊息傳送器：NetMessageBufferSend API 與函數多載技巧

專案背景：重現 Windows XP「網路訊息」功能 Win