易语言禁止重复运行源码

.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

.如果真 (是否重复运行 ())
    信息框 (“已经运行了”, 16, “Error”, )
    结束 ()
.如果真结束


.子程序 取路径, 文本型
.局部变量 路径, 文本型

路径 ＝ 取空白文本 (256)
GetModuleFileName (0, 路径, 256)
返回 (路径)

.子程序 取特征, 整数型
.参数 数据, 字节集

置入代码 ({ 86, 83, 87, 82, 81, 139, 69, 8, 139, 0, 133, 192, 126, 83, 131, 192, 8, 139, 248, 139, 223, 87, 50, 192, 94, 139, 69, 8, 139, 0, 139, 64, 4, 139, 248, 82, 252, 51, 201, 73, 139, 209, 51, 192, 51, 219, 172, 50, 193, 138, 205, 138, 234, 138, 214, 182, 8, 102, 209, 235, 102, 209, 216, 115, 9, 102, 53, 32, 131, 102, 129, 243, 184, 237, 254, 206, 117, 235, 51, 200, 51, 211, 79, 117, 213, 247, 210, 247, 209, 139, 194, 193, 192, 16, 102, 139, 193, 89, 90, 95, 91, 94, 201, 194, 4, 0 })
返回 (0)

.子程序 读值, 整数型
.参数 指针, 整数型

置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
返回 (0)

.子程序 写值, 整数型
.参数 指针, 整数型
.参数 数值, 整数型

置入代码 ({ 139, 69, 8, 139, 77, 12, 137, 8, 201, 194, 8, 0 })
返回 (0)

.子程序 是否重复运行, 逻辑型, , QQ:377343266
.局部变量 句柄, 整数型
.局部变量 指针, 整数型
.局部变量 Name, 文本型

Name ＝ 到文本 (取特征 (读入文件 (取路径 ())))
句柄 ＝ OpenFileMapping (4, 1, Name)
.如果真 (句柄 ＞ 0)
    指针 ＝ MapViewOfFile (句柄, 4, 0, 0, 0)
    .如果真 (指针 ＞ 0)
        句柄 ＝ 读值 (指针)
        UnmapViewOfFile (指针)
        .如果真 (IsWindow (句柄))
            SwitchToThisWindow (句柄, 1)
            返回 (真)
        .如果真结束

    .如果真结束
    CloseHandle (句柄)
.如果真结束
句柄 ＝ CreateFileMapping (-1, 0, 4, 0, 4, Name)
.如果真 (句柄 ＞ 0)
    指针 ＝ MapViewOfFile (句柄, 2, 0, 0, 0)
    .如果真 (指针 ＞ 0)
        写值 (指针, 取窗口句柄 ())
        UnmapViewOfFile (指针)
        返回 (假)
    .如果真结束
    CloseHandle (句柄)
.如果真结束
返回 (假)

@woxl