delphi获取windows右下角任务栏图标信息

 今天在群里，看有人问怎么获取windows右下角任务栏图标信息

win7  x64 测试通过

 

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,commctrl, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


//判断64
function Is64bitSystem(): Boolean;
var
  si: SYSTEM_INFO;
begin
	GetNativeSystemInfo(si);
	if (si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_AMD64) or
		(si.wProcessorArchitecture = PROCESSOR_ARCHITECTURE_IA64) then
		Result := TRUE
	else
	Result := False;
end;

// 获取托盘窗口句柄
function FindTrayWnd(