¿Cómo utilizar la barra de progreso de Easy Language para mostrar el progreso de la copia de archivos?

Tenga en cuenta que el control requerido tiene un comando dll de diálogo común: -2 Versión del comando DLL CopyFileExA, tipo entero, "CopyFileExA".

Parámetro lpExistingFileName, tipo de texto.

Parámetro lpNewFileName, tipo de texto.

Parámetro lpProgressRoutine, puntero de subrutina

Parámetro lpData, dirección.

. Parámetro pbCancel

Parámetro dwCopyFlags.DLL comando PathFindFileNameA, tipo de texto, "shlwapi.dll", "pathfindfilenamea"

. Parámetro pPath, código de tipo de texto: -.

Código: - Versión 2

. Soporte de biblioteca. Montaje conjunto de ventana 1. Se hace clic en Subroutine_button1_.

. Nombre de archivo de variable local, nombre de archivo de texto = cuadro de edición 1. Contenido

Nombre de archivo = pathfindfilenamea(nombre de archivo)

Consulte MSDN para obtener más detalles.

Solo no gana

Si es verdadero(EditBox1.Content≦" y EditBox2.Content≦";)

CopyFileExA(EditBox1. Content, seleccione (tome la derecha lado del texto (cuadro de edición 2. contenido, 1) = ", cuadro de edición 2. contenido, cuadro de edición 2. Contenido \") archivo amp, CopyProgressRoutine, 0, 0, 1)

Si es realmente terminado.

. Subrutina CopyProgressRoutine, tipo entero.

. Parámetro TotalFileSize, entero largo.

. Parámetro TotalBytesTransferred, tipo entero largo.

. Parámetro StreamSize, tipo entero largo.

. Parámetro StreamBytesTransferred, tipo entero largo.

. Parámetro dwStreamNumber, tipo entero

. Parámetro dwCallbackReason, tipo entero

. Parámetro hSourceFile, tipo entero.

. Parámetro hDestinationFile, número entero.

Parámetro lpData, barra de progreso entera 1. 'Posición = total de bytes transferidos ÷ tamaño total del archivo × 100 ' Si desea que el porcentaje sea más preciso, conviértalo a decimal y divídalo.

Etiqueta 1. Título = A texto (barra de progreso 1. Posición) " "

Manejar evento ()

Devolver (0)' Devuelve 0 para continuar copiando.

. Se hace clic en Subroutine_button2_. Si es Verdadero(Diálogo general 1. Abrir())

Cuadro de edición 1. Contenido = Diálogo General 1. Nombre del archivo

Si realmente se acabó.

. Se hace clic en Subroutine_button3_.

. Directorio de variables locales, directorio de texto = Examinar carpeta ("Seleccionar carpeta")

. Si es verdadero (directorio ≡ número)

Cuadro de edición 2. Contenido = contenido

Si termina, puede copiar el código directamente al idioma Yi para depurarlo.