如何防止一个程序运行多次

让程序只运行一个实例（Delphi篇） 
  Windows   下一个典型的特征就是多任务，我们可以同时打开多个窗口进行操作，也可以同时运行程序的多个实例，比如可以打开许多个资源管理器进行文件的移动复制操作。但有时出于某种考虑（比如安全性），我们要做出一些限制，让程序只能够运行一个实例。在Delphi编程中，笔者总结出了以下几种方法：   
　　一、   查找窗口法   
　　这是最为简单的一种方法。在程序运行前用FindWindow函数查找具有相同窗口类名和标题的窗口，如果找到了，就说明已经存在一个实例。在项目源文件的初始化部分添加以下代码：

program CheckNetTool;

uses

  Forms,

  windows,

  Messages,

  SysUtils,

  MainFrm in 'MainFrm.pas' {MainForm};

{$R *.res}

var

  MHandle: HWND;

begin

  MHandle := FindWindow('TMainForm',  '网络检测');   {网络检测'为主窗体Caption}

  if MHandle <> 0 then  

    SendMessage(MHandle, SW_SHOW, 1, 0)

  else

  begin

    Application.Initialize;

    Application.CreateForm(TMainForm, MainForm);   

    Application.Run;

  end

end.

   
　　FindWindow()函数带两个参数，其中的一个参数可以忽略，但笔者强烈建议将两个参数都用上，免得凑巧别的程序也在使用相同的类名，就得不到正确的结果了。另外，如果是在Delphi   IDE窗口中运行该程序，将一次都不能运行，因为已经存在相同类名和标题的窗口：设计时的窗体。   
　　二、使用互斥对象   
　　如果觉得查找窗口的方法效率不太高的话，可以使用创建互斥对象的方法。尽管互斥对象通常用于同步连接，但用在这个地方也是非常方便的。  
program CheckNetTool;

uses

  Forms,

  windows,

  MainFrm in 'MainFrm.pas' {MainForm};

{$R *.res}

var

  FMutex: HWND;

begin

  FMutex := CreateMutex(nil, True, '网络检测');   {网络检测'为主窗体Caption}

  if GetLastError <> ERROR_ALREADY_EXISTS then

  begin

    Application.Initialize;

    Application.CreateForm(TMainForm, MainForm);   

    Application.Run;

  end

  else

    Application.MessageBox('网络测试程序已经运行!', '提示');

  ReleaseMutex(FMutex); {释放互斥对象}

  CloseHandle(FMutex);

end.   
　　三、全局原子法   
　　我们也可以利用向系统添加全局原子的方法，来防止多个程序实例的运行。全局原子由Windows系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下：   
program CheckNetTool;

uses

  Forms,

  windows, 

  MainFrm in 'MainFrm.pas' {MainForm};

  const FAtom='SingleApp';

{$R *.res} 

begin

  if GlobalFindAtom(FAtom) = 0 then

  begin

    GlobalAddAtom(FAtom);

    Application.Initialize;

    Application.CreateForm(TMainForm, MainForm);

    Application.Run;

    GlobalDeleteAtom(GlobalFindAtom(FAtom));

  end

  else

    Application.MessageBox('网络测试程序已经运行!', '提示');

end.

最后

以上就是漂亮蜜粉为你收集整理的如何防止一个程序运行多次的全部内容，希望文章能够帮你解决如何防止一个程序运行多次所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。