Вверх ↑
Ответов: 817
Рейтинг: 52
#1: 2012-09-13 12:40:07 ЛС | профиль | цитата
nickware,
code_29055.txt
У себя не запускал, т.к. у меня нет точек восстановления.
Но принцип тебе должен быть понятен

------------ Дoбавленo в 12.32:
можно упростить
Add(Button,10101545,182,287)
{
Left=10
Top=245
Data=String(wmic shadowcopy delete
)
link(onClick,625309:doEvent1,[])
}
Add(MainForm,2953706,21,105)
{
}
Add(WinExec,1755110,266,273)
{
FileName="cmd"
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
link(onConsoleResult,7705477:doCharset,[(310,286)(310,279)])
}
Add(Memo,8557210,385,273)
{
Left=5
Top=10
Width=375
Height=240
}
Add(Charset,7705477,322,273)
{
link(onCharset,8557210:doAdd,[])
}
Add(Hub,625309,231,287)
{
link(onEvent1,1755110:doConsoleExec,[])
link(onEvent2,1755110:doConsoleInput,[])
}

------------ Дoбавленo в 12.39:
Прошу прощения, код 29055 не верный
см. упрощенный вариант
карма: 1

0
файлы: 1code_29055.txt [634B] [176]