Add(MainForm,2953706,154,91)
{
Width=193
Height=133
WinStyle=2
Caption="Свой текст около часов"
BorderStyle=4
}
Add(Registry,254920,420,126)
{
HKey=1
Key="Control Panel\International"
Value="sShortTime"
}
Add(FormatStr,8797018,364,133)
{
DataCount=1
Mask=""
Point(FString)
Point(doMask)
link(onFString,254920:doWrite,[])
link(Str1,9802079:Text,[])
}
Add(Button,3449498,154,140)
{
Top=30
Width=177
Height=64
Align=5
Caption="Добавить текст"
Point(doCaption)
Point(doEnabled)
link(onClick,8124074:doSwitch,[])
}
Add(Switch,8124074,238,140)
{
DataOn=String(H:mm '%1')
DataOff=String(H:mm)
Point(onOff)
Point(DataOn)
Point(doOn)
Point(onOn)
link(onSwitch,9253237:doEvent1,[])
link(onOff,7783774:doReset,[(305,153)(305,181)])
link(onOn,7783774:doOn,[(298,160)(298,188)])
}
Add(Switch,7783774,315,168)
{
DataOn=String(Удалить текст)
DataOff=String(Добавить текст)
Point(onOn)
Point(onOff)
Point(DataOn)
Point(doOn)
link(onSwitch,3449498:doCaption,[(354,174)(354,209)(144,209)(144,146)])
}
Add(Edit,9802079,364,84)
{
Width=177
Height=30
Align=2
Font=[MS Sans Serif,12,0,0,1]
Text="Hiasm"
Alignment=2
MaxLenField=10
ClearAfterEnter=1
Point(doColor)
link(onEnter,10868377:In,[])
}
Add(LineBreak,5907899,196,154)
{
link(Out,8124074:doOn,[])
Primary=[10868377,217,-63]
}
Add(Hub,9253237,329,140)
{
link(onEvent1,8797018:doMask,[])
link(onEvent2,8797018:doString,[(354,153)(354,139)])
}
После нажатия кнопки нужно подождать, когда часы обновятся (менее одной минуты).
Для нетерпеливых – перезапустите Explorer.
Add(MainForm,2953706,49,112)
{
link(onCreate,2173990:doExec,[])
}
Add(WinExec,2173990,98,126)
{
FileName="taskkill.exe"
Param="/f /im explorer.exe"
link(onExec,5787755:doDeferredEvent,[])
}
Add(WinExec,12283281,196,126)
{
FileName="C:\windows\explorer.exe"
link(onExec,2953706:doClose,[(235,132)(235,104)(39,104)(39,139)])
}
Add(DeferredEvent,5787755,147,126)
{
Delay=500
link(onDeferredEvent,12283281:doExec,[])
}