如何限制程序只能运行一个

[Thinbug]

程序如果运行好几次开几个的话,操作数据库就会有问题,如果限制这个进程在同一时间只能有1个??有没有相关的api函数,或者是其他什么好方法

[hanker1314520]

我写了一个函数啊，在同一台机上只能运行程序一次

//*功能：只允许本机运行一个实例
函数：uf_application_isrunning
定义：public
返回值：boolean
string ls_AppName
IF Handle(GetApplication())>0 THEN
ls_AppName=GetApplication().AppName
CreateMutexA(0,TRUE,ls_AppName)
IF GetLastError()=183 THEN RETURN TRUE
END IF
RETURN FALSE

[Thinbug]

提示c0052: bad argument list for function: createmutexa

[spring_cj]

gf_checkishasrun
return : unsignedlong
parameter:string fs_mainwindowtitle

string ls_classname
ulong ll_ret
setnull(ls_classname)
ll_ret = FindWindow(ls_classname,fs_mainwindowtitle)
return ll_ret

声明：FUNCTION ulong FindWindow(ref string lpClassName,ref string lpWindowName) LIBRARY "user32.dll" ALIAS FOR "FindWindowA"

[li_d_s]

声明一下API:
Public Function Long CreateMutexA(Long lpMutexAttributes, Long bInitialOwner, String lpName) Library "kernel32"