Windows 시스템 트레이 아이콘 - 위치 제어

Question

여러 가지 이유로 시스템 트레이 아이콘을 사용하여 필자가 작성한 (Delphi에서) 몇 가지 오래된 응용 프로그램이 있습니다. 대부분 AppControls TacTrayIcon 또는 다른 유사한 구성 요소를 사용하고 있습니다.

여기 내 질문이 있습니다. 트레이 아이콘은 어떻게 제어하나요? (즉, 시스템 시간과 관련하여 - 제 1 위치/"슬롯", 제 2 위치/"슬롯"등). 사용자가 "왼쪽으로 아이콘을 이동"하고 "오른쪽으로 아이콘을 이동"할 수있는 데모 (C#, 메모리가 작동하는 경우)를 보았지만 어떻게 수행되었는지는 기억하지 못합니다.

사용자가 Windows 2000 - Windows 7에서 아이콘을 표시 할 위치를 선택할 수있게하고 싶습니다. (Windows 7은 시스템 트레이 관련 정보를 조금 다르게 처리하지만 그 것을 테스트하지는 않았습니다. 밖으로 아직).

도움 주셔서 감사합니다.

Answer 1

프로그램이 셸 알림 아이콘의 위치를 ​​제어하는 ​​방법에 대해 문서화되거나 지원되지 않습니다. 그들이 전혀 나타나지 않거나, 나타나면 시계 근처의 아무 곳에 나 나타나서 포지셔닝 지시가 의미가 있다는 것을 보장하지 않습니다.

(전 아이콘 일부 또는 전부를 가로 채고 시계가 아닌 자신의 창에 선택적으로 표시 한 프로그램을 사용했습니다.) Mike Lin의 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 메시지는 도구 모음 속성을 가져 오거나 설정하는 데 사용됩니다.

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; 

당신은 버튼을 식별 할 수 있어야한다 : 툴바가 다른 프로세스에 살고 있기 때문에 당신은 (버튼의 텍스트 나 버튼 정보를 받고 같은) 어떤 종류의 버퍼를 포함하는 모든 메시지에 대한 ReadProcessMemory() 및 WriteProcessMemory()를 고용 할 필요가 알림 아이콘의 이름을 클릭 한 다음 해당 버튼을 삭제하고 원하는 위치에 삽입하십시오. 모든 오류 처리가 생략되었지만 시작해야합니다.

Answer 3

this article on CodeProject을 보면 도움이되기를 바랍니다.

이 솔루션은 호환성이 매우 낮으므로 권장하지 않습니다.