function SysCopyFile(From, Destination: string): Boolean;
var
 Sh: TSHFileOpStruct;
begin
 with Sh do
 begin
 Wnd := Application.Handle;
 wFunc := FO_COPY;
 pFrom := PChar(From);
 pTo := PChar(Destination);
 lpszProgressTitle := '备份精灵——文件复制';
 fFlags := 0;

 fFlags := fFlags + FOF_ALLOWUNDO;
 fFlags := fFlags + FOF_RENAMEONCOLLISION;
 fFlags := fFlags + FOF_NOCONFIRMATION;
// fFlags := fFlags + FOF_SILENT;
 end;
 Result := SHFileOperation(Sh) = 0;
end;