| diego007 |
15-06-2010 03:00:19 |
Eliminar mensages de error de windows
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) |
