Запуск приложения через «bat» файл, и отображение его работы в «cmd» окне

[KBO]

Доброе время суток

Не могу через «ShellExecute», запустить «bat» файл, который в свою очередь запускает программу "GPU.exe" (она находится в той директории, в которой находится и батник), ход работы которой отображается в окне «cmd.exe».

Для автозапуска этой программы при запуске компа, в реестре ключа «Run», пришлось прописать

Cmd.exe /c "D: && cd D:\1\ && start.bat

Пр этом запускается программа с своими параметрами, расположенная в "start.bat", открывается "cmd" окно, и в нем отображается выполнение этой программы.

А вот при

ShellExecute(handle, 'open', 'd:\1\start.bat', '', '', 1);

Окно cmd, открывается и тут же закрывается

В чем может быть причина?

Команда

WinExec(Pchar('cmd /c start d:\1\start.bat'), 1);

запускает программу из "start.bat", который пытается открыть "GPU.exe" но по пути по которому находится проект delphi, а не по пути в котором находится "bat" файл. Получается, нужно запуститть "cmd.exe" из той директории, в которой находится "start.bat".

Заранее спасибо за ответ

[Serge_Bliznykov]

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

Получается, нужно запуститть "cmd.exe" из той директории, в которой находится "start.bat".

ну так смените каталог перед запуском вашего батника.
Например, через SetCurrentDir

SetCurrentDir(''d:\1');

либо исправьте start.bat - пропишите в нём полный путь до GPU.exe
(если GPU.exe допускает такой запуск)


p.s. а что такого сложного в батнике, что нельзя повторить в самом коде на Delphi ?
может быть, имеет смысл запускать GPU.exe прямо из кода на Delphi ?