¿Cómo configurar una sola ventana para que se ejecute en un lenguaje sencillo?
. 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
.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