HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуZIP-папка ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 182
Рейтинг: 1
#1: 2025-09-09 03:27:51 ЛС | профиль | цитата
Приветствую всех!
Подскажите пожалуйста, как на схеме реализовать выбор не отдельного файла для сжатия, а директорию?

Ну грубо говоря, 2 поля ввода: путь к папке которую надо сжать, и путь к папке которую надо "расжать"))) И кнопки сжать и распаковать...

Просто в стандартных примерах нашел только как работать с отдельными файлами.
карма: 1

0
Ответов: 975
Рейтинг: 205
#2: 2025-09-09 04:37:49 ЛС | профиль | цитата
Gitarist писал(а):
Подскажите пожалуйста, как на схеме реализовать выбор не отдельного файла для сжатия, а директорию?

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,[])
}


Редактировалось 1 раз(а), последний 2025-09-09 04:43:25
карма: 20

1
Голосовали:Gitarist
Ответов: 182
Рейтинг: 1
#3: 2025-09-09 04:56:05 ЛС | профиль | цитата
Хм, вот оно как надо... Через Powershell...
Благодарю, Gunta!

А как реализовать пароль к архиву?

Редактировалось 1 раз(а), последний 2025-09-09 05:02:28
карма: 1

0
Ответов: 975
Рейтинг: 205
#4: 2025-09-09 07:26:45 ЛС | профиль | цитата
Gitarist писал(а):
А как реализовать пароль к архиву?


Add(MainForm,14162385,119,112)
{
 Width=428
 Height=437
 link(onCreate,10721369:doString,[])
}
Add(WinExec,7014996,238,182)
{
 FileName="POWERSHELL"
 Mode=0
 Action="runas"
 Point(doConsoleExec)
 Point(doConsoleTerminate)
 Point(onConsoleError)
 Point(onConsoleTerminate)
 link(onConsoleError,1678668:doCharset,[])
 link(onConsoleTerminate,11848859:doString,[(284,209)(284,251)])
}
Add(Charset,1678668,301,196)
{
 link(onCharset,8268312:doWork2,[])
}
Add(FormatStr,11848859,301,245)
{
 Mask="Операция выполнена"
 link(onFString,8268312:doWork3,[(354,251)])
}
Add(HubEx,8268312,350,196)
{
 link(onEvent,273361:doMessage,[])
}
Add(HubEx,7983124,210,196)
{
 link(onEvent,7014996:doConsoleExec,[])
}
Add(FormatStr,10721369,175,126)
{
 @Hint=#34:Установка модуля - 7Zip4Powershell|42:https://github.com/thoemmi/7Zip4Powershell|22:Выполняется один раз. |22:Потом не используется.|0:|0:|0:|
 Mask="If(-not(Get-InstalledModule 7Zip4Powershell -ErrorAction silentlycontinue))\r\n{\r\nSet-PSRepository PSGallery -InstallationPolicy Trusted\r\nInstall-Module 7Zip4Powershell -Confirm:$False  -AllowClobber -Force\r\n}"
 link(onFString,12028760:doConsoleExec,[])
 AddHint(73,-111,215,91,@Hint)
}
Add(Message,273361,378,196)
{
}
Add(ChildGroupBox,4898866,147,245)
{
 link(onEvent1,7983124:doWork3,[(214,251)])
}
BEGIN_SDK
  Add(EditMulti,15896036,21,21)
  {
   EventCount=1
   Width=545
   Height=291
  }
  Add(GroupBox,8153585,35,105)
  {
   Top=186
   Width=412
   Height=212
   Align=5
   Caption="Expand-7Zip"
  }
  Add(FormatStr,1180237,231,238)
  {
   DataCount=3
   Mask="Expand-7Zip -ArchiveFileName '%1' -TargetPath '%2' -Password '%3'"
   link(onFString,15896036:onEvent1,[(382,244)(382,27)])
   link(Str1,831840:Text,[(237,229)(188,229)])
   link(Str2,9434246:Text,[])
   link(Str3,1759392:Text,[(251,222)(286,222)])
  }
  Add(Label,1636102,77,28)
  {
   Left=15
   Top=25
   Width=85
   Caption="Имя архива"
  }
  Add(Edit,831840,182,182)
  {
   Left=185
   Top=25
   Width=100
   Text="my_archive.zip"
  }
  Add(Label,12576424,77,77)
  {
   Left=15
   Top=50
   Width=85
   Caption="Парольна архив"
  }
  Add(Edit,1759392,280,182)
  {
   Left=185
   Top=50
   Width=100
   Text="1234567890"
  }
  Add(Label,3172446,77,126)
  {
   Left=15
   Top=75
   Width=155
   Height=17
   Caption="Папка для разархивирования"
  }
  Add(Edit,9434246,238,140)
  {
   Left=185
   Top=75
   Width=100
   Text=""
  }
  Add(Button,13822466,126,238)
  {
   Left=90
   Top=145
   Width=175
   Caption="Разархивировать в папку"
   link(onClick,1180237:doString,[])
  }
  Add(Browse,158158,182,140)
  {
   Title="Выберите путь для разархивации"
   link(onBrowse,9434246:doText,[])
  }
  Add(Button,10975126,133,140)
  {
   Left=290
   Top=75
   Width=25
   Caption=">>"
   link(onClick,158158:doBrowse,[])
  }
  Add(Button,4428675,77,182)
  {
   Left=290
   Top=25
   Width=25
   Caption=">>"
   link(onClick,15071864:doExecute,[])
  }
  Add(ODialog,15071864,133,182)
  {
   Filter="ZIP|*.zip"
   Title="Укажите имя архива"
   FileName="архив"
   link(onExecute,831840:doText,[])
  }
