Delphi 調用 Windows API 核心技巧：數據類型轉換與封裝

核心挑戰

Windows API 基於 C/C++ 類型 (如 LPSTR、HICON、HWND)，Delphi 使用 Pascal 類型 (string、TIcon、THandle)，直接調用會類型不匹配，需封裝轉換。

技巧 1：字符串與 PChar 互轉

function GetSysPath: string;
var
  sTmp: string;
begin
  Result := '';
  SetLength(sTmp, 256);               // 預分配緩衝區
  GetSystemDirectory(PChar(sTmp), 256); // API 需 PChar
  SetLength(sTmp, StrLen(PChar(sTmp))); // 截取實際長度
  Result := sTmp + '\';
end;

要點：SetLength 確保緩衝區可寫，PChar(sTmp) 取首字符指針，StrLen 計算以 #0 結尾的長度。

技巧 2：句柄類型封裝

procedure TForm1.ChangeAppIcon;
var
  Icon: TIcon;
begin
  Icon := TIcon.Create;
  try
    // ExtractIcon 返回 HICON (Pointer)，賦給 TIcon.Handle
    Icon.Handle := ExtractIcon(Application.Handle, PChar('D:\WINNT\regedit.exe'), 0);
    if Icon.Handle <> 0 then
      Application.Icon := Icon; // TIcon 隱式轉換
  finally
    Icon.Free;
  end;
end;

錯誤寫法：Application.Icon := ExtractIcon(...) 類型不匹配。正確做法：創建中間 TIcon，接收句柄再賦值。

常用類型對照表

最佳實踐

1. 優先使用 Delphi 封裝單元 (Windows, ShellAPI, CommCtrl)。
2. 自行聲明 API 時加 stdcall，參數用 const 傳值類型。
3. 字符串輸出參數：預分配 SetLength，調用後 SetLength(s, StrLen(PChar(s)))。
4. 結構體對齊：record ... end; 默認按 8 字節對齊，若需 1 字節用 packed record。

1. 上一篇文章： Delphi 獲取系統顏色位數：GetDeviceCaps 實現
2. 下一篇文章： Delphi 對象釋放陷阱與安全釋放模式

Delphi

Delphi 調用 WinAPI：GetLogicalDrives 位元遮罩快速判斷磁碟機存在性

無需字串解析，一個 DWORD 即知 26 個磁碟機狀態 G

Delphi 設計模式實戰：策略模式在飯店管理系統中的完整應用（下）

實戰案例：優惠房價查詢模組的策略模式實現 飯店管理系統中，房

iOS App 上架必備：雙重認證下建立 App 專用密碼完整教學

iOS App 上架必備：雙重認證下建立 App 專用密碼完

Delphi 2009 智能指針實作詳解（十四）：Release 方法與記憶體洩漏防範

問題重現：過早釋放導致的存取違規 在測試過程中發現，當 Do