Вверх ↑
Ответов: 5227
Рейтинг: 588
#1: 2009-02-13 09:47:16 ЛС | профиль | цитата
Незнаю насколько точно, но примерно так code_11770.txt

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

забыл, имя ярлыка своё укажи...
------------ Дoбавленo:

Ещё такой вариант

Add(MainForm,12764865,238,140)
{
Width=484
Height=356
link(onCreate,528607:doString,[])
}
Add(VBJScript,5105322,294,203)
{
VarPoints=#4:var1|4:var2|
DataPoints=#7:PathLnk|
Script=#43:' Процедуры получения данных с нижних точек|29:Function GetVar (Data, Index)|48: Set WshShell = CreateObject("WScript.Shell")|57: Set oShellLink = WshShell.CreateShortcut(sys.PathLnk)|21: Select Case Index|19: Case "var1"|41: GetVar = (oShellLink.TargetPath)|19: Case "var2"|47: GetVar = (oShellLink.WorkingDirectory)|19: End Select |13:End Function |
UseName=0
link(PathLnk,528607:FString,[])
}
Add(Dir,3388591,287,105)
{
}
Add(FormatStr,528607,294,154)
{
DataCount=1
Mask="%1HiAsm.exe.lnk"
Point(FString)
link(Str1,3388591:DesktopDir,[])
}
Add(Memo,15470677,392,259)
{
Width=472
Height=266
ScrollBars=2
}
Add(Hub,8952775,252,259)
{
link(onEvent1,6059704:doData,[])
link(onEvent2,9884995:doData,[(284,272)(284,307)])
}
Add(DoData,6059704,294,259)
{
link(onEventData,1537308:doWork2,[])
link(Data,5105322:var1,[])
}
Add(DoData,9884995,301,301)
{
link(onEventData,1537308:doWork3,[(361,307)])
link(Data,5105322:var2,[])
}
Add(HubEx,1537308,357,252)
{
link(onEvent,15470677:doAdd,[])
}
Add(Button,7206,196,259)
{
Left=5
Top=280
link(onClick,8952775:doEvent1,[])
}


карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
файлы: 1code_11770.txt [1.4KB] [191]