为防止连编后的exe程序重复被打开，上网搜了一段代码：
cCaption="用友财务系统"
DECLARE INTEGER FindWindow IN win32api STRING cClass,STRING cCaption
IF FindWindow(0,cCaption)#0
_SCREEN.CAPTION=cCaption
=MESSAGEBOX("程序已经运行，请注意任务栏！",16,"提示")
QUIT
RETURN .F.
ENDIF
经过实际检测，只要一打开这个必然报错。

后经过调整为：
cCaption="用友财务系统"
DECLARE INTEGER FindWindow IN win32api STRING cClass,STRING cCaption
IF FindWindow(0,cCaption)#0
=MESSAGEBOX("程序已经运行，请注意任务栏！",16,"提示")
QUIT
RETURN .F.
else
_SCREEN.CAPTION=cCaption
ENDIF
解决问题，特此张贴，希望对于和我一样的小白有个帮助。
另外补充说明，如果和我一样是用主窗口做程序运行界面的，连编后第一次打开exe没反应，第二次报错已经运行，那么可能是你的config文件中把“SCREEN = off”问题，把他改成“SCREEN = on”试试。

补充说明：
若仍然反复出现报错（已经运行提示），请注意更换 cCaption="用友财务系统" 双引号内的名称，使之符合其他可是类库及项目的名称。这个出错，也容易导致报错。

[此贴子已经被作者于2018-6-25 13:51编辑过]

WinAPI也可以用 CreateMutex() 创建一个互斥体：

DECLARE LONG CreateMutex  IN Kernel32 STRING@, LONG, STRING@
DECLARE LONG GetLastError IN Kernel32
DECLARE LONG CloseHandle  IN Kernel32 LONG
cPrg  = PROGRAM()
hMutex = CreateMutex(NULL, 0, @cPrg)
IF GetLastError() != 183    && ERROR_ALREADY_EXISTS
    MESSAGEBOX(cPrg + " 正常启动运行")
ELSE
    MESSAGEBOX(cPrg + " 不能重复运行")
ENDIF
CloseHandle(hMutex)
CLEAR DLLS
RETURN

感谢大侠“吹水佬”的关注，比起前面一个容易反复报错，您的代码经测试非常好用。
    各位和我一样的白学生，可以将上面if后、elese前的messagebox（）信息删掉，换成你的主程序环境设置代码即可。

我基本不用API的东东，
VFP自制程序启动以后，再次启动，那就演化为［多任务］
楼主提出的
config文件中把“SCREEN = off”问题，把他改成“SCREEN = on”
我也从来来不用config文件

牛B牛B

用 CreateMutex() 创建一个互斥体是正解，按楼主的方法，如果有一个文件夹恰好叫“用友财务系统”并且已经打开，运行你的程序就会提示重复运行了。