Konst писал(а):
А что мешает сохранить имя текущего пользователя и проверять его по таймеру и если это не он закрыть форму?Stalevar писал(а):
Поспешил, не работает Эта схема и не может работать. Легко проверить если вывести результат в Memo.
Add(MainForm,5289906,385,210)
{
link(onCreate,2456753:doData,[])
}
Add(ComputerInfo,14474473,434,84)
{
}
Add(Timer,14051066,385,161)
{
Interval=10000
link(onTimer,4734356:doData,[])
}
Add(Case,12115249,511,217)
{
Point(doDataOnTrue)
}
Add(DoData,2456753,434,224)
{
link(onEventData,12115249:doDataOnTrue,[])
link(Data,6800117:Var2,[])
}
Add(DoData,4734356,448,161)
{
link(onEventData,12756611:doAdd,[])
link(Data,6800117:Var3,[(454,138)])
}
Add(GetDataEx,6800117,434,133)
{
link(Data,14474473:UserName,[])
}
Add(Memo,12756611,511,161)
{
Left=550
Top=160
Align=5
ScrollBars=3
}
Поиск
Друзья
Администрация