Вопрос след. характера:
| Код |
//Функция копирования файлов/директорий
function CopyDir(const SrcDir, DestDir: String): boolean;
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: array [0..128] of Char;
begin
Result := False;
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, SrcDir);
StrPCopy( tobuf, DestDir);
with OpStruc do
begin
wFunc:= FO_COPY;
pFrom:= @frombuf;
pTo:=@tobuf;
fFlags:= FOF_NOCONFIRMATION;
fAnyOperationsAborted:= False;
hNameMappings:= nil;
lpszProgressTitle:= nil;
end;
ShFileOperation( OpStruc );
Result:=True;
end;
|
если ее использовать в потоке стандартная форма копирования Windows не появляется...да она мне и не слишком нужна. Можно ли отслеживать позицию прогресс-бара? Можно ли получить имя копируемого файла и оставшееся время из этой формы? Если кто не понял о чем идет речь...скрин в прикрепленном файле.
з.ы.  |