Buscamos urgentemente el código fuente de la máquina de registro de lenguaje más simple y simple

Versión 2

. Biblioteca de soporte xplib

Subrutina __Startup Window_Created

. tipo

Registro de variables locales, tipo de texto

Estilo XP (1)

Código de registro = a texto (tome la palabra característica del disco duro () + 2234240 ×. 0)

Registro = a texto (tome la entrada de registro de texto (4, "SOFTWARE\ceshi\zhucema ", ))

.if (código de registro = registro)

Cargar(ventana1, , falso)

Destruir()

. De lo contrario

Editar cuadro 1.content = to text( Obtener la característica del disco duro palabra ())

Si termina

. Se hizo clic en la subrutina _Botón 1_

Contenido = texto (obtiene el carácter del disco duro () + 2234240 × 0))

Cuadro de mensaje ("Registro exitoso", 0,)

p>

Escriba el elemento de registro (4, "SOFTWARE\ceshi\zhucema", texto (obtenga la palabra característica del disco duro () + 2234240 × 0))

Cargue (ventana 1, false )

Destruir()

De lo contrario

MessageBox("Error de registro", 0,)

. si final

. Subrutina _Button2_Clicked

Fin ()

------------------------------- -- ----------------------------------------

Registrador Código fuente

Versión 2

. Biblioteca de soporte xplib

Programa Windows Assembly 1

.

Estilo XP (1)

.Subrutina _Button1_Clicked

Código de registro de variable local, tipo de texto

.Código de máquina de variable local, entero

Código máquina = entero (cuadro de edición 1. contenido)

Código de registro = texto (código de máquina + 2234240 × 0)

Cuadro de edición 2. Contenido = código de registro

.