С видео, мне кажется, могут возникнуть, решаемые, но очень неприятные проблемы (тем более, что небыло показано (схематично), как это всё должно примерно выглядеть)
------------ Дoбавленo:
Распаковка .rar через rar.exe:
#sha
Add(MainForm,996509,21,105)
{
Left=20
Top=105
Height=227
}
Add(Edit,13130125,490,238)
{
Left=5
Top=105
Width=380
TabOrder=2
Text="rk.rar"
}
Add(Label,11883678,490,189)
{
Left=5
Top=90
Width=37
Caption="Архив:"
}
Add(Label,4069353,567,189)
{
Left=5
Top=130
Width=31
Height=17
Caption="Куда:"
}
Add(Edit,8061987,567,238)
{
Left=5
Top=145
Width=380
TabOrder=3
Text="ssd"
}
Add(Button,15875098,252,371)
{
Left=160
Top=170
Width=80
Caption="Распаковать"
link(onClick,349460:doString,[])
}
Add(Edit,11210374,420,238)
{
Left=5
Top=65
Width=380
TabOrder=1
Text="123"
}
Add(Label,724579,420,189)
{
Left=5
Top=45
Width=45
Height=17
Caption="Пароль:"
}
Add(Label,15420745,343,189)
{
Left=5
Top=5
Width=60
Height=17
Caption="Архиватор:"
}
Add(Edit,11933101,343,238)
{
Left=5
Top=20
Width=380
Text="rar.exe"
}
Add(FormatStr,349460,343,371)
{
DataCount=4
Mask="%1 e -o+ -p%2 %3 %4"
link(onFString,3417:doConsoleExec,[])
link(Str1,11933101:Text,[])
link(Str2,11210374:Text,[(356,291)(426,291)])
link(Str3,13130125:Text,[(363,304)(496,304)])
link(Str4,8061987:Text,[(370,321)(573,321)])
}
Add(WinExec,3417,420,357)
{
Point(doConsoleExec)
}