PB 里怎样使程序只能运行一个实例

oopser

PB 里怎样使程序只能运行一个实例

tiger_mars

app的open写
ls_temp = '随便一个字符串'
gl_mutex = CreateMutex(0,0,ls_temp)
i = getlasterror()
if I = 183 and handle(GetApplication()) > 0 then
        messagebox('信息','xx系统进程已在运行中！',exclamation!)
        return
end if

函数声明
function ulong CreateMutex (ulong lpMutexAttributes, int bInitialOwner, ref string lpName) library  "kernel32.dll" ALIAS FOR "CreateMutexA"
function ulong GetLastError () library  "kernel32.dll"
function ulong ReleaseMutex(LONG H) library  "kernel32.dll"

unkmass

long ll_winhandle
string ls_class,ls_winTitle
setNull(ls_class)
ls_winTitle = "程序主窗口名称"
//检测主窗口是否已存在
ll_winhandle = FindWindowA(ls_class,ls_winTitle)
if ll_winhandle > 0 then
        BringWindowToTop(ll_winhandle)
        halt close
end if

unkmass

Function ulong BringWindowToTop(ulong HWND) Library "user32.dll"
Function ulong FindWindowA (String lpClassName,String lpWindowName) Library "user32.dll"