END_SDK
Add(ChildGroupBox,12215777,147,196)
{
 link(onEvent1,7983124:doWork2,[])
}
BEGIN_SDK
  Add(EditMulti,2350357,21,21)
  {
   EventCount=1
   Width=608
   Height=298
  }
  Add(GroupBox,8451390,35,105)
  {
   Width=412
   Height=186
   Align=2
   Caption="Compress-7Zip"
  }
  Add(FormatStr,12356033,210,238)
  {
   DataCount=4
   Mask="Compress-7Zip -ArchiveFileName '%1' -Path '%2' -OutputPath '%3' -Format Zip -CompressionLevel Normal -Password '%4'"
   link(onFString,2350357:onEvent1,[(588,244)(588,27)])
   link(Str1,6115084:Text,[(216,229)(181,229)])
   link(Str2,2446431:Text,[])
   link(Str3,5476848:Text,[])
   link(Str4,16516210:Text,[(237,222)(251,222)])
  }
  Add(Browse,3352719,175,98)
  {
   Title="Выберите папку  для архивации"
   link(onBrowse,2446431:doText,[])
  }
  Add(SDialog,4196860,483,119)
  {
   Filter="ZIP|*.zip"
   Title="Укажите имя архива"
   FileName="архив"
  }
  Add(Label,2721990,77,42)
  {
   Left=15
   Top=25
   Width=85
   Caption="Имя архива"
  }
  Add(Edit,6115084,175,189)
  {
   Left=185
   Top=25
   Width=100
   Text="my_archive.zip"
  }
  Add(Label,3244956,77,91)
  {
   Left=15
   Top=50
   Width=85
   Caption="Парольна архив"
  }
  Add(Edit,16516210,245,182)
  {
   Left=185
   Top=50
   Width=100
   Text="1234567890"
  }
  Add(Label,3537587,77,140)
  {
   Left=15
   Top=75
   Width=85
   Caption="Папка для архивирования"
  }
  Add(Edit,2446431,217,98)
  {
   Left=185
   Top=75
   Width=100
   Text=""
  }
  Add(Label,5331116,77,182)
  {
   Left=15
   Top=100
   Width=85
   Caption="Папка для сохранения архива"
  }
  Add(Edit,5476848,224,140)
  {
   Left=185
   Top=100
   Width=100
   Text=""
  }
  Add(Button,11432728,112,238)
  {
   Left=90
   Top=145
   Width=175
   Caption="Архивировать папку"
   link(onClick,12356033:doString,[])
  }
  Add(Button,9689642,126,98)
  {
   Left=290
   Top=75
   Width=25
   Caption=">>"
   link(onClick,3352719:doBrowse,[])
  }
  Add(Browse,7750646,175,140)
  {
   Title="Выберите папку для сохранения архива"
   link(onBrowse,5476848:doText,[])
  }
  Add(Button,16581130,126,140)
  {
   Left=290
   Top=100
   Width=25
   Caption=">>"
   link(onClick,7750646:doBrowse,[])
  }
