大家好： GetSystemDirectory 可以抓到預設的系統目錄如，C:\WINDOWS\SYSTEM GetWindowsDirectory 可以抓到預設的Windwos目錄，如C:\WINDOWS SHGetSpecialFolderLocation 及SHGetPathFromIDList 可以抓到Shell的系統目錄，如 傳入CSIDL_PROGRAMS可得 C:\Documents and Settings\xxx\「開始」功能表\程式集 那可不可以得到系統預設的Program Files的目錄呢？如C:\Program Files謝謝大家！

  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('Software\Microsoft\Windows\CurrentVersion\', False);
    Result := CheckLastChar(ReadString('ProgramFilesDir'));
  finally
    Free;
  end;