Mover carpetas completas

[lbidi]

Estimados, tengo el siguiente codigo obtenido de algun post de este club para mover una carpeta completa y sus archivos de un disco a otro.

Código Delphi [-]
function Tfrm_Main.MoveDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
    ZeroMemory(@fos, SizeOf(fos));
    with fos do
    begin
        wFunc  := FO_MOVE;
        fFlags := FOF_FILESONLY;
        pFrom  := PChar(fromDir + #0);
        pTo    := PChar(toDir)
    end;
    Result := (0 = ShFileOperation(fos) );
end;

Por lo que he probado, utiliza alguna api de Windows para realizar este proceso y mi consulta es como puedo hacer para que no pregunte si deseo sobreescribir o "combinar" carpetas ? mi deseo es que mueva directamente sin preguntar. Es posible ?

Muchas gracias.