Текущий архив: 2004.10.10;
Скачать: CL | DM;

Вниз

копирование файла   Найти похожие ветки 

← →
Kniaz ©   (2004-09-24 10:14) [0]

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

---

← →
TUser ©   (2004-09-24 10:16) [1]

CopyFile

---

← →
Семен Сорокин ©   (2004-09-24 10:29) [2]

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

---

← →
Warlock ©   (2004-09-24 10:35) [3]

Способов несколько,
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 можно за раз копировать и несколько файлов.

---

← →
ASoft   (2004-09-24 10:38) [4]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.043 c