.版本 2 .子程序 禁止程序重复运行, , 公开 .参数 特征字串, 文本型 .参数 窗口句柄, 整数型, 可空, 1为空信息框提示；2填入句柄则激活窗口 .参数 信息内容, 文本型, 可空 .局部变量 句柄, 整数型 .局部变量 安全结构, SECURITY_ATTRIBUTES .如果真 (信息内容 ＝ “”) 信息内容 ＝ “请勿重复运行程序” .如果真结束 句柄 ＝ CreateMutex (安全结构, 真, 特征字串) .如果真 (WaitForSingleObject (句柄, 100) ＝ 258) ReleaseMutex (句柄) CloseHandle (句柄) .如果 (窗口句柄 ＞ 0) ShowWindow (取数值注册项 (3, 特征字串, ), 1) .否则 信息框 (信息内容, 0, , ) .如果结束 结束 () .如果真结束 写注册项 (3, 特征字串, 窗口句柄)