在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  
//--------------------------------------------------------------------//
 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值