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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.09.2010, 22:59   #1
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,897
По умолчанию Проблема с запуском *.cmd

Запускаю *.cmd с помощью Project1.exe, в событии формы FormCreate
Код:
ShellExecute(0, 'open', PChar(ExtractFilePath(Application.ExeName) + '\Start.cmd'), nil, nil, SW_SHOW);
Данный способ работает при ручном запуске приложения, но если я запускаю Project1.exe из другой программы
Код:
ShellExecute(0, 'open', 'C:\Project1.exe'), nil, nil, пробовал SW_SHOW и SW_SHOWNORMAL);
то никакой реакции или же окно приложения, запускаемого *.cmd мигнёт и всё.
Пробовал с WinEXEc и путь проверял chDir. При ручном запуске нормально работает, а через запуск другой программой нет.
Shouldercannon вне форума Ответить с цитированием
Старый 21.09.2010, 00:59   #2
TwiX
Участник клуба
 
Аватар для TwiX
 
Регистрация: 28.07.2009
Сообщений: 1,510
По умолчанию

Всё нормально работает:
Код:
procedure TForm2.FormCreate(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar(ExtractFilePath(Application.ExeName) + '\Project1.exe'), nil, nil, SW_SHOW);
end;
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  ShellExecute(0, 'open', PChar(ExtractFilePath(Application.ExeName) + '\Start.cmd'), nil, nil, SW_SHOW);
end;
В Start.cmd:
Код:
ping google.com
TwiX вне форума Ответить с цитированием
Старый 21.09.2010, 01:12   #3
Roof
Форумчанин
 
Аватар для Roof
 
Регистрация: 01.02.2007
Сообщений: 785
По умолчанию

у меня все работает как надо.
вот содержимое Start.cmd:
Код:
title Batch File Testing
echo Hello World
echo.
echo Starting Notepad
start notepad
echo.
echo Starting Wordpad
start Wordpad
echo.
pause
exit
1) Положил Start.cmd и Project1.exe, который запускает Start.cmd в папку C:\Test. В OnCreate твой код.
2) С Project2.exe запускаю C:\Test\Project1.exe c SW_SHOW или SW_SHOWNORMAL в событии OnCreate. Опять же твоим кодом.
Все отлично работает.
Изо всей благодати
В руках крепко сжатых
Я донесу только капли
Roof вне форума Ответить с цитированием
Старый 21.09.2010, 11:46   #4
glGizma
Пользователь
 
Регистрация: 25.02.2010
Сообщений: 49
По умолчанию

Код:
ShellExecute(handle,'open','Start.cmd',nil,nil,SW_RESTORE);
glGizma вне форума Ответить с цитированием
Старый 21.09.2010, 20:24   #5
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,897
По умолчанию

В start.com надо было после java -jar modJB.jar добавить pause, но и тут ошибки не завтавили себя долго ждать. Так как путь верный, то start.com запускается и
D:\Server CMS Icq>title jimBot 0.4.0 MOD dimaX VS warik

D:\Server CMS Icq>mode con cp select=1251

Состояние устройства CON:
--------------------------
Строки: 300
Столбцы: 80
Скорость клавиатуры: 31
Задержка клавиатуры: 1
Кодовая страница: 1251


D:\Server CMS Icq>java -jar modJB.jar
Unable to access jarfile modJB.jar

D:\Server CMS Icq>pause
Для продолжения нажмите любую клавишу . . .

D:\Server CMS Icq - это папка, где лежит моя программа, которая запускает start.com. В чём косяк я не пойму.

Последний раз редактировалось Shouldercannon; 22.09.2010 в 16:02.
Shouldercannon вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с текстом в .cmd nub' Операционные системы общие вопросы 2 05.02.2010 13:47
Проблема с запуском Ice Cold Компьютерное железо 5 04.06.2009 01:10
Проблема с запуском Rio309 Компьютерное железо 6 21.02.2009 00:43
Проблема с запуском boroda Помощь студентам 5 11.01.2009 11:52