Eliminar mensaje de confirmacion

[URBANO]

Si utilizo la API de windows. El codigo que utilizo es:

procedure TFnuevoej.copiar(origen, destino: string);
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(origen+#0);
pTo := PChar(destino+#0);
fFlags:= FOF_SILENT;
end;
SHFileOperation(Dados);
end;

procedure TFnuevoej.borrar(destino: string);
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
Wnd:= Self.Handle;
wFunc := FO_DELETE;
pFrom := PChar(destino+#0);
fFlags:= FOF_SILENT;
end;
SHFileOperation(Dados);
end;

En ambas acciones pongo "Fflags:= FOF_SILENT" y creo que esto es a lo que te refieres, pero me sigue saliendo igual los mensajes de windows.

[dec]

Hola,

Podrías revisar la ayuda de la función "SHFileOperation()". La "bandera" que usas sirve para no mostrar el diálogo de progreso en la tarea, pero, no para lo que quieres hacer. En todo caso tendrías que combinarla con la bandera "FOF_NOCONFIRMATION" e incluso con la bandera "FOF_NO_UI".

[URBANO]

Tienes razon he combinado las banderas:

fFlags:= FOF_SILENT or FOF_NOCONFIRMATION;

Y ya no me pide la confirmacion de borrar, ni la de sobreescribir.

Gracias.