另一个程序禁止多开的方法

神女软件定制

跨进程锁，跨进程许可证
https://bbs.125.la/forum.php?mod=viewthread&tid=14721712
(出处: 精易论坛)

刚刚那个帖子里，用了一个程序禁止多开的方法，还有一个方法，就是创建命名互斥体时，如果名字一样，就会返回同一个内核对象。（没有就创建，已经有了就打开）
但是如果找到方法来区分，这就是自己创建的，还是打开的一个已经存在的对象。
就也能实现禁止多开。
这才是最常见的用法，命名内核对象也不一定需要互斥体，可以是其他的，比如Event等

代码：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

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

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

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

有一个细节问题，第一行调用了GetLastError
事实上，GetLastError仅仅返回其他API，设置在当前线程的一个表示错误的数字
看起来第一行什么事也没有做，去掉完全没有影响
我刚刚也是这么认为的……导致没有实现效果。
搞得我也疑惑了……


尝试着找到出现这个问题的原因
我只能做出推测：
DLL有两种调用方式，
1弄在导入表里，直接调用
2自己LoadLibrary，GetProcAddress取地址调用

虽然易语言看起来，声明了DLL函数的一些信息，但是在易语言并没有生成导入表，本质上还是LoadLibrary，只不过他背后悄悄帮我们做了
也就是说我写"GetLastError()"调用，并不是直接调用GetLastError，而是调用易语言的某个函数，他再帮我们调用真正的GetLastError，然后返回出结果

GetLastError是取出上一次函数调用设置的错误，如果上面这个过程中途，调用了其他的API函数，LastError的值可能就被覆盖了，不是我们想要的

易语言这种调用方式，也不是每次都LoadLibrary，GetProcAddress，应该只是第一个的时候，才会这样，后面就缓存下来了。
所以第一行调用GetLastError，让他缓存下来。后续调用就正常了（不会再调用其他API函数，导致改写LastError的值）

glr9107

感谢分享

qq645025305

谢谢分享

ytbihay

谢谢分享

窥伺

谢谢分享感谢开源

JYYeah

谢谢分享 分享

lzbkunming

谢谢分享

lzbkunming

谢谢分享

lxh628

支持开源~！感谢分享

gdwlwl

谢谢分享 分享