te recomiendo hacerlo de otra forma...
Estaba preparando un ejemplo de explorador con funciones de la WinAPI, pero desgraciadamente todos mis proyectos de delphi se fueron a la mierda (buaahhh
). De todas formas te digo la función que puedes usar:
ShFileOperation junto a un tipo _ShFileOpStruct. Un ejemplo:
Código Delphi
[-]procedure Copiar(From, To: String);
var
Operation: _ShFileOpStruct;
begin
Operation.Wnd := Form1.Handle;
Operation.wFunc := fo_copy;
Operation.pFrom := PChar(ExcludeTrailingPathDelimiter(From));
Operation.pTo := PChar(ExcludeTrailingPathDelimiter(To));
Operation.fFlags := FOF_CONFIRMMOUSE;
ShFileOperation(Operation);
end;
Esta función puede copiar, mover, cambiar el nombre y eliminar archivos y carpetas, para más información escribe en al ayuda de programación para Windows (no es la ayuda F1 de Delphi): ShFileOperation.
Suerte!