• XP對高DPI的支持比較差勁， 大部分情況下就是字體的放大， 當然我們程序也可以通過GetDeviceCaps(hDC, LOGPIXELSX)獲取DPI后自己對繪畫的內容進行縮放。
• 我們知道Vista/Win7我們可以禁止DWM（Desktop Window Manager）， 該模式我們稱之為Basic模式， 這種模式下的高DPI效果和XP一樣。對于DWM沒有禁掉的情況， Vista/Win7/Win8 對高DPI的支持又分為2種情況

1. 高DPI支持是通過DWM的縮放實現的，比如我們當前系統的DPI是200%，系統會告訴你當前DPI仍然是96（100%），程序會按照100%的方式進行繪畫， 但是系統給我們的坐標是根據DPI縮小后的(調用GetWindowRect或是通過GetSystemMetrics(SM_CXSCREEN))，當我們畫完之后再對整個窗口進行200% 放大后畫到屏幕上，程序就自動支持高DPI了。
2. 系統給我們提供了2個APi：SetProcessDPIAware 和 IsProcessDPIAware，通過調用SetProcessDPIAware，我們告訴系統不要對我們的程序進行DWM虛擬化。

這個demo是用來用在開始菜單的。
首先開始菜單有大小圖標之分，可以在菜單的設置中設置。第二系統有各個DPI，不同的dpi有不同的大小需要處理。下面就是一些實現過程

• 首先獲取圖標獲取大小圖標，菜單程序快捷地址在C:\ProgramData\Microsoft\Windows\Start Menu\Programs\

function TGetInkImageHelper.GetFileIcon(FileName: string; ASmall: Boolean):
  HIcon;
var
  Info: TSHFileInfo;
  Flags: Cardinal;
begin
  result := 0;
  try
    FileName := ExpCmd(FileName);
    if ASmall then
      Flags := SHGFI_ICON or SHGFI_SMALLICON
    else
      Flags := SHGFI_ICON or SHGFI_LARGEICON;

    SHGetFileInfo(PChar(FileName), FILE_ATTRIBUTE_NORMAL, Info,
      SizeOf(TSHFileInfo), Flags);
    Result := Info.hIcon;
  except

  end;
end;

• 獲取更具大圖標和小圖標 設置不同行高度
  TreeViewInk.Perform(TVM_SETITEMHEIGHT, 20, 0);

• 獲取DPI

function TSetTreeViewHigh.GetDPI: Integer;
var
  DC: HDC;
begin
  DC := GetDC(0);
  Result := GetDeviceCaps(DC, logpixelsx);
  ReleaseDC(0, DC);
end;

• 與DPI有關的圖片參數

• 由上，我們可以總結出顯示的規律了
  1.都是4的倍數
  2.大圖片是小圖片的顯示的2倍
  3.間隔的大小話比圖片大小大1號

procedure TSetTreeViewHigh.SetNum(num: Integer);
begin
  smallSpace := 5 * num;
  largeSpace := 10 * num;

  mySmallList.Height := 4 * num;
  myLargeList.Height := 8 * num;
end;