Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Передать параметр в батник / 4 сообщений из 4, страница 1 из 1
17.09.2018, 07:19
    #39703306
VladimirVVP
VladimirVVP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр в батник
Код: pascal
1.
2.
3.
4.
5.
6.
7.
procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
    s: string;
begin
    s := '';
    SelectDirectory('Caption', '', s);
end;




помогите выбранную папку передать в батник
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2018, 07:51
    #39703313
Sinemurius
Sinemurius
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр в батник
Самый простой, но не очень элегантный способ, который приходит на ум - создать bat-файл, который создаст переменную окружения.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
SelectDirectory('Caption', '', s);
with TStringList.Create do 
try
  Text := 'set myfolder=' + S;
  SaveToFile('SetFolder.bat');
finally
  Free;
end;


А ваш батник должен выглядеть примерно так:

ChoiceFolderDialog.exe
SetFolder.bat
...
Ну а далее используем переменную %myfolder% в Вашем батнике.

Чуть более элегантный способ: создать переменную окружения непосредственно в Delphi программе. Но честно говоря, не уверен что это возможно. Вроде можно создать переменные окружения, которые видно только в подчиненных процессах. (блин slave уже нельзя говорить)

Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.09.2018, 08:45
    #39703330
чччД__
чччД__
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр в батник
VladimirVVPprocedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
s: string;
begin
s := '';
SelectDirectory('Caption', '', s);
end;


помогите выбранную папку передать в батник

Синтаксис:
BAT-файл <параметр1>, <параметр2>, ... <параметрN>

В самом командном файле первый параметр будет доступен как переменная %1, второй - %2 и т.п.
Имя самого командного файла доступно как переменная %0.

Как запустить "из дельфи"? ShellExecute, WinExec, CreateProcess - читай про них.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2018, 09:25
    #39708171
QT
QT
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Передать параметр в батник
Абсолютно непонятный код. Где там "выбранную папку"? Где там "батник"?
Нужен пример батника и пример того что требуется получить, подробно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Передать параметр в батник / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 534ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040368]:
 0ms
get settings:
 9ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 199ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 2ms
others: 255ms
total:  534ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]