Вверх ↑
Ответов: 182
Рейтинг: 1
#1: 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)])
}

карма: 1

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