copiar fichero mas de 2Gb con esta funcion

[dec]

Hola,

¿Porqué no pruebas con la función "CopyFileEx" o con la función "ShFileOperation"? En el caso de esta última quedaría más o menos como sigue, de tal modo que se muestre una ventana de progreso mientras se copia el archivo y además la interfaz de tu aplicación no se vea "retenida".

Código Delphi [-]
uses
  Windows, ShellApi;

function CopiarArchivo(const archivoOrigen,
  archivoDestino: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp), #0);
  with FileOp do
  begin
    wFunc := FO_COPY;
    Wnd := GetDesktopWindow;
    pFrom := PChar(archivoOrigen+#0);
    pTo := PChar(archivoDestino+#0);
    lpszProgressTitle := 'Copiando...';
    fFlags := FOF_SIMPLEPROGRESS or FOF_ALLOWUNDO;
  end;
  Result := (ShFileOperation(FileOp) = 0);
end;

[OSKR]

Una peqeña acotación...con 32 bits en un entero se alcanza a 4 GB

[roman]

No exactamente. Un Integer tiene signo y por ello va de -2GB a 2GB. Por ello mencioné que al usar LongWord (integer sin signo) doblaría la capacidad.

// Saludos

[OSKR]

Eso es correcto, asumía q ya hablabas de un unsigned, para desplazamientos es lo mejor