PB运行的程序只能运行一次

 

1．首先在global external functions声明外部函数如下:
　　FUNCTION long FindWindowA( ulong Winhandle, string wintitle ) Library ″user32″
　　然后在application的 Open 事件中加入如下代码:
　　ulong l_handle, lu_class
　　string ls_name
　　ls_name = ″我的系统″ ／／ 此处ls_name为系统主窗口的标题Title
　　l_handle = FindWindowA(lu_class, ls_name)
　　if l_handle > 0 then
　　MessageBox(″提示信息″, ″应用程序″ ＋ This.AppName ＋ ″已经运行,不能多次启动！″)
　　Halt Close
　　else
　　open(w_main) ／／ 此处为系统主窗口
　　end if
　　这种方法是PowerBuilder联机帮助中的一个例子，是以系统主窗口的标题Title作为判别依据，若有其它与此Title同名应用程序在运行，再想启动此程序也会报应用程序已经运行。你可以将Title设为“计算器”，然后启动Windows附件中计算器程序，再运行你的PB应用程序试试。

 

2．声明外部函数：
　　function ulong CreateMutexA (ulong lpMutexAttributes, int bInitialOwner, ref string lpName) library ″kernel32.dll″
　　function ulong GetLastError () library ″kernel32.dll″
　　然后在application的 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
　　这种方法必须在应用程序编译成可执行文件.exe后才有效。