Right click notification from TaskBar button

[bob2553]

Hi,

I'd like to know which message are send to the application when the user right click on the application button located in the TaskBar (or AppBar).
I'd like to replace the default windows popup by my own popup menu.

ATT: I don't want to add more items to the system menu but completely replacing it
I'm not referring to an icon in the notification area.

Thank you in advance
Bob

 

[bob2553]

Anybody ??

Bob

 

[rcloutie]

procedure ClickTrayIcon(var msg: TMessage); message WM_NOTIFYICON;

procedure TForm1.ClickTrayIcon(var msg: TMessage);
begin
case msg.lparam of
WM_RBUTTONUP, WM_RBUTTONDBLCLK: ppm.Popup;
end;
end;

 

[rcloutie]

Sorry, I did not see your ATT
(I'm not referring to an icon in the notification area.)...

So forget it...

 

[whosrdaddy]

I did some researh and I can't dig something up, I think the problem is that the popup menu is provided by the taskbar app (explorer?) and not by the delphi app itself.
I'm still searching to give you some usefull info...

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[bob2553]

Thanks anyway,

As you can see, applications developped with Delphi have a shorter popup menu than other applications. Normally, you can access this button using the application handle :
- to hide it:
ShowWindow(Application.handle, SW_HIDE)
- to add more items:
AppendMenu(GetSystemMenu(Application.handle, False), MFT_STRING,...
- or to make it flashing
FlashWindow(Application.handle, True)

I decided to intercept all messages (Application.OnMessage) but this is not clear to me which one is send before the menu popups

Bob

 

[whosrdaddy]

Like I said, the message doesn't appear in Application.OnMessage, Spy+++ indicates a WM_INITMENU and WM_INITMENUPOPUP message but this message is not handled by TApplication. TForm does implement those messages but is only for right click on the form itself...

you are referring to the system menu (left click on form icon), which is not the same as right click on taskbar button.

for more info on systemmenu, look here :

http://delphi.about.com/od/windowsshellapi/l/aa011800a.htm

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[whosrdaddy]

I don't find any resources on this subject, found this at M$ :

http://msdn.microsoft.com/library/d...e/shell_int/shell_int_programming/taskbar.asp

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[bob2553]

Thanks.

So, I can get the handle of the taskbar

var
AppData: TAppBarData;
begin
// 'Shell_TrayWnd' is the name of the task bar's window
AppData.Hwnd := FindWindow('Shell_TrayWnd', nil);

But how can i detect a click on the button corresponding to my application ?

 

[bob2553]

It seems to be more simple.

Application.HookMainWindow(AppHookFunc);

function XX.AppHookFunc(var Msg: TMessage): boolean;
begin
If Msg.Msg = WM_INITMENU then
Result:= false;
end;

Now, if I click with the right button, no more popup menu is displayed.

But I still don't know how to get the position of the mouse to display my own popup menu at the right location.

Any idea?

 

[whosrdaddy]

maybe a mousehook?

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!