A-A+

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

2017年03月10日 技术信息 暂无评论 阅读 1,189 次
  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;  
标签:
Anchep

给我留言