Question

PB中怎样限制程序只能打开一个

Answer 1

使用windows自带的库函数'kernel32.dll' ，来判断程序是否已经运行,示例如下：

//外部函数声明
Function ulong   GetLastError () library 'kernel32.dll' 
Function ulong   CreateMutexA (ulong lpMutexAttributes, int bInitialOwner, ref string lpName) library 'kernel32.dll' 

//app 的open事件代码
string  ls_mutex_name
ulong  ll_mutex
ulong   ll_err 
if handle (GetApplication(),false) <> 0 then 
ls_mutex_name = AppName
ll_mutex      = CreateMutexA (0,0,ls_mutex_name) 
ll_err        = GetLastError() 
if ll_err = 183 then 
messagebox("","该程序正在运行")
Halt close
end if
end if