zoukankan      html  css  js  c++  java
  • 防止再次运行同一个应用程序

          防止同时打开多个应用程序的实例,也就是同时只有一个程序在运行,再运行同一个程序时,会自动关闭,以下代码放在项目的.dpr(项目文件)中的Application.Initialize;上面。

          代码如下
    var
        hMutex: DWORD;
        Ret: Integer;
    {以上代码要放在begin..end上}

    hMutex :
    = 0;
        
    try
            hMutex :
    = CreateMutex(nil, False, 'eShapeOfClient'); //TRUE 标明该进程拥有此 Mutex 对象eShapeOfClient为自己的程序文件名或自己定义的任意名称
            Ret := GetLastError;
            
    if (Ret = ERROR_ALREADY_EXISTS) then //Mutex 对象是否存在
            begin
                ReleaseMutex(hMutex);
                Application.Terminate; 
    //退出程序
            end
            
    else if hMutex = ERROR_INVALID_HANDLE then
            begin
                InfoDlg(
    '此程序正在运行,关闭后请重新再试!');  //InfoDlg函数是自己定义的,通常用MessgeBox来代替
                Application.Terminate;;
            end;
        
    finally
            ReleaseMutex(hMutex);
        end;

          以上代码没有任何问题,但在运行第二个程序关闭时,也就是Application.Terminate; 会有屏闪,如果改成Exit;好像没有问题。
  • 相关阅读:
    Elasticsearch ES索引
    Eureka 服务注册与发现
    Cron 定时任务表达式
    如何在OS X上设置或更改默认的Java(JDK)版本?
    adb常用命令
    【charlse】charlse功能
    面试题
    【robotframework】robotframework基本使用
    【postman】postman使用教程
    【fiddler】fiddler基础
  • 原文地址:https://www.cnblogs.com/sonicit/p/827382.html
Copyright © 2011-2022 走看看