火山PC调用易语言的能力实现禁止软件重复运行

本源码转载自利快云https://www.lkuaiy.com/

 

1、首先利用建立一个易语言dll动态链接库项目。

 

 

 

 

2、调用以下两个系统api，大概就是，前一个方法用于判断标记是否存在，后一个方法用于设置标记。

    这样通过这个标记信息的判断，可以确定当前软件是否运行。

 

 

 

.版本 2

 

.DLL命令 OpenEventA, 整数型, "kernel32.dll", "OpenEventA", 公开, 打开事件同步对象，判断标记是否存在

    .参数 dwDesiredAccess, 整数型

    .参数 bInheritHandle, 逻辑型

    .参数 lpName, 文本型

 

.DLL命令 CreateEvent, 整数型, "Kernel32.dll", "CreateEventA", 公开, 创建事件同步对象，创建一个标记

    .参数 lpEventAttributes, 整数型

    .参数 bManualReset, 逻辑型

    .参数 bInitialState, 逻辑型

    .参数 lpName, 文本型