Вверх ↑
Ответов: 165
Рейтинг: 6
#1: 2017-03-26 10:49:14 ЛС | профиль | цитата
sashaoli, эм нет. В вашем компоненте происходит запуск этой же программы. В компоненте WinExec есть переменная "Params=Параметры запуска приложения". Вот именно это и хотелось бы видеть в вашем компоненте.

Это позволит создавать вот такие программы (передать параметр запускаемой программе сейчас, к сожалению, невозможно):

Add(MainForm,2953706,63,154)
{
Color=16777215
Caption=""
Position=1
link(onCreate,8914168:doRead,[])
}
Add(AdminAppEx,3155682,224,266)
{
AppletClose=1
link(onYesAdmin,3429786:doWork3,[(352,272)])
link(onNoAdmin,3155682:doElevatePrivilege,[(269,279)(269,307)(212,307)(212,279)])
}
Add(Message,16328866,154,259)
{
Message="Добавить в автозагрузку для всех пользователей? Требуются права администратора."
Caption="Autoload"
Type=2
Icon=2
Point(onYES)
link(onYES,3155682:doCheckPrivilege,[])
}
Add(Application,1934255,147,98)
{
}
Add(ArrayRW,8914168,154,168)
{
Index=Integer(0)
link(onRead,11773814:doCompare,[])
link(Array,1934255:Params,[])
}
Add(Button,15318742,91,259)
{
Left=10
Top=10
Caption="Autoload"
link(onClick,16328866:doMessage,[])
}
Add(If_else,11773814,224,168)
{
Op2=String(autoload)
link(onTrue,14819387:doCheckPrivilege,[])
}
Add(AdminAppEx,14819387,294,168)
{
link(onYesAdmin,3429786:doWork1,[(352,174)])
}
Add(Registry,10727498,399,196)
{
HKey=2
Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Value="MyApp"
link(Data,1934255:AppFileName,[(405,152)(153,152)])
}
Add(HubEx,3429786,348,203)
{
link(onEvent,10727498:doWrite,[])
}
Add(PointHint,15505803,-14,224)
{
Info=#74:Ниже нехватает точки, куда подать параметры, как в WinExec (вторая сверху)|
Width=491
}
Add(WinExec,4885517,217,329)
{
link(Params,15505803:Var,[(230,293)(231,293)])
}

карма: 4

0