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)

[[mightydragonlor]]

con un Try deberia ser sufiiente.

[diego007]

Try? no se que es eso, tienes algun ejemplo de eso?

[[mightydragonlor]]

hola, por supuesto,

Código Delphi [-]
try
//Acá va tu código
except
//Acá en caso que falle
end;

Si no deseas que salga algo en caso que falle quedaría así

Código Delphi [-]
try

finally

end;

Espero te sirva de algo.

[diego007]

ok, gracias, voy a a intentar y te comento que tal me fue

[dietherv]

Funciona.
Me acabas de cerrar dos semanas de busquedas inutiles...