跨进程锁，跨进程许可证

神女软件定制

易语言自带的许可证，应该是CriticalSection，（临界区）或（关键段），这是一个用户对象，不能实现跨进程加锁
跨进程加锁，就需要内核对象

sn_CreateMutex (0, 0, “独一无二的名字”)
创建一个命名互斥体，如果后续用同一个名字创建，会返回同一个

内核对象，不属于任何进程，不像用户对象，进程销毁了，关联的用户对象（窗口）就一定会销毁
每个内核对象内部有一个计数，归零的时候才会销毁，（打开就+1，关闭就-1）

每个内核对象，还有一个状态标识：信号量
ReleaseMutex，可以让一个Mutex，从无信号，变成有信号，（这个好像，有点反人类……字面意思反的）
WaitForSingleObject，可以等待一个对象，直到对象有信号才返回，同时会把这个对象，从有信号变成没有信号，这样其他线程就等不到了，直到ReleaseMutex

跨进程锁： 1.e (4.74 KB, 下载次数: 119)

2022-3-17 15:45 上传

点击文件名下载附件

还可以通过下面的代码来禁止多开：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
hMtx	整数型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

hMtx ＝ sn_CreateMutex (0, 0, “独一无二的名字”)
如果 (sn_WaitForSingleObject (hMtx, 0) ≠ 0)
信息框 (“禁止多开”, 0, , )
结束 ()
调试输出 (“允许运行”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 hMtx, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> hMtx ＝ sn_CreateMutex (0, 0, “独一无二的名字”)<br /> .如果 (sn_WaitForSingleObject (hMtx, 0) ≠ 0)<br />     信息框 (“禁止多开”, 0, , )<br />     结束 ()<br /> .否则<br />     调试输出 (“允许运行”)<br /> .如果结束

nuan1989

好用, 谢谢

wmv520

        支持开源~！感谢分享

ljx111

感谢分享~

♂隐

我能说我看不懂么！

神女软件定制

天地无敌 发表于 2023-10-14 18:45
理论上不是应该我不释放对象 他永远卡在哪里 才是正确的么 我把释放对象屏蔽了 他还是不卡在那里  。。。 ...

同一个线程，不释放，可以再次获得，然后线程结束了，没有释放，这时候其他线程也可以获得了（我之前也不清楚这些细节，看了资料是这样子）

天地无敌

理论上不是应该我不释放对象 他永远卡在哪里 才是正确的么 我把释放对象屏蔽了 他还是不卡在那里  。。。

窥伺

真的厉害啊大佬

yangjz

发发哇噶噶

葛钰龙

可以可以，拿走了