ошибка при выполнении командного файла из приложения

← →
stud © (2006-03-10 11:18) [0]

приложение запускает командный файл с параметрами,
в режиме отладки из среды дельфи, все выполняется замечательно
если запустить скомпилированное приложение - при выполнении командного файла возникают ошибки - файл такой-то не найден.
но если остановить выполнение программы, взять сформированую строку параметров и запустить командный файл с ними, все тоже нормально работает.
с чем может быть связано подобное поведение??

← →
alex_*** © (2006-03-10 11:20) [1]

с тем что файл не найден. Сам же сказал. Посмотри куда указывает CurrentDir и где лежит файл

← →
stud © (2006-03-10 11:26) [2]

> но если остановить выполнение программы, взять
> сформированую строку параметров и запустить командный
> файл с ними, все тоже нормально работает

разница только в том, что в режиме отладки все работает - при самостоятельном запуске приложения нет. в остальном все один в один

← →
Desdechado © (2006-03-10 11:33) [3]

повторить еще раз?
в режиме отладки ДРУГОЙ currendir, а ты об этом не догадываешься
при запуске командного файла используй ПОЛНЫЙ путь к нему и в параметрах

← →
stud © (2006-03-10 11:47) [4]

> при запуске командного файла используй ПОЛНЫЙ путь к
> нему и в параметрах

при запуске командного файла используется ПОЛНЫЙ ПУТЬ К НЕМУ, В ПАРАМЕТРАХ УКАЗАН ПОНЫЙ ПУТЬ К НУЖНЫМ ФАЙЛАМ, указывается рабочий каталог для командного файла. везде указаны ПОЛНЫЕ ПУТИ!!

← →
Сергей М. © (2006-03-10 11:53) [5]

> stud © (10.03.06 11:47) [4]

> при запуске командного файла

Показывай как запускаешь ..

← →
Чапаев © (2006-03-10 11:59) [6]

> приложение запускает командный файл с параметрами

Чтобы запустить командный файл, нужно запустить командный интерпретатор и передать ему командный файл в качестве параметра (почти с) кот Матроскин

← →
stud © (2006-03-10 12:07) [7]

procedure TForm1.sing(comand: string; exename, workdir : string; var ecode: cardinal);
var
runinfo : TShellExecuteInfo;
runhandle, runerror : Thandle;
begin
// процедура шифрования
zeromemory(@runinfo,sizeof(runinfo));
runinfo.cbSize:=sizeof(runinfo);
runinfo.hInstApp:=runerror;
runinfo.Wnd:=0;
runinfo.fMask:=SEE_MASK_NOCLOSEPROCESS;
runinfo.lpVerb:="open";
runinfo.nShow:=sw_show;
runinfo.lpFile:=pchar(exename);
runinfo.lpParameters:=pchar(comand);
runinfo.lpDirectory:=pchar(workdir);
runinfo.hProcess:=runhandle;
if shellexecuteex(@runinfo)=true then
begin
WaitForSingleObject(runinfo.hProcess, INFINITE);
GetExitCodeProcess(runinfo.hProcess,ecode);
end;
CloseHandle(runinfo.hProcess);
end;
причем ситуация тупейшая((( как говорится вчера все работало

← →
Сергей М. © (2006-03-10 12:16) [8]

Ну и где тут вызов GetLastError() ?

> ситуация тупейшая

> runinfo.hProcess:=runhandle <-- Это чего такое ?

Действительно "тупейшая" .. Хоть и не влияет никак на сабж ..

> runinfo.hInstApp:=runerror

А это чего такое ?

А я бы ещё хотел увидеть содержание переменных comand, exename, workdir

command="C:\TEMP\tmp\Q3A0G40n.r0u C:\RKC\OTCHET\TK48 C:\TEMP\tmp\Q3A0G40n.cry Q3A0G40n.r0u"
exename=extractfiledir(application.ExeName)+"\sign.cmd"
workdir=extractfiledir(application.ExeName)

в общем бред полный, как появился этот геморой, так и пропал.....

ошибка при выполнении командного файла из приложения Найти похожие ветки