END_SDK
Add(WinExec,12028760,231,112)
{
 FileName="POWERSHELL"
 Mode=0
 Action="runas"
 Point(doConsoleExec)
 Point(doConsoleTerminate)
 Point(onConsoleError)
 Point(onConsoleTerminate)
}
карма: 20

1
Голосовали:Gitarist
Ответов: 182
Рейтинг: 1
#5: 2025-09-15 22:39:42 ЛС | профиль | цитата
Что то последняя схема не хочет нормально работать

карма: 1

0
Ответов: 975
Рейтинг: 205
#6: 2025-09-15 23:27:14 ЛС | профиль | цитата
Gitarist писал(а):
Что то последняя схема не хочет нормально работать

Почему-то не установился модуль 7Zip4Powershell
Сначала запусти эту схему и обязательно дождись пока окно консоли само закроется (минут 5) 

Add(MainForm,14162385,126,126)
{
 Width=428
 Height=437
 link(onCreate,12028760:doShellExec,[])
}
Add(WinExec,12028760,189,133)
{
 FileName="powershell"
 Param="-c Install-PackageProvider NuGet -Force -Confirm:$False;Set-PSRepository PSGallery -InstallationPolicy Trusted;Install-Module 7Zip4Powershell -Confirm:$False  -AllowClobber -Force\r\n"
 Action="runas"
 Point(doConsoleExec)
 Point(doConsoleTerminate)
 Point(onConsoleTerminate)
}


А затем 


Add(MainForm,14162385,147,224)
{
 Width=428
 Height=437
}
Add(WinExec,7014996,266,294)
{
 FileName="POWERSHELL"
 Mode=0
 Action="runas"
 Point(doConsoleExec)
 Point(doConsoleTerminate)
 Point(onConsoleError)
 Point(onConsoleTerminate)
 link(onConsoleError,1678668:doCharset,[])
 link(onConsoleTerminate,11848859:doString,[(312,321)(312,363)])
}
Add(Charset,1678668,329,308)
{
 link(onCharset,8268312:doWork2,[])
}
Add(FormatStr,11848859,329,357)
{
 Mask="Операция выполнена"
 link(onFString,8268312:doWork3,[(382,363)])
}
Add(HubEx,8268312,378,308)
{
 link(onEvent,273361:doMessage,[])
}
Add(HubEx,7983124,238,308)
{
 link(onEvent,7014996:doConsoleExec,[])
}
Add(Message,273361,406,308)
{
}
Add(ChildGroupBox,4898866,175,357)
{
 link(onEvent1,7983124:doWork3,[(242,363)])
}
BEGIN_SDK
  Add(EditMulti,15896036,21,21)
  {
   EventCount=1
   Width=545
   Height=291
  }
  Add(GroupBox,8153585,35,105)
  {
   Top=186
   Width=412
   Height=212
   Align=5
   Caption="Expand-7Zip"
  }
  Add(FormatStr,1180237,231,238)
  {
   DataCount=3
   Mask="Expand-7Zip -ArchiveFileName '%1' -TargetPath '%2' -Password '%3'"
   link(onFString,15896036:onEvent1,[(382,244)(382,27)])
   link(Str1,831840:Text,[(237,229)(188,229)])
   link(Str2,9434246:Text,[])
   link(Str3,1759392:Text,[(251,222)(286,222)])
  }
  Add(Label,1636102,77,28)
  {
   Left=15
   Top=25
   Width=85
   Caption="Имя архива"
  }
  Add(Edit,831840,182,182)
  {
   Left=185
   Top=25
   Width=100
   Text="my_archive.zip"
  }
  Add(Label,12576424,77,77)
  {
   Left=15
   Top=50
   Width=85
   Caption="Парольна архив"
  }
  Add(Edit,1759392,280,182)
  {
   Left=185
   Top=50
   Width=100
   Text="1234567890"
  }
  Add(Label,3172446,77,126)
  {
   Left=15
   Top=75
   Width=155
   Height=17
   Caption="Папка для разархивирования"
  }
  Add(Edit,9434246,238,140)
  {
   Left=185
   Top=75
   Width=100
   Text=""
  }
  Add(Button,13822466,126,238)
  {
   Left=90
   Top=145
   Width=175
   Caption="Разархивировать в папку"
   link(onClick,1180237:doString,[])
  }
  Add(Browse,158158,182,140)
  {
   Title="Выберите путь для разархивации"
   link(onBrowse,9434246:doText,[])
  }
  Add(Button,10975126,133,140)
  {
   Left=290
   Top=75
   Width=25
   Caption=">>"
   link(onClick,158158:doBrowse,[])
  }
  Add(Button,4428675,77,182)
  {
   Left=290
   Top=25
   Width=25
   Caption=">>"
   link(onClick,15071864:doExecute,[])
  }
  Add(ODialog,15071864,133,182)
  {
   Filter="ZIP|*.zip"
   Title="Укажите имя архива"
   FileName="архив"
   link(onExecute,831840:doText,[])
  }
