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

  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;  

You may also like...

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据

网站搬迁至国外服务器,访问稍慢,请耐心等待! 忽略