代码文件:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; ListView1: TListView; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}uses Commctrl;{获取托盘句柄的函数}function TrayHWnd: HWND;var h,hTmp: HWND;begin h := FindWindow('Shell_TrayWnd', nil); h := FindWindowEx(h, 0, 'TrayNotifyWnd', nil); hTmp := FindWindowEx(h, 0, 'SysPager', nil); if hTmp <> 0 then h := hTmp; hTmp := FindWindowEx(h, 0, 'ToolbarWindow32', nil); if hTmp <> 0 then h := hTmp; Result := h;end;{控件初始化}procedure TForm1.FormCreate(Sender: TObject);begin ListView1.Align := alLeft; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption := '托盘图标列表'; ListView1.Columns.Items[0].Width := 500; Listview1.ViewStyle := vsReport; Button1.Caption := '显示托盘列表'; Button2.Caption := '全部隐藏'; Button3.Caption := '取消隐藏'; Button2.Enabled := False; Button3.Enabled := False;end;{提取列表}procedure TForm1.Button1Click(Sender: TObject);var h: HWND; count,size,num: Cardinal; pid, ph: Cardinal; p: Pointer; icoBtn: TTBButton; buf: array[0..255] of WideChar; i: Integer; item: TListItem;begin h := TrayHWnd; count := SendMessage(h, TB_BUTTONCOUNT, 0, 0); size := SizeOf(TTBButton); GetWindowThreadProcessId(h, pid); ph := OpenProcess(PROCESS_VM_READ, False, pid); for i := 0 to count - 1 do begin SendMessage(h, TB_GETBUTTON, i, DWORD(p)); ReadProcessMemory(ph, p, @icoBtn, size, num); ReadProcessMemory(ph, Pointer(icoBtn.iString), @buf, Length(buf)*SizeOf(buf[0]), num); item := ListView1.Items.Add; item.Caption := buf; end; CloseHandle(ph); Button2.Enabled := True; Button3.Enabled := True;end;{全部隐藏}procedure TForm1.Button2Click(Sender: TObject);var h: HWND; count,i: Cardinal;begin h := TrayHWnd; count := SendMessage(h, TB_BUTTONCOUNT, 0, 0); for i := 0 to count - 1 do SendMessage(h, TB_HIDEBUTTON, i, 1);end;{全部显示}procedure TForm1.Button3Click(Sender: TObject);var h: HWND; count,i: Cardinal;begin h := TrayHWnd; count := SendMessage(h, TB_BUTTONCOUNT, 0, 0); for i := 0 to count - 1 do SendMessage(h, TB_HIDEBUTTON, i, 0);end;end.