首页 / 操作系统 / Linux / 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.本文永久更新链接地址：http://www.linuxidc.com/Linux/2015-01/112024.htm