请教：顶层表单做软件主界面的exe如何防止软件重复运行，之前因为不是用顶层表单做主界面可以用下面的方法实现：
*-- 设置软件唯一运行模式
    SET LIBRARY TO mypath+"\ocx\foxtools.fll" ADDITIVE
    LOCAL getwind
    GetWind = RegFn("FindWindow", "CC", "I")
    wclass=0
    winname="『测试软件』"
    apphand=CallFn(GetWind,wclass ,winname)
    IF apphand<>0  &&如果找到窗口，停止运行
       =MESSAGEBOX("软件已在运行中，不能重复运行!"+CHR(13)+CHR(13)+"很有可能你已将程序最小化了！"+CHR(13);
       +"在最下面的状态栏点它下就可以了！",64,"提示信息")
       QUIT
    ENDIF

大佬，用你的代码还是可以重复启动 ( 我的是win10系统

是EXE文件

我用了这句 没有出来提示 MESSAGEBOX 直接同时打开两个来了，怪地，我再试试
*-- 设置软件唯一运行模式
DECLARE LONG CreateMutex  IN Kernel32 STRING@, LONG, STRING@
DECLARE LONG GetLastError IN Kernel32
DECLARE LONG CloseHandle  IN Kernel32 LONG

szPrg  = PROGRAM()
hMutex = CreateMutex(NULL, 0, @szPrg)

IF GetLastError() = 183    && ERROR_ALREADY_EXISTS
    MESSAGEBOX(szPrg + " 不能重复运行")
    QUIT
ENDIF

CloseHandle(hMutex)