Показать сообщение отдельно
  #3  
Старый 25.09.2008, 17:15
xchrom xchrom вне форума
Начинающий
 
Регистрация: 08.04.2008
Сообщения: 177
Репутация: 15
Сообщение

Вот тебе кусок из работающей проги... у меня там в батниках arj -ем архивируются файлы определенные, но и с запуском все то же будет...
BatFiles - это просто список имен bat-файлов

Код:
var
  stin: STARTUPINFO;
  prin: PROCESS_INFORMATION;
************************************************************************
    stin.lpTitle := PChar('Формируется транспортный файл '+filename + ' Запущен '+ BatFiles[i]);
    stin.wShowWindow := SW_HIDE;
    stin.dwFlags := STARTF_USESHOWWINDOW;
    CreateProcess(nil,PChar(BatFiles[i]),nil,nil,false,0,nil,'G:\CLIENT\out\',stin,prin);
    WaitForSingleObject(prin.hProcess,INFINITE); //ждем завершения архивации