Значки в системном лотке Windows - контрольное положение

Question

У меня есть несколько старых приложений, которые я написал (в Delphi), которые по разным причинам используют значок в системном трее. Большинство из них используют AppControls TacTrayIcon или какой-либо другой подобный компонент.

вот мой вопрос: как управлять позицией значка в лотке? (то есть, где это, скажем, относительно системного времени - 1-я позиция/«слот», 2-я позиция/«слот» и т. д.). Я помню, что видел демонстрацию (C#, если память служит), которая позволила пользователю «сдвинуть значок влево» и «сдвинуть значок вправо», но не помните, как это было сделано.

Я хотел бы разрешить пользователю выбирать, какую позицию они хотят для отображения, для Windows 2000 - Windows 7. (Я понимаю, что Windows 7 обрабатывает элементы в системном трее несколько иначе, но не проверял, что).

Спасибо за любую помощь.

Answer 1

Для программ для управления позициями значков уведомлений об их оболочке нет документально подтвержденного или поддерживаемого способа. Там даже нет никаких гарантий, что они вообще появятся или если они появятся, что они появятся где-нибудь рядом с часами, так что ваши инструкции по размещению будут иметь какой-то смысл.

(Раньше я использовал программу, которая украла некоторые или все значки и, возможно, отобразила их в своем собственном окне, а не в области, близкой к часам. Это было TraySaver от Майка Лина. Источник доступен, если вы хотите посмотреть, как работает его хак.)

Позиция значка не находится под вашим контролем. Мой совет для вас - не пытаться возложить ответственность за вашу программу, особенно если никто из них не запрашивал такую ​​функциональность из вашей программы в первую очередь. Если люди хотят контролировать расположение значков вашей программы, они, вероятно, хотят контролировать расположение иконок других программ, и в этом случае проблема будет больше, чем вы.

Answer 2

Доступ к и изменение области уведомлений оболочки является хакерским, но возможным. Сначала нужно найти окно верхнего уровня:

var 
    Wnd: HWND; 
begin 
    Wnd := FindWindow('Shell_TrayWnd', nil); 
    if IsWindow(Wnd) then 
    EnumChildWindows(Wnd, @FindTrayWnd, 0); 
end; 

затем перечислить свои ребенок, чтобы найти область уведомлений панели задач:

function FindTrayWnd(AWnd: HWND; AParam: LPARAM): BOOL; stdcall; 
var 
    ClassName: string; 
begin 
    SetLength(ClassName, 64); 
    SetLength(ClassName, GetClassName(AWnd, PChar(ClassName), 64)); 
    Result := True; 
    if AnsiCompareText(ClassName, 'TrayNotifyWnd') = 0 then begin 
    EnumChildWindows(AWnd, @FindToolbar, 0); 
    Result := False; 
    end; 
end; 

затем перечислить свои ребенок, чтобы найти стандартную панель инструментов для Windows с иконками уведомлений. Сообщения Windows используются для получения или установки свойств панели инструментов. Поскольку панель инструментов живет в другом процессе необходимо использовать ReadProcessMemory() и WriteProcessMemory() для всех сообщений, которые вовлекают буфер какой-то (как получить текст кнопки или данные):

function FindToolbar(AWnd: HWND; AParam: LPARAM): BOOL; stdcall; 
const 
    VMFLAGS = PROCESS_VM_OPERATION or PROCESS_VM_READ or PROCESS_VM_WRITE; 
var 
    ClassName: string; 
    i, ButtonCount: integer; 
    ProcessId, BytesRead: Cardinal; 
    ProcessHandle: THandle; 
    ExplorerButtonInfo: PTBButton; 
    ButtonInfo: array of TTBButton; 
begin 
    SetLength(ClassName, 64); 
    SetLength(ClassName, GetClassName(AWnd, PChar(ClassName), 64)); 
    if AnsiCompareText(ClassName, 'ToolbarWindow32') = 0 then begin 
    GetWindowThreadProcessId(AWnd, @ProcessId); 
    ProcessHandle := OpenProcess(VMFLAGS, FALSE, ProcessId); 
    ExplorerButtonInfo := VirtualAllocEx(ProcessHandle, nil, SizeOf(TTBButton), 
     MEM_RESERVE or MEM_COMMIT, PAGE_READWRITE); 
    if ExplorerButtonInfo <> nil then try 
     ButtonCount := SendMessage(AWnd, TB_BUTTONCOUNT, 0, 0); 
     SetLength(ButtonInfo, ButtonCount); 
     for i := 0 to ButtonCount - 1 do begin 
     SendMessage(AWnd, TB_GETBUTTON, i, LPARAM(ExplorerButtonInfo)); 
     ReadProcessMemory(ProcessHandle, ExplorerButtonInfo, @ButtonInfo[i], 
      SizeOf(TTBButton), BytesRead); 
     end; 
     // manipulate the button info, use WriteProcessMemory() and SendMessage() 
     // to repopulate the toolbar 

    finally 
     VirtualFreeEx(ProcessId, ExplorerButtonInfo, SizeOf(TTBButton), 
     MEM_RELEASE); 
    end; 
    Result := False; 
    end else 
    Result := True; 
end; 

Вы должны быть в состоянии идентифицировать кнопку вашего значка уведомления через его имя, затем удалите эту кнопку, а затем вставьте ее в нужную позицию. Вся обработка ошибок опущена, но это должно заставить вас начать.

Answer 3

Посмотрите на this article on CodeProject, надеюсь, что это поможет.

Это решение имеет очень ограниченную совместимость и не рекомендуется вообще.