END_SDK
Add(ChildGroupBox,12215777,175,308)
{
 link(onEvent1,7983124:doWork2,[])
}
BEGIN_SDK
  Add(EditMulti,2350357,21,21)
  {
   EventCount=1
   Width=608
   Height=298
  }
  Add(GroupBox,8451390,35,105)
  {
   Width=412
   Height=186
   Align=2
   Caption="Compress-7Zip"
  }
  Add(FormatStr,12356033,210,238)
  {
   DataCount=4
   Mask="Compress-7Zip -ArchiveFileName '%1' -Path '%2' -OutputPath '%3' -Format Zip -CompressionLevel Normal -Password '%4'"
   link(onFString,2350357:onEvent1,[(588,244)(588,27)])
   link(Str1,6115084:Text,[(216,229)(181,229)])
   link(Str2,2446431:Text,[])
   link(Str3,5476848:Text,[])
   link(Str4,16516210:Text,[(237,222)(251,222)])
  }
  Add(Browse,3352719,175,98)
  {
   Title="Выберите папку  для архивации"
   link(onBrowse,2446431:doText,[])
  }
  Add(SDialog,4196860,483,119)
  {
   Filter="ZIP|*.zip"
   Title="Укажите имя архива"
   FileName="архив"
  }
  Add(Label,2721990,77,42)
  {
   Left=15
   Top=25
   Width=85
   Caption="Имя архива"
  }
  Add(Edit,6115084,175,189)
  {
   Left=185
   Top=25
   Width=100
   Text="my_archive.zip"
  }
  Add(Label,3244956,77,91)
  {
   Left=15
   Top=50
   Width=85
   Caption="Парольна архив"
  }
  Add(Edit,16516210,245,182)
  {
   Left=185
   Top=50
   Width=100
   Text="1234567890"
  }
  Add(Label,3537587,77,140)
  {
   Left=15
   Top=75
   Width=85
   Caption="Папка для архивирования"
  }
  Add(Edit,2446431,217,98)
  {
   Left=185
   Top=75
   Width=100
   Text=""
  }
  Add(Label,5331116,77,182)
  {
   Left=15
   Top=100
   Width=85
   Caption="Папка для сохранения архива"
  }
  Add(Edit,5476848,224,140)
  {
   Left=185
   Top=100
   Width=100
   Text=""
  }
  Add(Button,11432728,112,238)
  {
   Left=90
   Top=145
   Width=175
   Caption="Архивировать папку"
   link(onClick,12356033:doString,[])
  }
  Add(Button,9689642,126,98)
  {
   Left=290
   Top=75
   Width=25
   Caption=">>"
   link(onClick,3352719:doBrowse,[])
  }
  Add(Browse,7750646,175,140)
  {
   Title="Выберите папку для сохранения архива"
   link(onBrowse,5476848:doText,[])
  }
  Add(Button,16581130,126,140)
  {
   Left=290
   Top=100
   Width=25
   Caption=">>"
   link(onClick,7750646:doBrowse,[])
  }
END_SDK
карма: 20

0
Ответов: 182
Рейтинг: 1
#7: 2025-09-18 02:19:02 ЛС | профиль | цитата
Нет, все то же самое. Может это из за того что у меня вообще нет 7зип на компе? Может его сперва скачать надо и установить?)))

