Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.09.2011, 09:14   #1
royun
Пользователь
 
Регистрация: 20.05.2011
Сообщений: 67
По умолчанию Запуск exe-файла с переменными параметрами

Хочу запустить exe-файл с параметром: выбираю файл нажимаю "Открыть", затем отрабатывает "Запускаемая_программа.exe" с параметрами, а в параметрах "открываемый_файл" и "файл_который_получится" изменялись в зависимости от того какой файл открываю и к "файл_который_получится" добавляется .dbf
Параметры /1 /a- /b- никогда не меняются.

Код:
if OpenDialog1.Execute then OpenDialog1.FileName else exit;
    WinExec ('Запускаемая_программа.exe /1 /a- /b- открываемый_файл файл_который_получится.dbf', SW_SHOW);

В общем надо так, если схематично:

Код:
if OpenDialog1.Execute then OpenDialog1.FileName else exit;
    WinExec ('Запускаемая_программа.exe /1 /a- /b- OpenDialog1.FileName OpenDialog1.FileName.dbf', SW_SHOW);

Думаю WinExec-ом это никак не реализовать, а вот ShellExecute наверное поможет, но не могу это дело реализовать. Прошу помощи.
royun вне форума Ответить с цитированием
Старый 15.09.2011, 09:31   #2
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,893
По умолчанию

ShellExecute
Только пример!
Код:
ShellExecute(0, open, 'C:\Запускаемая_программа.exe', PChar('/1 /a- /b-' + OpenDialog1.FileName + '.dbf'), nil, SHOWNORMAL);

Последний раз редактировалось Shouldercannon; 15.09.2011 в 09:42.
Shouldercannon вне форума Ответить с цитированием
Старый 15.09.2011, 09:40   #3
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

или я чего-то не понял, или нужно имя из диалога просто подставить в строку:
Код:
if Not OpenDialog1.Execute then exit
else
   WinExec ('Запускаемая_программа.exe /1 /a- /b- '+OpenDialog1.FileName + ' ' + OpenDialog1.FileName+'.dbf', SW_SHOW);
Serge_Bliznykov вне форума Ответить с цитированием
Старый 15.09.2011, 09:59   #4
royun
Пользователь
 
Регистрация: 20.05.2011
Сообщений: 67
По умолчанию

Да так и есть
royun вне форума Ответить с цитированием
Старый 15.09.2011, 10:37   #5
royun
Пользователь
 
Регистрация: 20.05.2011
Сообщений: 67
По умолчанию

Как я понял, если вывести значение OpenDialog2.FileName в Edit, то получаем не имя файла а путь_к_файлу\сам_файл. А мне нужно именно имя самого файла. Сделал вот так не работает. Проморгнет быстро и все.

Код:
procedure TForm1.OpenBinFileClick(Sender: TObject);
begin
    if OpenDialog1.Execute then OpenDialog1.FileName else exit;
    ShellExecute(0, 'open', 'c:\PBX\DeBoraF\dbf.exe', PChar('/1 /a- /b-' + OpenDialog1.FileName +' '+ OpenDialog1.FileName + '.dbf'), nil, SW_SHOW);
end;
royun вне форума Ответить с цитированием
Старый 15.09.2011, 11:18   #6
royun
Пользователь
 
Регистрация: 20.05.2011
Сообщений: 67
По умолчанию

Разобрался, спасибо всем
royun вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск файла с параметрами (*.bat) JonMagon Помощь студентам 4 10.07.2011 19:05
программа с типизированными параметрами-значениями и параметрами-переменными Kira09 Паскаль, Turbo Pascal, PascalABC.NET 1 20.12.2010 22:23
запуск файла service.exe ServiceApplication с параметрами Ecosasha Общие вопросы Delphi 1 08.06.2009 19:44
Запуск exe с параметрами Altera Общие вопросы Delphi 2 26.02.2008 21:25