О запуске приложений под DOS [D7, WinXP]
petvv © (2004-08-15 17:00:00)
Народ есть проблема с сетевого диска нужно взять все файлы с
расширением .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:00) [1]
> True,
// Set handle inheritance to FALSE.
Ты уверен, что именно to FALSE?
И кстати, файл-то уже успел скопироваться? Может лучше
сначала скопировать всей файлы, а потом запускать?
Наверх 
ЧАТ |
Орешник |
|