-----
скачал. установил.
нет. не в этом дело...

--- Добавлено в 2025-09-18 02:37:37



Install-PackageProvider : Имя "Install-PackageProvider" не распознано как имя командлета, функции, файла сценария или
ыполняемой программы. Проверьте правильность написания имени, а также наличие и правильность пути, после чего повтори
попытку.
строка:1 знак:1
+ Install-PackageProvider NuGet -Force -Confirm:$False;Set-PSRepository PSGallery ...
+ ~~~~~~~~~~~~~~~~~~~~~~~
+ CategoryInfo : ObjectNotFound: (Install-PackageProvider:String) [], CommandNotFoundException
+ FullyQualifiedErrorId : CommandNotFoundException

Set-PSRepository : Имя "Set-PSRepository" не распознано как имя командлета, функции, файла сценария или выполняемой п
граммы. Проверьте правильность написания имени, а также наличие и правильность пути, после чего повторите попытку.
строка:1 знак:54
+ Install-PackageProvider NuGet -Force -Confirm:$False;Set-PSRepository PSGallery ...
+ ~~~~~~~~~~~~~~~~
+ CategoryInfo : ObjectNotFound: (Set-PSRepository:String) [], CommandNotFoundException
+ FullyQualifiedErrorId : CommandNotFoundException

Install-Module : Имя "Install-Module" не распознано как имя командлета, функции, файла сценария или выполняемой прогр
мы. Проверьте правильность написания имени, а также наличие и правильность пути, после чего повторите попытку.
строка:1 знак:109
+ ... Policy Trusted;Install-Module 7Zip4Powershell -Confirm:$False -AllowClobber -For ...
+ ~~~~~~~~~~~~~~
+ CategoryInfo : ObjectNotFound: (Install-Module:String) [], CommandNotFoundException
+ FullyQualifiedErrorId : CommandNotFoundException

Редактировалось 3 раз(а), последний 2025-09-18 03:01:04
карма: 1

0
Ответов: 975
Рейтинг: 205
#8: 2025-09-18 06:40:37 ЛС | профиль | цитата
Какая версия windows?
Попробуй запусти это 

Add(MainForm,14162385,168,126)
{
 Width=428
 Height=437
 link(onCreate,12028760:doShellExec,[])
}
Add(WinExec,12028760,231,133)
{
 FileName="powershell"
 Param="-c [Net.ServicePointManager]::SecurityProtocol = [Net.SecurityProtocolType]::Tls12;Install-PackageProvider NuGet -Force -Confirm:$False;Set-PSRepository PSGallery -InstallationPolicy Trusted;Install-Module 7Zip4Powershell -Confirm:$False  -AllowClobber -Force\r\n"
 Action="runas"
 Point(doConsoleExec)
 Point(doConsoleTerminate)
 Point(onConsoleTerminate)
}
карма: 20

0
Ответов: 182
Рейтинг: 1
#9: 2025-09-19 03:43:34 ЛС | профиль | цитата
Gunta писал(а):
Какая версия windows?

Пробовал на 8,1 и 10
Gunta писал(а):
Попробуй запусти это

опять краснота в пауершелл
карма: 1

