| Автор
| Сообщение |
 deathraider
Постоянный участник
Возраст: 36
Знак зодиака: 
Зарегистрирован: 28.07.2003
Сообщения: 118
Откуда: Украина Сумы
|
|
|
Цитата |
|
Поиогите !
Не работает участок кода
begin
Application.Minimize;
Createprocess(nil,PChar('D:\Test\winprint .exe'+FileOrPath+' -c -0'),nil,nil,false,
Create_default_error_mode,nil,nil,si,p);
Waitforsingleobject(p.hProcess,infinite);
Application.Restore;
DeleteFile(FileOrPath);
end;
где - FileOrPath полный путь к файлу
- winprint.exe программа печати из-под DOS на струйник
Можно было искользовать WinExec() или ShellExecute()
НО код выполняется в цикле по условию наличия
файла (поиск по шаблону ) и необходимо приостановить
работу основной программы на время работы
winprint.exe ( дождаться конца выполнения )
Может есть другой алгоритм?
Заранее благодарен
P.S. arj.exe под этим кодом работает нормально |
|
| В начало |
|
 |
|
|
 |
DrPass
Знающий :)
/Почетный Модератор/
Возраст: 31
Знак зодиака: 
Зарегистрирован: 02.05.2002
Сообщения: 5709
Откуда: Донецк
|
|
|
Цитата |
|
А может,
'D:\Test\winprint .exe'
заменить на 'D:\Test\winprint .exe '
(т.е. пробельчик в конце добавить?)
_________________
Да пребудет с вами Сила! |
|
| В начало |
|
|
|
