function copydir(srcPath,destPath: String): boolean;
var
  fos: TSHFileOpStruct;
  //sos: TSHFreeNameMappings;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_COPY;
    fFlags := FOF_FILESONLY or FOF_NOCONFIRMATION or FOF_NOCONFIRMMKDIR;
    pFrom := PChar(srcPath +#0);
    pTo := PChar(destPath);
//    SHFreeNameMappings(FOF_NOCONFIRMATION);
    //hNameMappings
  end;
  Result:=(0=ShFileOperation(fos));
end;