¿Cómo configurar una sola ventana para que se ejecute en un lenguaje sencillo?

Le doy este código fuente (lo escribí antes), la subrutina se ejecuta después de que se crea la ventana de inicio, puede verlo usted mismo

. Versión 2

. Admite biblioteca eAPI

. Subrutina Deshabilitar la segunda ejecución, pública, se recomienda ejecutarla después de crear la ventana de inicio

Título del cuadro de información del parámetro, texto, vacío, título del cuadro de aviso, el valor predeterminado es "Preguntar"

<. p>. Mensaje de parámetro, texto, vacío, información de solicitud, el valor predeterminado es "No volver a ejecutar"

.

. Solicitud de parámetro o no (si se muestra la solicitud), parámetro lógico, vacío, si se muestra la solicitud, el valor predeterminado es falso

. Proceso de variable local, información del proceso, "0"

Número de variable local, entero

. Variable local i, entero

Recuento = 0

Proceso = Obtener la lista de procesos del sistema ()

Primer recuento (obtener el miembro de la matriz (proceso), i)

.if (proceso [i]. nombre del proceso = buscar nombre del archivo de ejecución ()

recuento = recuento + 1

.de lo contrario

.If end

.Fin del ciclo de conteo ()

.If (conteo > 1)

.If (vacío (aviso o no) )

. De lo contrario

Si (si el mensaje = verdadero)

Si (si el mensaje está vacío)

. Si (el mensaje Si el título del cuadro está vacío)

Cuadro de mensaje ("¡Están prohibidas las repeticiones!", 64, "Preguntar")

De lo contrario

Cuadro de mensaje ("¡Preguntar repetición!", 64, título del cuadro de información)

.if end

De lo contrario

.if (está vacío (título del cuadro de información). ))

Cuadro de información (mensaje rápido, 64, "mensaje")

De lo contrario

Cuadro de información (mensaje rápido, 64, "mensaje")

.if final

.if final

.else

si final

()

. De lo contrario