createprocess

← →
nika (2007-11-26 09:46) [0]

при запуске dts пакета s:="dtsrun /S "+cValue+" /U "+fmLogin.edtLogin.Text+" /P "+fmLogin.edtParol.Text+" /N Givz2007 " +
" /L d:\temp\log.txt " ;
showmessage(s);
si.wShowWindow := SW_HIDE;
Res := CreateProcess(nil,PCHAR(s),
nil, nil, true, NORMAL_PRIORITY_CLASS, @env, nil, si, pi);
возникает ошибка Произошел сбой в программе инициализации библиотеки динамической компоновки
хотя при запуске с командной строки пакет отрабатывается

← →
Иванов (2007-11-26 10:56) [1]

Нужен полный код и реальное содержимое командной строки.

← →
nika (2007-11-26 14:54) [2]

path:=GetCurrentDir();
SaveDialogGivz.FileName:="givz.dbf";

if SaveDialogGivz.Execute = true then
begin
fillchar(si, sizeof(si),#0);
si.cb := sizeof(si) ;
sdir := ExtractFileDir(SaveDialogGivz.FileName) ;
sfile := ExtractFileName(SaveDialogGivz.FileName);
cFile := PChar(ExtractFilePath(application.ExeName)+"Abonent.ini");
GetPrivateProfileString("Server","Name","Server",cValue,255,cFile);
showmessage(fmLogin.edtLogin.Text) ;
showmessage(fmLogin.edtParol.Text) ;
showmessage(cValue);
//s:= " dtsrun /S sirius /U sa /P burzum /N Givz2007 " ;
s:="dtsrun /S "+cValue+" /U "+fmLogin.edtLogin.Text+" /P "+fmLogin.edtParol.Text+" /N Givz2007 " +
" /L d:\temp\log.txt " ;

// " /A Year:4=""+ edtYear.text+"" " +
// " /A Month:2=""+ IntToStr(cbxMonth.ItemIndex+1)+"" " +
// " /A OtdelCode:2=""+qrySprOtdel.FieldByName("OtdelCode").AsString+"""+

//" /A FileName:8=""+SaveDialogGivz.FileName+"" " +
showmessage(s);
si.wShowWindow := SW_HIDE;
Res := CreateProcess(nil,PCHAR(s), nil, nil, true, NORMAL_PRIORITY_CLASS, @env, nil, si, pi);
if not Res then
begin
//ErrMessage;
exit
end;
WaitForSingleObject(pi.hProcess, infinite);
if not GetExitCodeProcess(pi.hProcess, Buff) then
begin
// ErrMessage;
exit
end;

if Buff = 0 then
begin
//DeleteFile(SaveDialogGivz.FileName)
end
else
MessageBox(handle, "Процедура завершена c ошибками !",
"Формирование данных для собеса", MB_OK + MB_ICONWARNING);

SetCurrentDir(path);
Close;
end;

end;

createprocess Найти похожие ветки