Вверх ↑
Ответов: 198
Рейтинг: 2
#1: 2014-03-07 16:12:48 ЛС | профиль | цитата
А можно их как-то выдернуть? Только что бы на системах работало от ХР до 8-ки


------------ Дoбавленo в 16.12:


Собственно нашел на форуме как дернуть пояс из системы, но меня смущает надежность такого способа, будет ли работать на всех системах, кто знает?



Add(MainForm,2953706,154,126)
{
link(onCreate,11483292:doRead,[])
}
Add(DateConvertor,11209666,364,259)
{
Mode=19
link(onResult,619692:doCalc,[])
}
Add(Time,9585562,308,203)
{
Point(DateTime)
}
Add(Edit,247426,504,259)
{
Left=45
Top=20
Width=145
}
Add(Timer,475025,266,259)
{
link(onTimer,16362017:doData,[])
}
Add(DoData,16362017,315,259)
{
link(onEventData,11209666:doConvert,[])
link(Data,9585562:DateTime,[])
}
Add(Registry,11483292,238,140)
{
HKey=2
Key="SYSTEMCurrentControlSetControlTimeZoneInformation"
Value="Bias"
DataType=0
link(onRead,11754459:doSplit,[])
}
Add(StrPart,11754459,308,140)
{
Char="-"
Point(onNotFound)
link(onSplit,6401316:doWork2,[])
link(onNotFound,6401316:doWork3,[(396,160)])
}
Add(HubEx,6401316,392,140)
{
link(onEvent,9118996:doValue,[])
}
Add(Memory,9118996,434,140)
{
}
Add(MathParse,619692,427,259)
{
MathStr="%1 - (%2/60*3600)"
link(onResult,247426:doText,[])
link(X2,9118996:Value,[])
}

карма: 0

0