Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];
Вниз
копирование файла Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.126 c