请教个问题，如何只让软件只运行一个，目前可以多次打开

wintop

rt论坛没搜到

wintop

已解决  
程序_禁止重复运行
精易的

gonspro

要调用API函数，很简单的：<火山程序 类型 = "通常" 版本 = 1 />

方法 我的主窗口_创建完毕 <接收事件 类型 = 整数 注释 = "当本组件及其中所有子组件均被创建完毕后发送此事件.">
参数 来源对象 <类型 = 我的主窗口 注释 = "提供事件产生的具体来源对象">
参数 标记值 <类型 = 整数 注释 = "用户调用\"挂接事件\"命令时所提供的\"标记值\"参数值,非此方式挂接事件则本参数值固定为0.">
{
    变量 op <类型 = 整数>
    op = OpenEventA (2031619, 假, "5689")
    如果 (op == 0)
    {
        CreateEvent (0, 假, 假, "5689")
    }
    否则
    {
        信息框 ("程序已经运行")
        关闭窗口 ()
    }
    返回 (0)
}

<火山程序 类型 = "通常" 版本 = 1 />

方法 OpenEventA <公开 静态 类型 = 整数 @视窗.输入 = "kernel32.dll" @输出名 = "OpenEventA">
参数 dwDesiredAccess <类型 = 整数>
参数 bInheritHandle <类型 = 逻辑型>
参数 lpName <类型 = 文本型>
{

}

<火山程序 类型 = "通常" 版本 = 1 />

方法 CreateEvent <公开 静态 类型 = 整数 @视窗.输入 = "kernel32.dll" @输出名 = "CreateEventA">
参数 lpEventAttributes <类型 = 整数>
参数 bManualReset <类型 = 逻辑型>
参数 bInitialState <类型 = 逻辑型>
参数 lpName <类型 = 文本型>
{

}