|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.06.2007, 21:13 | #1 |
Регистрация: 25.05.2007
Сообщений: 9
|
Как скопировать папку со всем ее содержимым
Доброго времени суток! Подскажите пожалуйста как скопировать папку со всем ее содержимым! Заранее спасибо!!
|
09.06.2007, 22:04 | #2 |
Пользователь
Регистрация: 26.05.2007
Сообщений: 58
|
Копирование папки
var
Form1: TForm1; x, y:string; iconindex:integer; procedure TForm1.FormCreate(Sender: TObject); begin sskinmanager1.SkinDirectory:=Extrac tFileDir(Application.ExeName); sDirectoryEdit2.Text:=extractfilepa th(Application.ExeName); procedure TForm1.sButton1Click(Sender: TObject); var OpStruc: TSHFileOpStruct; frombuf, tobuf: array [0..128] of Char; begin x:=sdirectoryedit1.Text; y:=sDirectoryEdit2.Text; FillChar( frombuf, Sizeof(frombuf), 0 ); FillChar( tobuf, Sizeof(tobuf), 0 ); StrPCopy( frombuf, x ); StrPCopy( tobuf, y+'NEW Folder\' ); 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; Последний раз редактировалось BanDit; 09.06.2007 в 22:08. |
09.06.2007, 22:07 | #3 |
Пользователь
Регистрация: 26.05.2007
Сообщений: 58
|
kopirovanie
var
Form1: TForm1; x, y:string; iconindex:integer; procedure TForm1.FormCreate(Sender: TObject); begin sskinmanager1.SkinDirectory:=Extrac tFileDir(Application.ExeName); sDirectoryEdit2.Text:=extractfilepa th(Application.ExeName); procedure TForm1.sButton1Click(Sender: TObject); var OpStruc: TSHFileOpStruct; frombuf, tobuf: array [0..128] of Char; begin x:=sdirectoryedit1.Text; y:=sDirectoryEdit2.Text; FillChar( frombuf, Sizeof(frombuf), 0 ); FillChar( tobuf, Sizeof(tobuf), 0 ); StrPCopy( frombuf, x ); StrPCopy( tobuf, y+'NEW FOLDER\' ); 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; |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
скопировать папку со всем её содержимым | Tech07 | Общие вопросы Delphi | 8 | 02.12.2007 12:06 |
Прибить Create Process с содержимым | Sashunya | Win Api | 4 | 06.11.2007 16:23 |
как создать папку | matus | Помощь студентам | 2 | 05.11.2007 22:19 |
Как зашифровать папку | UnD)eaD)Snake | Общие вопросы Delphi | 6 | 15.08.2007 17:14 |