Delphi中保证程序只运行一个实例的方法总结

Delphi中保证程序只运行一个实例的方法总结

在做Delphi的一个小工具的时候，要让自己的程序保证只启动一个实例如下有几种方法实现：

1.使用系统函数FindWindows()函数来实现：

program Project1;

uses
  Forms, Windows,//添加Windows单元
  offertool in 'offertool.pas' {foffertool},
  MyThread in 'MyThread.pas',
  offerchild in 'offerchild.pas' {fofferchild};

{$R *.res}

var
  Hwnd:THandle;  //添加一个句柄

begin
  Hwnd := FindWindow('Tfoffertool',nil);  //参数1：窗口类名，参数2：窗口标题
  if Hwnd=0 then
  begin
    Application.Initialize;
    Application.CreateForm(Tfoffertool, foffertool);
    Application.Run;
  end
  else
  begin
    Application.MessageBox('已经运行了一个实例','提示',MB_OK);
  end;
end.

2.使用使用互斥对象来实现：

program Project1;

uses
  Forms, Windows, //添加Windows单元
  offertool in 'offertool.pas' {foffertool},
  MyThread in 'MyThread.pas',
  offerchild in 'offerchild.pas' {fofferchild};

{$R *.res}

var
  myMutex:THandle; //添加一个互斥锁句柄

begin
  myMutex := CreateMutex(nil,True,'新股代理申购报盘');
  if GetLastError<>ERROR_ALREADY_EXISTS then
  begin
    Application.Initialize;
    Application.CreateForm(Tfoffertool, foffertool);
    Application.Run;
  end
  else
    Application.MessageBox('已经运行了一个实例','提示',MB_OK);
end.

本文永久更新链接地址：