0
Ответов: 182
Рейтинг: 1
#10: 2025-09-24 06:02:19 ЛС | профиль | цитата
В общем, решил эту проблему через батник. Но хотелось бы как то через свою программу сделанную в хайасме. Подскажите, как строчки из батника и куда послать, пожалуйста.
Add(MainForm,1006912,217,91)
{
 Width=637
 Height=654
}
Add(Memo,10575623,539,133)
{
 Left=125
 Top=170
 Width=415
 Height=230
 Color=-16777193
 Font=[MS Sans Serif,8,1,65280,1]
 ScrollBars=2
 ReadOnly=0
}
Add(WinExec,14321779,462,119)
{
 FileName="cmd.exe"
 Point(doConsoleExec)
 Point(doConsoleInput)
 Point(onConsoleResult)
 Point(onConsoleError)
 link(Params,12737990:FString,[(475,107)(433,107)(433,177)(391,177)])
 link(onConsoleResult,10938803:doEvent1,[])
 link(onConsoleError,10938803:doEvent2,[])
}
Add(FormatStr,12737990,385,133)
{
 Mask="@echo off\r\n\r\n:: Переменные\r\nset SOURCE_DIR=C:\123\r\nset BACKUP_DIR=D:\Backup\r\nset ARCHIVE_NAME=MyFolder_%DATE%.rar\r\nset PASSWORD=1234\r\n\r\n:: Проверяем наличие каталога резервных копий\r\nif not exist "%BACKUP_DIR%" mkdir %BACKUP_DIR%\r\n\r\n:: Создаем зашифрованный архив\r\n"C:\Program Files\WinRAR\rar.exe" a -r -m5 -hp"%PASSWORD%" "%BACKUP_DIR%\%ARCHIVE_NAME%" "%SOURCE_DIR%"\r\n\r\n:: Сообщение о завершении операции\r\necho Архив успешно создан!\r\npause"
 Point(FString)
 link(onFString,14321779:doConsoleExec,[])
}
Add(Button,329755,315,133)
{
 Left=45
 Top=100
 Width=70
 Height=25
 Caption="1"
 link(onClick,12737990:doString,[])
}
Add(Hub,10938803,511,133)
{
 InCount=2
 OutCount=1
 link(onEvent1,10575623:doAdd,[])
}



UPD Вроде как то решил, работает, только код из батника целиком зачем то программа выдает в Memo, а не результаты.

Add(MainForm,1006912,175,119)
{
 Width=637
 Height=654
 link(onCreate,14321779:doConsoleExec,[])
}
Add(Memo,10575623,511,133)
{
 Left=125
 Top=170
 Width=415
 Height=230
 Color=-16777193
 Font=[MS Sans Serif,8,1,65280,1]
 ScrollBars=2
 ReadOnly=0
}
Add(WinExec,14321779,378,119)
{
 FileName="cmd.exe"
 Mode=0
 Point(doConsoleExec)
 Point(doConsoleInput)
 Point(onConsoleResult)
 Point(onConsoleError)
 Point(onConsoleTerminate)
 link(onConsoleResult,11302287:doCharset,[])
}
Add(FormatStr,12737990,224,182)
{
 Mask="@echo off\r\n\r\n:: Переменные\r\nset SOURCE_DIR=C:\\123\r\nset BACKUP_DIR=D:\\Backup\r\nset ARCHIVE_NAME=MyFolder_%DATE%.rar\r\nset PASSWORD=1234\r\n\r\n:: Проверяем наличие каталога резервных копий\r\nif not exist "%BACKUP_DIR%" mkdir %BACKUP_DIR%\r\n\r\n:: Создаем зашифрованный архив\r\n"C:\\Program Files\\WinRAR\\rar.exe" a -r -m5 -hp"%PASSWORD%" "%BACKUP_DIR%\\%ARCHIVE_NAME%" "%SOURCE_DIR%"\r\n\r\n:: Сообщение о завершении операции\r\necho Архив успешно создан!\r\npause"
 Point(FString)
 link(onFString,5744881:doCharset,[])
}
Add(Button,329755,175,182)
{
 Left=45
 Top=100
 Width=70
 Height=25
 Caption="1"
 link(onClick,12737990:doString,[])
}
Add(Charset,11302287,448,133)
{
 link(onCharset,10575623:doAdd,[])
}
Add(Charset,5744881,273,182)
{
 Type=1
 link(onCharset,14321779:doConsoleInput,[(341,188)(341,146)])
}


Редактировалось 3 раз(а), последний 2025-09-24 14:52:13
карма: 1

0
Ответов: 975
Рейтинг: 205
#11: 2025-09-24 17:02:05 ЛС | профиль | цитата
Вот ещё несколько вариантов 

