-
//刷新任务栏图标 终止别的进程序有些程序有托盘会残留
- function RefreshTaskbarIcon: Integer;
- var
- hShellTrayWnd: HWND;
- hTrayNotifyWnd: HWND;
- hSysPager: HWND;
- hToolbarWindow32: HWND;
- r: TRECT;
- width, height: integer;
- x: Integer;
- begin
- hShellTrayWnd := FindWindow('Shell_TrayWnd',nil);
- hTrayNotifyWnd := FindWindowEx(hShellTrayWnd,0,'TrayNotifyWnd',nil);
- hSysPager := FindWindowEx(hTrayNotifyWnd,0,'SysPager',nil);
- if (hSysPager <> 0) then
- hToolbarWindow32 := FindWindowEx(hSysPager,0,'ToolbarWindow32',nil)
- else
- hToolbarWindow32 := FindWindowEx(hTrayNotifyWnd,0,'ToolbarWindow32',nil);
-
- if (hToolbarWindow32 <> 0) then
- begin
- GetWindowRect(hToolbarWindow32,r);
- width := r.right - r.left;
- height := r.bottom - r.top;
-
- for x := 1 to width-1 do
- SendMessage(hToolbarWindow32,WM_MOUSEMOVE,0,MAKELPARAM(x,trunc(height/2)));
- end;
- end;
-
相关阅读:
第二十三章 Centos7下Docker安装kibana
第十七章 Ansibleplaybook模板部署wordpress
第二十一章 Centos7下Docker自定义配置
第十八章 AnsibleplaybookRole基础介绍
第二十二章 Centos7下Docker安装Elasticsearch
第二十一章 Centos7下Docker安装Nginx
第二十章 Centos7下Docker安装Tomcat
第十九章 AnsibleplaybookRole重构wordpress
第十六章 Ansibleplaybook模板化(Jinja2)
ABC233
-
原文地址:https://www.cnblogs.com/upshania/p/6662293.html
Copyright © 2020-2023
润新知