Eliminar mensages de error de windows

[diego007]

Hola amigos, tengo el siguiente problema y para ver si me pueden ayudar.
El problema es que tengo el siguiente codigo para copiar archivos de una carpeta a otra y trabaja muy bien

Código PHP:

procedure TForm1.Button1Click(Sender: TObject);
var lpFileOp: TSHFileOpStruct;
begin
    { Relleno de la estructura }
    lpFileOp.Wnd := Self.Handle;
    lpFileOp.wFunc := FO_COPY;
    lpFileOp.pFrom := PChar('C:\d51.gif' + #0#0);
    lpFileOp.pTo := PChar('A:\' + #0#0);
    lpFileOp.fFlags:= FOF_SIMPLEPROGRESS or FOF_FILESONLY;
    lpFileOp.fAnyOperationsAborted := FALSE;
    lpFileOp.hNameMappings := nil;
    lpFileOp.lpszProgressTitle := PChar('Trasladando archivos al disco D' + #0#0);
    { Mover el archivo }
    SHFileOperation(lpFileOp);
end; 


el problema que tengo es que hay archivos que windows esta ocupando o no pueden ser copiados y me sale mensages de error, y lo que deceo es que esos mensages no aparescan (no importa que no se copie el archivo), no se si hay algun codigo que bloquee los mensages de windows o en caso contrario algo que permita copiar cualquier archivo (sin inportar si esta siendo usado por windows)