예전에 마우스 포인터를 트레이쪽으로 옮겨서 지워주는 소스가 있었는데
누가 잘 안된다고 해서 다시 만들었습니다.



소스는 셈플 코드라 좀 지저분합니다.

  TB_BUTTONCOUNT 메시지로 트레이 아이콘 갯수를 얻고

  TB_GETBUTTON 으로 버튼 구조체를 얻어서 ProcessID를 구하고

ProcessID가 비어 있는(쓰레기) 아이콘을

Shell_NotifyIcon(NIM_DELETE, @icon); API로 직접 제거합니다.

64비트랑 32비트는 구조체가 조금 달라서

함수가 두개여요.








unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TIsWow64Process = function (hProcess: THANDLE; Wow64Process: PBOOL): BOOL; stdcall;

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

  //=========================================================
  // 구조체 정의
  //=========================================================

  TRAYDATA = packed record
    wnd: HWND;
   uID: UINT;
   uCallbackMessage: UINT;
   Reserved: array [0..1] of DWORD;
   hIcon: HICON;
  end;

  TBBUTTON = packed record
    iBitmap: Integer;
    idCommand: Integer;
    fsState: BYTE;
    fsStyle: BYTE;
    bReserved: array [0..1] of BYTE;    // padding for alignment
    dwData: Pointer;                    //DWORD_PTR;
    iString: Pointer;                   //INT_PTR;
  end;

  TBBUTTON64 = packed record
    iBitmap: Integer;
    idCommand: Integer;
    fsState: BYTE;
    fsStyle: BYTE;
    bReserved: array [0..5] of BYTE;    // padding for alignment  64bit
    dwData: Pointer;                    //DWORD_PTR;
    iString: Pointer;                   //INT_PTR;
  end; 

const
  TB_BUTTONCOUNT = WM_USER + 24; 
  TB_GETBUTTON = WM_USER + 23;
 
var
  Form1: TForm1;
  IsWow64Process: TIsWow64Process;

implementation

{$R *.dfm}

uses
  ShellAPI;

//=========================================================
// Tray 아이콘의 프로세스 이름을 얻기 위해 윈도우 핸들을 얻는 함수
//=========================================================
function FindTrayToolbarWindow: HWND;
var
  hWnd_ToolbarWindow32: HWND;
 hWnd_ShellTrayWnd: HWND;
  hWnd_TrayNotifyWnd: HWND;
  hWnd_SysPager: HWND;
begin
  hWnd_ToolbarWindow32 := 0;

  hWnd_ShellTrayWnd := FindWindow('Shell_TrayWnd', nil);
 if hWnd_ShellTrayWnd <> 0 then begin
  hWnd_TrayNotifyWnd := FindWindowEx(hWnd_ShellTrayWnd, 0, 'TrayNotifyWnd', nil);
  if hWnd_TrayNotifyWnd <> 0 then begin
   hWnd_SysPager := FindWindowEx(hWnd_TrayNotifyWnd, 0,'SysPager', nil); // WinXP

   // WinXP 에서는 SysPager 까지 추적
   if hWnd_SysPager <> 0 then begin
    hWnd_ToolbarWindow32 := FindWindowEx(hWnd_SysPager, 0, 'ToolbarWindow32', nil);
      end else begin
        // Win2000 일 경우에는 SysPager 가 없이 TrayNotifyWnd -> ToolbarWindow32 로 넘어간다
        hWnd_ToolbarWindow32 := FindWindowEx(hWnd_TrayNotifyWnd, 0,'ToolbarWindow32', nil);
      end;
  end;
 end;
   
 Result := hWnd_ToolbarWindow32;
end;

//=========================================================
// Refresh 의 메인
//=========================================================
function ShellTrayIconRefresh32: Boolean;
var
  m_hProcess: THANDLE;
  m_lpData: ^TBBUTTON;
  tb: TBBUTTON;
  tray: TRAYDATA;  //NOTIFYICONDATA;  //
  dwTrayPid: DWORD;
  TrayCount: Integer;
  m_hTrayWnd: HWND;
  i: Integer;
  read: Cardinal;
  dwProcessId: DWORD;
  icon: NOTIFYICONDATA;
  aRes: Integer;
begin
 try
  // Tray 의 윈도우 핸들 얻기
  m_hTrayWnd := FindTrayToolbarWindow();
    if m_hTrayWnd = 0 then begin
      Result := False;
   Exit;
    end;
  
  // Tray 의 개수를 구하고
  TrayCount := SendMessage(m_hTrayWnd, TB_BUTTONCOUNT, 0, 0);
  
  // Tray 윈도우 핸들의 PID 를 구한다
  GetWindowThreadProcessId(m_hTrayWnd, dwTrayPid);
  
    // 해당 Tray 의 Process 를 열어서 메모리를 할당한다
  m_hProcess := OpenProcess(PROCESS_ALL_ACCESS, FALSE, dwTrayPid);
    if m_hProcess = 0 then begin
      Result := False;
      Exit;
    end;
  
    // 해당 프로세스 내에 메모리를 할당
  m_lpData := VirtualAllocEx(m_hProcess, nil, sizeof(TBBUTTON), MEM_COMMIT, PAGE_READWRITE);
  if m_lpData = nil then begin
      Result := False;
      Exit;
    end;
  
  // Tray 만큼 뺑뺑이
  for i := TrayCount - 1 downto 0 do begin
      aRes := SendMessage(m_hTrayWnd, TB_GETBUTTON, i, Integer(m_lpData));
   if aRes = 0 then
        Continue; 
   
   // TBBUTTON 의 구조체와 TRAYDATA 의 내용을 얻기
   ReadProcessMemory(m_hProcess, m_lpData, @tb, sizeof(TBBUTTON), read);
      ReadProcessMemory(m_hProcess, tb.dwData, @tray, sizeof(tray), read);
           
   // 각각 트레이의 프로세스 번호를 얻어서
   dwProcessId := 0;
   GetWindowThreadProcessId(tray.Wnd, dwProcessId);
   
   // Process 가 없는 경우 TrayIcon 을 삭제한다
   if dwProcessId = 0 then begin
    icon.cbSize