О запуске приложений под 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?

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

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