Add(MainForm,13473972,161,77)
{
 Width=396
 Height=356
 Point(Handle)
}
Add(StreamConvertor,5465620,322,140)
{
 Mode=7
 Point(Data)
 link(onResult,3030542:doCreate,[])
}
Add(WinExec,12628925,427,126)
{
 Mode=0
 Point(onConsoleResult)
 Point(doConsoleExec)
 Point(onConsoleError)
 link(onConsoleResult,10423991:doWork1,[(480,146)])
 link(onConsoleError,10423991:doWork2,[])
}
Add(Memo,7517007,539,147)
{
 Top=40
 Width=380
 Height=277
 Align=5
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 ScrollBars=3
}
Add(TempFileStream,3030542,371,140)
{
 Extention=".bat"
 link(onCreate,12628925:doConsoleExec,[])
}
Add(FormatStr,12737990,217,140)
{
 Mask="@echo off\r\n\r\n:: Переменные\r\nset SOURCE_DIR=C:\\123\r\nset BACKUP_DIR=D:\\Backup\r\nset ARCHIVE_NAME=MyFolder_%DATE%.rar\r\nset PASSWORD=1234\r\n\r\n:: Проверяем наличие каталога резервных копий\r\nif not exist "%BACKUP_DIR%" mkdir %BACKUP_DIR%\r\n\r\n:: Создаем зашифрованный архив\r\n"C:\\Program Files\\WinRAR\\rar.exe" a -r -m5 -hp"%PASSWORD%" "%BACKUP_DIR%\\%ARCHIVE_NAME%" "%SOURCE_DIR%"\r\n\r\n:: Сообщение о завершении операции\r\necho Архив успешно создан!"
 Point(FString)
 link(onFString,904231:doCharset,[])
}
Add(Label,7869497,210,77)
{
 Width=380
 Height=40
 Align=2
 Caption=""
 AutosizeAtStart=1
}
Add(Button,329755,168,140)
{
 Left=20
 Top=10
 Width=70
 Height=25
 Caption="1"
 link(onClick,12737990:doString,[])
}
Add(Charset,3953454,497,147)
{
 link(onCharset,7517007:doAdd,[])
}
Add(HubEx,10423991,476,147)
{
 link(onEvent,3953454:doCharset,[])
}
Add(Charset,904231,273,140)
{
 Type=1
 link(onCharset,5465620:doConvert,[])
}





Add(MainForm,1006912,210,98)
{
 Width=637
 Height=654
}
Add(Memo,10575623,560,168)
{
 Left=125
 Top=170
 Width=415
 Height=230
 Color=-16777193
 Font=[MS Sans Serif,8,1,65280,1]
 ScrollBars=2
 ReadOnly=0
}
Add(WinExec,14321779,427,154)
{
 FileName=""C:\\Program Files\\WinRAR\\rar.exe""
 Mode=0
 Point(doConsoleExec)
 Point(doConsoleInput)
 Point(onConsoleResult)
 Point(onConsoleError)
 Point(onConsoleTerminate)
 link(onConsoleResult,6708017:doWork2,[])
 link(onConsoleError,6708017:doWork3,[(480,181)])
}
Add(Button,329755,245,168)
{
 Left=45
 Top=100
 Width=70
 Height=25
 Caption="1"
 link(onClick,13554666:doString,[])
}
Add(Charset,11302287,497,168)
{
 link(onCharset,10575623:doAdd,[])
}
Add(FormatStr,12737990,371,168)
{
 DataCount=3
 Mask="a -r -m5 -hp"%1" "%2" "%3""
 Point(FString)
 link(onFString,14321779:doConsoleExec,[])
 link(Str1,12194363:Text,[])
 link(Str3,15447791:Text,[])
}
Add(VisualStrings,12194363,371,77)
{
 Lines=#4:1234|
 Width=53
}
Add(VisualStrings,15447791,385,105)
{
 Lines=#8:c:\\тест|
 Width=95
}
Add(HubEx,6708017,476,168)
{
 link(onEvent,11302287:doCharset,[])
}
Add(Time,16277997,294,112)
{
 Format="D-M-Y"
}
Add(FormatStr,13554666,294,168)
{
 DataCount=1
 Mask="D:\\Backup\\MyFolder_%1.rar"
 link(onFString,12737990:doString,[])
 link(Str1,16277997:FormatTime,[])
}
карма: 20

1
Голосовали:Gitarist
Ответов: 182
Рейтинг: 1
#12: 2025-09-24 17:44:27 ЛС | профиль | цитата
Gunta писал(а):
Вот ещё несколько вариантов


Благодарю! Возьму на вооружение.
карма: 1

0
12
ФорумыПомощь по пакетуZIP-папка ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика