ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Передать параметр в батник
4 сообщений из 4, страница 1 из 1
Передать параметр в батник
    #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:19
| Ответить | Цитировать | Написать  
Передать параметр в батник
    #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, 07:51
| Ответить | Цитировать | Написать  
Передать параметр в батник
    #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
17.09.2018, 08:45
| Ответить | Цитировать | Написать  
Передать параметр в батник
    #39708171
QT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
QT
Гость
Абсолютно непонятный код. Где там "выбранную папку"? Где там "батник"?
Нужен пример батника и пример того что требуется получить, подробно.
...
Рейтинг: 0 / 0
26.09.2018, 09:25
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Передать параметр в батник
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=95&tid=2040368]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 55ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 245ms
total:  395ms
созд. / загр.: 395ms
x
x
Закрыть


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