end;
wm_rbuttondblclk://右双击
begin
getcursorpos(p);
dblclick;
mousedown(mbright, keystoshiftstate(twmmouse(msg).keys)+[ssdouble], p.x, p.y);
if frmode=rdbclick then
begin
showwindow(application.handle,sw_show);
setwindowlong(application.handle,gwl_exstyle ,oldstyleex);
sendmessage(application.handle,wm_syscommand,sc_restore,0);
settray(nim_delete );
end;
end;
wm_mousemove: //鼠标移动
begin
getcursorpos(p);
mousemove(keystoshiftstate(twmmouse(msg).keys), p.x, p.y);
end;
wm_lbuttondown: //左单击下
