.支持庫 EInterProcess
.局部變量 flag, 整數型
flag ＝ 創建命名管道 (“註意這段字符盡量的特別壹些XXX”)
.如果真 (flag ＝ 0)
信息框 (“該程序已經運行”, 0, )
結束 ()
.如果真結束