递归火山软件开发平台

标题: 请教个问题，如何只让软件只运行一个，目前可以多次打开 [打印本页]

作者: wintop 时间: 2023-6-2 15:28
标题: 请教个问题，如何只让软件只运行一个，目前可以多次打开
rt论坛没搜到

作者: wintop 时间: 2023-6-2 15:35
已解决
程序_禁止重复运行
精易的

作者: gonspro 时间: 2023-6-12 16:40
本帖最后由 gonspro 于 2023-6-12 17:19 编辑

要调用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 <类型 = 文本型>
{

}

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)