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

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

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

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

 

农历的如下：

;托盘一行显示日期和时间发布版： ;作者：sunwind [email protected] 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