[РЕШЕНО] Как выполнить команды bat-файла

[ComAlex]

Подскажите, господа программисты, как выполнить команды из bat-файла:

" ...
for /f "delims=" %%i in ('dir "%userprofile%\AppData\Roaming\1C\1Cv82\" /a:d /b') do (IF "%%i" NEQ "ExtCompT" (IF "%%i" NEQ "tmplts" (rmdir /s /q  "%userprofile%\AppData\Roaming\1C\1Cv82\%%i")))
for /f "delims=" %%i in ('dir "%userprofile%\AppData\Local\1C\1Cv82\" /a:d /b') do rmdir /s /q "%userprofile%\AppData\Local\1C\1Cv82\%%i"
for /f "delims=" %%i in ('dir "%userprofile%\AppData\Roaming\1C\1Cv8\" /a:d /b') do (IF "%%i" NEQ "ExtCompT" (IF "%%i" NEQ "tmplts" (rmdir /s /q  "%userprofile%\AppData\Roaming\1C\1Cv8\%%i")))
for /f "delims=" %%i in ('dir "%userprofile%\AppData\Local\1C\1Cv8\" /a:d /b') do rmdir /s /q "%userprofile%\AppData\Local\1C\1Cv8\%%i"
..."

Я хочу не запускать сам bat-файл, а выполнить ТОЛЬКО его команды, например, так:

var
  Wsh:    Variant;
Begin
  Wsh := CreateOleObject('WScript.Shell');
  Body := 'for /f "delims=" %%i in ('dir "%userprofile%\AppData\Roaming\1C\1Cv82\" /a:d /b') do (IF "%%i" NEQ "ExtCompT" (IF "%%i" NEQ "tmplts" (rmdir /s /q  "%userprofile%\AppData\Roaming\1C\1Cv82\%%i")))';
 // Body - первая строка выше приведенного bat-файла
  Wsh.Run(Body, 0, True);
...

НО так не работает !

Решение:

Сообщение от ComAlex

Разобрался: %%i ->%i. Всем спасибо - тема закрыта

_____
Код программы нужно выделять (форматировать) тегами [CODE][/CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

я Вам не помогу (ибо Вы странного хотите - по сути написать свой командный интрепретатор).

но у меня вопрос есть.

Сообщение от ComAlex

Я хочу не запускать сам bat-файл

Чем это вызвано?

[ComAlex]

Я не хочу хранить батник, к которому моя программа будет обращаться потому что:
1. bat-файл пользователи могут удалить нечаянно или чаянно.
2. bat-файл содержит статическую информацию (которая не меняется) - зачем обращаться не нему несколько раз

[ComAlex]

Выход есть: надо всего лишь переписать код bat-файла как команды CMD, но ковыряться неохота, так как функционал bat-файла уже рабочий

[Serge_Bliznykov]

Сообщение от ComAlex

Я не хочу хранить батник, к которому моя программа будет обращаться потому что:
1. bat-файл пользователи могут удалить нечаянно или чаянно.

они точно так же и вашу программу могут удалить нечаянно или чаянно.

Хотите скрыть батник от чужих глаз?
Так никто не мешает вам батник преобразовать в EXE (есть такие инструменты, вроде бы),
либо "зашить" батник в ресурсы своей программы и при необходимости извлекать во временный файл и запускать.

Сообщение от ComAlex

2. bat-файл содержит статическую информацию (которая не меняется) - зачем обращаться не нему несколько раз

не понял. кто что содержит?

Сообщение от ComAlex

Выход есть: надо всего лишь переписать код bat-файла как команды CMD, но ковыряться неохота, так как функционал bat-файла уже рабочий

Вы не поверите, но расписать эти команды в командах Delphi будет намного проще, чем распарсить строчку из батника.
Ну, если, конечно, "ковыряться неохота", то ничего не надо делать, оставляйте всё так, как есть.

[jillitil]

  
Uses ..., ShellApi;
...
ShellExecute(Application.Handle, Nil, 'Cmd.exe','/c for /f "delims=" %%i in ("dir "%userprofile%\AppData\Local\1C\1Cv 82\" /a /b") do rmdir /s /q "%userprofile%\AppData\Local\1C\1Cv 82\%%i"', Nil, SW_HIDE);
...

PS: Будьте внимательны с одинарными кавычками.

[ComAlex]

Нет. Так не прокатывает
Ошибка: "Непредвиденное появление: %%i"

Этот вариант я вначале пробовал.
Тут что-то хитрее надо. Про кавычки знаю

[ComAlex]

Разобрался: %%i ->%i
Всем спасибо - тема закрыта

[саша40]

А я думал, что он будет юзать функции работы с файлами и работы с директориями. Ведь по сути, всё что делает батник - перетаскивает файлы из верхнего каталога в более нижний. Обход средств защиты 1С СофтКлаб? Никогда не понимал такие костыли, даже в лицензионном ПО.

[Serge_Bliznykov]

Сообщение от саша40

едь по сути, всё что делает батник - перетаскивает файлы из верхнего каталога в более нижний.

а по моему это батник удаляет какие-то временные папки 1C, чистит какие-то каталоги.

Сообщение от саша40

Никогда не понимал такие костыли, даже в лицензионном ПО.

при чём здесь костыли?