Question

请教如何限制重复运行同一个PB程序

Answer 1

通过CreateMutexA函数创建一个互斥体，然后用GetLastError来获取返回值判断是否重复开启同一个应用。

外部函数声明

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

APP的open事件代码

string ls_mutex_name
long   ll_mutex
long ll_err
if handle (GetApplication(),false) <> 0 then 
ls_mutex_name = this.AppName
ll_mutex      = CreateMutexA (0,0,ls_mutex_name) 
ll_err        = GetLastError () 
if ll_err = 183 then 
messagebox("","程序重复开启")
Halt close 
end if
end if 
open(w_open)