您的位置:首页 > 其它

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

2011-05-19 00:12 856 查看
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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息