如何让任务栏一行同时显示日期和时间

发布时间：2023-10-15 11:00

http://ahk.5d6d.com/thread-4262-1-1.html 相关讨论和新版发布

网友说PowerPro软件不用代码就可以实现任务栏一行显示日期和时间，非常方便。

为了证明PP可以做的，ahk也能做。特意写了下面ahk脚本。请大家测试(我的机器是xp系统)。

农历的如下：

;托盘一行显示日期和时间发布版：
;作者：sunwind 1576157@qq.com 2011年5月22日
OnExit, UnDo
;先备份注册表原有信息，方便在退出脚本时恢复原来设置
RegRead, _sLongDate, HKEY_CURRENT_USER, Control Panel/International, sLongDate
RegRead, _sTimeFormat, HKEY_CURRENT_USER, Control Panel/International, sTimeFormat
RegRead, _s1159, HKEY_CURRENT_USER, Control Panel/International,s1159
RegRead, _s2359, HKEY_CURRENT_USER, Control Panel/International,s2359

Loop {
FormatTime, TimeString,, LongDate
;~ TimeString:=Date_GetLunarDate(A_Now) ;~ 显示农历需要 System.ahk及Date.ahk函数支持。 http://ahk.5d6d.com/thread-3730-1-1.html

RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel/International, sTimeFormat, tt H:mm:ss
RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel/International, s1159, %TimeString%
RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel/International, s2359, %TimeString%
SendMessage, 0x1A,,,, ahk_id 0xFFFF  ; 0x1A is WM_SETTINGCHANGE 不重启直接应用刚才对注册表的修改
Sleep  (((24 - A_Hour)* 60-A_Min)*60- A_Sec) * 1000  ;如不退出脚本那么每日0点再一次运行
;~ Sleep, (((60 - A_Min) * 60) - A_Sec) * 1000  这个是整点处理的算法
}

;退出脚本恢复原来的设置
UnDo:
RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel/International, sLongDate, %_sLongDate%
RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel/International, sTimeFormat, %_sTimeFormat%
RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel/International, s1159, %_s1159%
RegWrite, REG_SZ, HKEY_CURRENT_USER, Control Panel/International, s2359, %_s2359%
SendMessage, 0x1A,,,, ahk_id 0xFFFF  ; 0x1A is WM_SETTINGCHANGE 不重启直接应用刚才对注册表的修改
ExitApp

如何让任务栏一行同时显示日期和时间

相关推荐