限制程序多次运行方法II

(1)在全局的外部函数中写:

Function ulong CreateMutexA (ulong lpMutexAttributes, int bInitialOwner, ref string lpName) library 'kernel32.dll'
Function ulong GetLastError () library 'kernel32.dll'

(2)在应用的Open事件中写如下代码

ulong ll_mutex, ll_err
string ls_mutex_name

if handle (GetApplication (), false) <> 0 then
ls_mutex_name = this.AppName + char (0)
ll_mutex = CreateMutexA (0, 0, ls_mutex_name)
ll_err = GetLastError ()
if ll_err = 183 then
// 程序已经运行
MessageBox ('提示信息', '程序已经运行了！')
Halt close
else
// 程序未运行
open(w_main)
end if
else//开发模式
open(w_main)
end if