Текущий архив: 2004.01.09;
Скачать: CL | DM;
Вниз
Копирование файла. Найти похожие ветки
← →
Ламье_ в_ винапи (2003-11-06 15:46) [0]Сия функция копрования файло, выдрана из FAQ"a.
Копирует в ToDir под таким же именем, как его скопировать под другим файлом, передеавая ToFile. Т.е. путь и !другое! имя файла.
function TForm1.CopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
F.Wnd := 0;
F.wFunc := FO_COPY;
FromFile:=FromFile+#0;
F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0;
F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F) = 0;
end;
← →
Ламье_ в_ винапи (2003-11-06 15:48) [1]"под другим _ИМЕНЕМ_ ..."
очепятка...
сорри.
← →
Игорь Шевченко © (2003-11-06 15:52) [2]ToDir:=ToDir+"\"+ToFile+#0;
Страницы: 1 вся ветка
Текущий архив: 2004.01.09;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.033 c
