| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

копирование файла [D7, Win2k]

Kniaz ©   (2004-09-24 10:14:00) 

Каким образом скопировать файл. Т.е. не копировать содержимое из одного файла в другой, а взять файл и просто его скопировать.

---

ASoft   (2004-09-24 10:38:00) [1]

компоненты (dc) Dick Control, не плохо реализуют это дело.

---

Warlock   (2004-09-24 10:35:00) [2]

Способов несколько,
1. Самый простой - CopyFile

2. Посложнее - SHFileOperation


uses ShellApi;

function TForm1.UpdateFile(fFrom,fTo: String): Boolean;
var OpUpdate: SHFILEOPSTRUCT;
   LErr: Integer;
begin
 Result:=False;
 OpUpdate.wFunc:=FO_COPY;
 OpUpdate.pFrom:=PChar(fFrom+#0#0);
 OpUpdate.pTo:=PChar(ExtractFilePath(fTo)+#0#0);
 OpUpdate.fFlags:=FOF_NOCONFIRMATION+FOF_SILENT;
 LErr:=SHFileOperation(OpUpdate);
 if LErr=0 then
  Result:=True;
end;

Это для копирования одного файла, но с помощью SHFileOperation можно за раз копировать и несколько файлов.

---

Семен Сорокин   (2004-09-24 10:29:00) [3]

т.е. ты знаешь как скопировать содержимое файла, но не знаешь как скопировать сам файл, гм...

---

TUser   (2004-09-24 10:16:00) [4]

CopyFile

---

Наверх