Вверх ↑
Ответов: 691
Рейтинг: 142
#1: 2022-12-09 11:07:38 ЛС | профиль | цитата
Для тех, у кого windows 10

Add(MainForm,2953706,77,98)
{
}
Add(FormatStr,12356033,476,119)
{
Mask="Compress-Archive -DestinationPath '%1' -Path '%2' -CompressionLevel Optimal\r\n"
link(onFString,7983124:doWork2,[])
link(Str2,10317909:Value,[(489,110)(468,110)(468,159)(363,159)])
}
Add(WinExec,7014996,567,105)
{
FileName="POWERSHELL"
Mode=0
Action="runas"
Point(doConsoleExec)
Point(doConsoleTerminate)
Point(onConsoleError)
Point(onConsoleTerminate)
link(onConsoleError,1678668:doCharset,[])
link(onConsoleTerminate,11848859:doString,[(613,132)(613,174)])
}
Add(Browse,3352719,294,119)
{
Title="Выберите папку для архивации"
link(onBrowse,10317909:doValue,[])
}
Add(SDialog,4196860,413,119)
{
Filter="ZIP|*.zip"
Title="Укажите имя архива"
FileName="архив"
link(onExecute,12356033:doString,[])
}
Add(Menu,13741748,161,112)
{
Menu=#3:Zip|5:UnZip|
Point(onSelectNum)
link(onSelectNum,2305009:doEvent,[])
}
Add(IndexToChanel,2305009,217,119)
{
link(onEvent1,3352719:doBrowse,[])
link(onEvent2,12804908:doBrowse,[(284,132)(284,195)])
}
Add(Memory,10317909,357,119)
{
link(onData,4196860:doExecute,[])
}
Add(Memo,7450960,700,119)
{
Left=550
Top=160
Align=5
ScrollBars=3
}
Add(Charset,1678668,630,119)
{
link(onCharset,8268312:doWork2,[])
}
Add(FormatStr,11848859,630,168)
{
Mask="Операция выполнена"
link(onFString,8268312:doWork3,[(683,174)])
}
Add(HubEx,8268312,679,119)
{
link(onEvent,7450960:doAdd,[])
}
Add(FormatStr,1180237,476,189)
{
Mask="Expand-Archive -Path '%1' -DestinationPath '%2' -Force"
link(onFString,7983124:doWork3,[(543,195)])
link(Str2,11291600:Value,[(489,180)(468,180)(468,229)(363,229)])
}
Add(Browse,12804908,294,189)
{
Title="Выберите папку для разорхивации"
link(onBrowse,11291600:doValue,[])
}
Add(Memory,11291600,357,189)
{
link(onData,15071864:doExecute,[])
}
Add(HubEx,7983124,539,119)
{
link(onEvent,7014996:doConsoleExec,[])
}
Add(ODialog,15071864,413,189)
{
Filter="ZIP|*.zip"
Title="Укажите имя архива"
FileName="архив"
link(onExecute,1180237:doString,[])
}

карма: 15

0