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

神女软件定制 · 发表于 2022-3-17 17:16:47

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

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

代码：

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

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

sn_GetLastError ()
sn_CreateMutex (0, 0, “独一无二的名字”)

如果 (sn_GetLastError () ＝ 183)

信息框 (“禁止多开”, 0, , )

结束 ()

调试输出 (“允许运行”)

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

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

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

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

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

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

glr9107 · 发表于 2024-9-22 17:31:42

感谢分享

qq645025305 · 发表于 2024-8-25 16:22:32

谢谢分享

ytbihay · 发表于 2023-12-6 14:08:44

谢谢分享

窥伺 · 发表于 2023-7-21 09:03:48

谢谢分享感谢开源

JYYeah · 发表于 2022-5-24 23:03:16

谢谢分享分享

lzbkunming · 发表于 2022-4-6 10:32:58

谢谢分享

lzbkunming · 发表于 2022-4-5 18:46:15

谢谢分享

lxh628 · 发表于 2022-4-5 09:05:08

支持开源~！感谢分享

gdwlwl · 发表于 2022-3-26 22:56:37

谢谢分享分享

		自动登录	找回密码
密码			注册

[易语言纯源码] 另一个程序禁止多开的方法

评分