Скачать: CL | DM;

О запуске приложений под DOS   Найти похожие ветки 

← →
petvv ©   (2004-08-15 17:00) [0]

Народ есть проблема с сетевого диска нужно взять все файлы с расширением .trz потом скопировать их в определённую директорию и
произвести дешифровку:

GetDir(0,PathCard);// Получаю текушую директорию
OutMsg:=MessageBox (MB_APPLMODAL, "Âñòàâüòå äèñêåòó ñ èíêàññàöèåé è íàæìèòå Enter !", "ÀÐÌ Êàðä - Öåíòð",1);
if OutMsg=IDOK then //Если Ok тогда обработка данных с диска
   if FindFirst(PathA+"*.trz", FileAttrs, sr) = 0 then
   begin
     repeat
       OutF := sr.Name; //Берём из списка первое имя файла
       CopyFile(PChar(PathA+OutF),  PCharPathCard+"\hist_trz\"+OutF),True);
//Вот после этого CreateProcess  выдаёт мне в файл "Ошибка
//открытия ... и Нифига с этим(и) файлами не делает
//Как с этим бороться ?????

       ZeroMemory(@si,sizeof(si));
       si.cb:=SizeOf(si);
       cmdline:=PathCard+"\hist_trz\lzcoder d " +OutF+">ttt";
       if not CreateProcess( nil, // Âîîáùå çàäà¸ò èìÿ ïðîöåññà
       PChar(cmdline),  // Êîìàíäíàÿ ñòðîêà
       nil,             // Process handle not inheritable.
       nil,             // Thread handle not inheritable.
       True,           // Set handle inheritance to FALSE.
       0,               // Ôëàã îøèáêè ñîçäàíèÿ
       nil,             // Use parent"s environment block.
       nil,             // Ïî óìîë÷àíèþ òåêóùàÿ äèðåêòîðèÿ
       si,              // Pointer to STARTUPINFO structure.
       pi )             // Pointer to PROCESS_INFORMATION struture.
       then
       begin
       ShowMessage( "Невозможно создать процесс lzcoder.exe." );
       Exit;
       end;
       WaitForSingleObject( pi.hProcess, INFINITE );
       CloseHandle( pi.hProcess );
       CloseHandle( pi.hThread );
     until
     FindNext(sr) <> 0; //Получаем следующий фапйл
     FindClose(sr); //Закрываем поиск    end;
if OutMsg=IDCANCEL then //Если Cancel Тогда возврат в основное меню
begin
end;

end.
Просьба све ответы присылать на  e-mail:petvv@mail.ru

---

← →
TUser ©   (2004-08-15 17:07) [1]

>        True,           // Set handle inheritance to FALSE.

Ты уверен, что именно to FALSE?

И кстати, файл-то уже успел скопироваться? Может лучше сначала скопировать всей файлы, а потом запускать?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c