purebasic.info

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

Procedure WinCallback(hWnd.i, uMsg.i, wParam.i, lParam.i)
  Static x=#False
  If uMsg = 12501 And wParam = 1 
    Select lParam
      Case #WM_RBUTTONDOWN, #WM_RBUTTONDBLCLK
        x=#True
      Case #WM_RBUTTONUP
        If x=#True
          x=#False
          Debug "Клик"
        EndIf
    EndSelect
  EndIf
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 
 
 
OpenWindow(0, 0, 0, 200, 200, "", #PB_Window_SystemMenu|1)
SetWindowCallback(@WinCallback())
AddSysTrayIcon(1, WindowID(0), LoadIcon_(0, 32512))
Repeat
  Event.i = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43

Structure RECT
  left.i
  top.i
  right.i
  bottom.i
EndStructure
Global rec.RECT
 
Structure POINT
  x.l
  y.l
EndStructure
Global p.POINT
 
Procedure WinCallback(hWnd.i, uMsg.i, wParam.i, lParam.i)
  Protected TrayWnd.i, NotifyWnd.i, SysPager.i, Window32.i
  If uMsg = 12501 And wParam = 1
    Select lParam
      Case 513
        TrayWnd = FindWindow_(@"Shell_TrayWnd", 0)
        NotifyWnd = FindWindowEx_(TrayWnd, 0, @"TrayNotifyWnd", 0)
        SysPager = FindWindowEx_(NotifyWnd, 0, @"SysPager", 0)
        Window32 = FindWindowEx_(SysPager, 0, @"ToolbarWindow32", 0)
        GetWindowRect_(Window32, @rec)
        rec\right = rec\left + (rec\bottom - rec\top)
      Case 514
        GetCursorPos_(@p)
        If p\x > rec\left And p\x < rec\right And p\y > rec\top And p\y < rec\bottom
          Debug "Клик"
        EndIf
    EndSelect
  EndIf
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 
 
 
OpenWindow(0, 0, 0, 200, 200, "", #PB_Window_SystemMenu|1)
SetWindowCallback(@WinCallback())
AddSysTrayIcon(1, WindowID(0), LoadIcon_(0, 32512))
Repeat
  Event.i = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Procedure WinCallback(hWnd.i, uMsg.i, wParam.i, lParam.i)
  If uMsg = 12501 And  wParam = 1 And lParam=514
    Debug "Клик"
  EndIf
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 
 
 
OpenWindow(0, 0, 0, 200, 200, "", #PB_Window_SystemMenu|1)
SetWindowCallback(@WinCallback(),0)
AddSysTrayIcon(1, WindowID(0), LoadIcon_(0, 32512))
Repeat
  Event.i = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

Structure pcb
  p1.i
  p2.i
  p3.i
EndStructure 
 
Global pcb.pcb
 
Procedure WinCallback(hWnd.i, uMsg.i, wParam.i, lParam.i)
  If uMsg=12501 And wParam=1 And lParam=514
    If pcb\p1=12501 And  pcb\p2=1 And  (pcb\p3=513 Or pcb\p3=512)
      Debug "CLICK"
    EndIf
  EndIf
  pcb\p1=uMsg: pcb\p2=wParam: pcb\p3=lParam
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 
 
 
OpenWindow(0, 0, 0, 400, 200, "", #PB_Window_SystemMenu|1)
SetWindowCallback(@WinCallback(),0)
AddSysTrayIcon(1, WindowID(0), LoadIcon_(0, 32512))
Repeat
  Event.i = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

Structure POINT
  x.i
  y.i
EndStructure
 
#PROCESS_ALL_ACCESS = $1F0FFF
#MEM_COMMIT = $00001000
#PAGE_READWRITE = $04
#MEM_RELEASE = $8000
#TB_HITTEST = 1024+69
 
Procedure WinCallback(hWnd.i, uMsg.i, wParam.i, lParam.i)
  Protected p.POINT
  Protected.i TrayWnd, NotifyWnd, SysPager, Window32, hProcess, Pid, Virtual, Count
  Static.i ClikStart
  If uMsg = 12501 And wParam = 1
    Select lParam
      Case 513
        GetCursorPos_(@p)
        TrayWnd = FindWindow_(@"Shell_TrayWnd", 0)
        NotifyWnd = FindWindowEx_(TrayWnd, 0, @"TrayNotifyWnd", 0)
        SysPager = FindWindowEx_(NotifyWnd, 0, @"SysPager", 0)
        Window32 = FindWindowEx_(SysPager, 0, @"ToolbarWindow32", 0)
        ScreenToClient_(Window32, @p)
        GetWindowThreadProcessId_(Window32, @Pid)
        hProcess = OpenProcess_(#PROCESS_ALL_ACCESS , #False, Pid)
        Virtual = VirtualAllocEx_(hProcess, 0, SizeOf(POINT), #MEM_COMMIT, #PAGE_READWRITE)
        WriteProcessMemory_(hProcess, @Virtual, @p, SizeOf(POINT), @dwBytesRead)
        ClikStart = SendMessage_(Window32, #TB_HITTEST , 0, @Virtual)
        VirtualFreeEx_(hProcess, Virtual, 0, #MEM_RELEASE)
        CloseHandle_(hProcess)
      Case 514
        GetCursorPos_(@p)
        TrayWnd = FindWindow_(@"Shell_TrayWnd", 0)
        NotifyWnd = FindWindowEx_(TrayWnd, 0, @"TrayNotifyWnd", 0)
        SysPager = FindWindowEx_(NotifyWnd, 0, @"SysPager", 0)
        Window32 = FindWindowEx_(SysPager, 0, @"ToolbarWindow32", 0)
        ScreenToClient_(Window32, @p)
        GetWindowThreadProcessId_(Window32, @Pid)
        hProcess = OpenProcess_(#PROCESS_ALL_ACCESS , #False, Pid)
        Virtual = VirtualAllocEx_(hProcess, 0, SizeOf(POINT), #MEM_COMMIT, #PAGE_READWRITE)
        WriteProcessMemory_(hProcess, @Virtual, @p, SizeOf(POINT), @dwBytesRead)
        ClikStop = SendMessage_(Window32, #TB_HITTEST , 0, @Virtual)
        If ClikStop = ClikStart
          Debug "Клик"
        EndIf  
        ClikStart = -1
        VirtualFreeEx_(hProcess, Virtual, 0, #MEM_RELEASE)
        CloseHandle_(hProcess)
    EndSelect
  EndIf
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure
 
OpenWindow(0, 0, 0, 200, 200, "", #PB_Window_SystemMenu|1)
SetWindowCallback(@WinCallback())
AddSysTrayIcon(1, WindowID(0), LoadIcon_(0, 32512))
Repeat
  Event.i = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End