请教个问题，如何只让软件只运行一个，目前可以多次打开
rt论坛没搜到已解决
程序_禁止重复运行
精易的 本帖最后由 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 <类型 = 文本型>
{
}
页:
[1]