알림 영역에서 NotifyIcon 제거

Question

앱이 갑자기 종료되면 알림 영역 (시스템 트레이)에서 NotifyIcon을 제거 할 수 있습니까?

만약 아니라면, 다음에 앱을 실행할 때 어떻게 제거 할 수 있습니까?

Answer 1

갑자기? 아닙니다. 프로그램이 종료되었으므로 코드를 실행하여 셸에 아이콘을 제거해야한다고 알릴 기회가 없습니다.

아이콘을 제거하려면 아이콘 위로 마우스를 이동하십시오. 쉘은 프로그램에 알림을 보내고 더 이상 아무 것도 없다는 것을 깨닫고 아이콘 만 제거합니다.

Answer 2

Windows 7 이상에서는 사용자 정의 GUID로 알림 아이콘을 식별 할 수 있습니다. 이전 버전에서는 HWND와 ID 번호의 조합으로 식별되었습니다. 앱이 다음 번에 실행될 때 동일한 HWND 값을 얻지 못하기 때문에 HWND로 식별되는 이전 아이콘에 대해 아무 것도 할 수있는 유일한 방법은 이전 HWND 값을 기억하여이를 사용하여 이전 아이콘을 누른 다음 새 HWND를 사용하여 새 아이콘을 추가하십시오. 그러나 GUID로 식별 된 아이콘의 경우 GUID는 영구적이어야합니다 (아이콘과 연결된 응용 프로그램 설정을 저장하기 위해 레지스트리에 저장되므로). 필요에 따라 기존 아이콘을 계속 업데이트하거나 제거 할 수 있어야합니다 만약 원한다면.

Answer 3

FWIW 코드는 지금까지 존재하지 않았기 때문에 나는 이것을 넣을 것이라고 생각했다. OP가 도움이 될 것인지 아닌지는 모르지만 올바른 방향으로 좋은 안내가되어야한다.

unit csystray; 
    { removes dead system tray icons, by Glenn1234 @ stackoverflow.com 
    since this uses "less than supported by Microsoft" means, it may 
    not work on all operating system. It was tested on Windows XP } 
interface 
    uses commCtrl, shellapi, windows; 
type 
    TTrayInfo = packed record 
    hWnd: HWnd; 
    uID: UINT; 
    uCallBackMessage: UINT; 
    Reserved1: array[0..1] of longint; 
    Reserved2: array[0..2] of longint; 
    hIcon: HICON; 
    end; 
    PTBButton = ^TTBButton; 
    _TBBUTTON = packed record 
    iBitmap: Integer; 
    idCommand: Integer; 
    fsState: Byte; 
    fsStyle: Byte; 
    bReserved: array[1..2] of Byte; 
    dwData: Longint; 
    iString: Integer; 
    end; 
    TTBButton = _TBBUTTON; 

procedure RemoveStaleTrayIcons; 

implementation 

procedure RemoveStaleTrayIcons; 
const 
    VMFLAGS = PROCESS_VM_OPERATION or PROCESS_VM_READ OR PROCESS_VM_WRITE; 
var 
    ProcessID: THandle; 
    ProcessHandle: THandle; 
    trayhandle: HWnd; 
    ExplorerButtonInfo: Pointer; 
    i: integer; 
    ButtonCount: Longint; 
    BytesRead: Longint; 
    ButtonInfo: TTBButton; 
    TrayInfo: TTrayInfo; 
    ClassNameA: Array[0..255] of char; 
    outlen: integer; 
    TrayIconData: TNotifyIconData; 
begin 
    // walk down the window hierarchy to find the notification area window 
    trayhandle := FindWindow('Shell_TrayWnd', ''); 
    trayhandle := FindWindowEx(trayhandle, 0, 'TrayNotifyWnd', nil); 
    trayhandle := FindWindowEx(trayhandle, 0, 'SysPager', nil); 
    trayhandle := FindWindowEx(trayhandle, 0, 'ToolbarWindow32', nil); 
    if trayhandle = 0 then exit; 
    // find the notification area process and open it up for reading. 
    GetWindowThreadProcessId(trayhandle, @ProcessID); 
    ProcessHandle := OpenProcess(VMFLAGS, false, ProcessID); 
    ExplorerButtonInfo := VirtualAllocEx(ProcessHandle, nil, Sizeof(TTBButton), 
     MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE); 
    // the notification area is a tool bar. Get the number of buttons. 
    ButtonCount := SendMessage(trayhandle, TB_BUTTONCOUNT, 0, 0); 
    if ExplorerButtonInfo <> nil then 
    try 
     // iterate the buttons & check. 
     for i := (ButtonCount - 1) downto 0 do 
     begin 
      // get button information. 
      SendMessage(trayhandle, TB_GETBUTTON, i, LParam(ExplorerButtonInfo)); 
      ReadProcessMemory(ProcessHandle, ExplorerButtonInfo, @ButtonInfo, 
      Sizeof(TTBButton), BytesRead); 
      // if there's tray data, read and process 
      if Buttoninfo.dwData <> 0 then 
      begin 
       ReadProcessMemory(ProcessHandle, PChar(ButtonInfo.dwData), 
           @TrayInfo, Sizeof(TTrayInfo), BytesRead); 
       // here's the validation test, this fails if the master window is invalid 
       outlen := GetClassName(TrayInfo.hWnd, ClassNameA, 256); 
       if outlen < 1 then 
       begin 
        // duplicate the shell icon removal, i.e. my component's DeleteTray 
        TrayIconData.cbSize := sizeof(TrayIconData); 
        TrayIconData.Wnd := TrayInfo.hWnd; 
        TrayiconData.uID := TrayInfo.uID; 
        TrayIconData.uCallbackMessage := TrayInfo.uCallBackMessage; 
        Shell_NotifyIcon(NIM_DELETE, @TrayIconData); 
       end; 
      end; 
     end; 
    finally 
     VirtualFreeEx(ProcessID, ExplorerButtonInfo, Sizeof(TTBButton), MEM_RELEASE); 
    end; 
end; 

end.