|
Тема |
WinExec синхронизация |
|
Автор | Ada (Нерегистриран) | |
Публикувано | 15.03.11 14:08 |
|
|
Здравейте,
иакам да направя следното - да компресирам група файлове, след което да копирам получения файл в друга директория:
txt:='7z a compr.7z SourceFolder+'\*.*';
CmdLine:=PChar(txt);
WinExec(CmdLine,SW_SHOW);
aa:=CopyFileTo('compr.7z','TargetFolder\compr.7z');
При дебъгване всичко е ОК, но изчаквам завършването на WinExec.
В RunTime режим CopyFileTo стартира преди завършването на WinExec.
Опитах с CriticalSection, но не се получи.
Пробвах и
repeat
CopyFileTo('compr.7z','TargetFolder\compr.7z');
until aa
но копираният файл не беше идентичен с оригинала - явно се е копирал преди завършване на компресирането.
Някаква идея?
|
| |
|
|
|