Si utilizo la API de windows. El codigo que utilizo es:
Código:
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.