取視窗的圖示(ICON)

var hWnd:THandle;
  icon:TIcon;
begin
  hWnd := application.Handle;
  icon := TIcon.Create;
  icon.Handle := SendMessage(hWnd, WM_GETICON, ICON_BIG, 0);
  Self.Canvas.Draw(0,0,icon);
end;