A-A+

Delphi中根据程序名称判断是否多开

2017年03月10日 技术信息 暂无评论 阅读 241 次
  1. procedure TForm1.FormCreate(Sender: TObject);  
  2. var  
  3. errno:integer;  
  4. hmutex:hwnd;  
  5. begin  
  6. hmutex:=createmutex(nil,false,pchar(application.Title));  
  7. errno:=getlasterror;  
  8. if errno=error_already_exists then  
  9. begin  
  10. ShowMessage('程序已经在运行了');  
  11. Application.Terminate;  
  12. end;  
  13. end;  
打赏
标签:
艾克杨鹏

给我留言

Copyright © 我的280i 保留所有权利.   Theme  Ality 陕ICP备14000108号
电话:029-61858280 QQ:82774815

用户登录 ⁄ 注册

分享到: