Delphi Vista+ 登錄表操作最佳實踐：透過 .reg 檔案繞過 UAC 限制

Vista 之後修改登錄表需管理員權限，直接寫入極其麻煩。採用「產生 .reg 檔案 + ShellExecute 執行」策略，利用系統註冊編輯器自動提權完成操作。

核心單元：RegApp 註冊函式

uses System.IOUtils, Winapi.ShellAPI, Winapi.ShlObj; 

{ 關聯副檔名到指定應用程式並設定圖示 }
procedure RegApp(const aExt, aAppName, aAppPath: string); 
const 
  nRegFmt = 
    'Windows Registry Editor Version 5.00' + sLineBreak + 
    '[HKEY_CLASSES_ROOT\%0:s]' + sLineBreak + 
    '@="%1:s"' + sLineBreak + 
    '[HKEY_CLASSES_ROOT\%1:s\DefaultIcon]' + sLineBreak + 
    '@="%2:s,0"' + sLineBreak + 
    '[HKEY_CLASSES_ROOT\%1:s\shell]' + sLineBreak + 
    '[HKEY_CLASSES_ROOT\%1:s\shell\open]' + sLineBreak + 
    '[HKEY_CLASSES_ROOT\%1:s\shell\open\command]' + sLineBreak + 
    '@="%3:s"'; 
var 
  RegStr: string; 
  str3, str4: string; 
  RegTmpFile: string; 
begin 
  { 路徑轉義處理 }
  str3 := aAppPath.Replace('\', '\\'); 
  str4 := Format('"%s" "%%1"', [str3]).Replace('"', '\"'); 
  
  RegStr := Format(nRegFmt, [aExt, aAppName, str3, str4]); 
  
  { 寫入暫存 .reg 檔案 }
  RegTmpFile := TPath.GetTempPath + 'RegTmp.reg'; 
  with TStringList.Create do 
  begin 
    Text := RegStr; 
    SaveToFile(RegTmpFile); 
    Free; 
  end; 
  
  { 呼叫系統註冊編輯器執行 (自動觸發 UAC 提權) }
  ShellExecute(0, nil, PChar(RegTmpFile), nil, nil, SW_SHOWNORMAL); 
  
  { 通知 Shell 重新整理圖示快取 }
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); 
end;

表單測試程式

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  { 註冊 .tst 副檔名關聯到當前程式 }
  RegApp('.tst', 'MyApp1', Application.ExeName); 
end;

關鍵技術細節

1. 雙重轉義：路徑反斜線 → 雙反斜線；命令列引號 → \"
2. %1 佔位符："%1" 代表被雙擊的檔案完整路徑
3. ShellExecute 執行 .reg：系統關聯 regedit.exe，自動彈出 UAC 對話框
4. SHChangeNotify：強制重新整理檔案總管圖示快取，即時生效

優缺點分析

此方案為「不以管理員身分執行主程式」情境下的最佳折衷方案，廣泛適用於檔案關聯、自啟動註冊等需寫入 HKLM 或 HKCR 的場景。