¡Un lenguaje simple obtiene automáticamente el directorio CF! ¡Conozca el catálogo con solo presionar un botón!
.Versión 2
.Shell de biblioteca de soporte
.Especificación de biblioteca de soporte
.Subroutine_Button1_Clicked
p>.Datos de la variable local, conjunto de bytes
.Longitud de la lista de variables locales, número entero
.Ubicación de la información del archivo de variables locales, número entero
. Desplazamiento del archivo de variable local, número entero
. Ruta de destino de la variable local, tipo de texto
GeneralDialog1.filename = ""
GeneralDialog1.filter = "*.lnk|*.lnk"
GeneralDialog1.initial directorio = seleccione un directorio específico (# escritorio del sistema)
Diálogo general 1.Abrir ()
. Si es verdadero (Diálogo general 1.Nombre de archivo = "")
Return ()
.End if true
Salida de depuración (diálogo genérico1.nombre de archivo)
Pestaña 2.título = diálogo genérico1.nombre de archivo
Datos = Leer archivo (diálogo genérico1.nombre de archivo)
.Si es verdadero (datos = { })
Salida de depuración ("Error al leer los datos del archivo")
Return ()
.End if true
longitud de la lista = recuperar datos del conjunto de bytes (datos, #entero corto, 77)
salida de depuración (longitud de la lista)
ubicación de la información del archivo = longitud de la lista 78
salida de depuración (ubicación de la información del archivo)
desplazamiento de la ubicación del archivo = recuperar datos del conjunto de bytes (datos, # entero, ubicación de información de archivo 17)
ubicación de información de archivo = datos del conjunto de bytes (datos, #entero, ubicación de información de archivo 17).ubicación de información 17)
Salida de depuración (desplazamiento de ubicación de archivo)
Ruta de destino = Obtener datos del conjunto de bytes (datos, #texto, ubicación de información de archivo, desplazamiento de posición del archivo 1)
Salida de depuración (ruta de destino)
Etiqueta 1 .Título = Ruta objetivo
(Transferido de Holley Technology Consultant a Holley Technology Co., Ltd. para soporte técnico)