Форум: "WinAPI";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];

Вниз

CopyFile_ in_Win95   Найти похожие ветки 

← →
XPDeveloper   (2001-12-21 02:33) [4]

function TForm1.FileCopy(FFrom, FTo : string) : boolean;
var F : TShFileOpStruct;
begin
Result:=false;
F.Wnd := Handle;
F.wFunc := FO_COPY;
FTo := FTo+#0;
FFrom := FFrom+#0;
F.pTo := Pchar(FTo);
F.pFrom := Pchar(FFrom);
F.fFlags := FOF_ALLOWUNDO+FOF_NOCONFIRMATION+FOF_NOCONFIRMMKDIR;
if ShFileOperation(F) = 0 then
Result:=true;
end;
Можно копировать сразу несколько файлов, с undo - см. документацию

---

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

Форум: "WinAPI";
Текущий архив: 2002.02.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c