![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
No se si esto te servira, pero creo que si.
Estarás usando la copia misma de windows. Pruebalo. Código:
function TForm1.CopiaTodo(Origen,Destino : String):LongInt; var F : TShFileOpStruct; sOrigen, sDestino : String; begin try Result := 0; sOrigen := Origen + #0; sDestino := Destino + #0; with F do begin Wnd := Application.Handle; wFunc := FO_COPY; pFrom := @sOrigen[1]; pTo := @sDestino[1]; fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION end; Result := ShFileOperation(F); except close; end; end; Código:
CopiaTodo(\\cputal\c\taltaltal,\\cpuqual\c\taltaltal);
__________________
La victoria tiene cien padres. La derrota es huérfana (Napoleón). |
![]() |
|
|
![]() |
|