Текущий архив: 2005.10.16;
Скачать: CL | DM;
Вниз
Как программно скопировать папку в другу директорию ? Найти похожие ветки
← →
alpine (2005-09-23 14:19) [0]Доброго времени суток уважаемые мастаки.
Мне нужно средствами дельфи скопировать папку с кучей файлов в другую директорию. Подскажите кто знает ... Заранее спасибо !
← →
TUser © (2005-09-23 14:20) [1]SHFileOperation
← →
ssk © (2005-09-23 14:28) [2]пути подставишь свои
var
OpStruc: TSHFileOpStruct;
frombuf, tobuf: Array [0..128] of Char;
begin
FillChar( frombuf, Sizeof(frombuf), 0 );
FillChar( tobuf, Sizeof(tobuf), 0 );
StrPCopy( frombuf, "d:\brief\*.*" );
StrPCopy( tobuf, "d:\temp\brief" );
with OpStruc do begin
Wnd := Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fFlags := FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
fAnyOperationsAborted := False;
hNameMappings := Nil;
lpszProgressTitle := Nil;
end;
ShFileOperation( OpStruc );
end;
Страницы: 1 вся ветка
Текущий архив: 2005.10.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.076 c
