Исходный код Check1CD

Opt(«TrayIconHide», 1)
Opt(«SendKeyDelay», 0)
$target = @ProgramFilesDir & «\1cv81\bin\chdbfl.exe»
If $cmdline[0] <> 2 Then
MsgBox(0, «Описание параметров запуска», «Check1CD.exe ИсправлятьОшибки ИмяФайлаБД» & @CRLF & @CRLF & «ИсправлятьОшибки: 0 или 1» & @CRLF & «ИмяФайлаБД: путь к файлу 1Cv8.1CD»)
Exit
EndIf
Run($target)
WinWait(«Проверка физической целостности файла БД»)
Send($cmdline[2], 1)
Send(«{TAB}»)
If $cmdline[1] = «1» Then
Send(«{SPACE}»)
EndIf
Send(«{TAB 2}{ENTER}»)

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *