在PB中防止程序二次运行

 

在PB中防止程序二次运行

 

1、声明外部函数
Function Long CreateMutexA(long lpMutexAttributes,boolean bInitialOwner ,   String lpName)Library "kernel32.dll"  
Function Long GetLastError()Library   "kernel32.dll"

2、代码
//--------------------------------------------------------------------//
//功能    ：防止程序二次运行
//          该模块在程序编译后方有效
//编写日期：2007-06-08
//编者    ：一叶飘零
string ls_s
long ll_ret
IF Handle(GetApplication())<>0 THEN
ls_s="mutex_name"  

   ll_ret=CreateMutexA(0,false,ls_s)      

  ll_ret=GetLastError()  

   if ll_ret<>0 then  

              messagebox("系统提示","本程序已经运行,您不能再打开它!")  

       halt  

       return  

   end if  

end if  

//--------------------------------------------------------------------//