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

发布时间：2021-12-11 09:55:49 所属栏目：PHP教程来源：互联网

导读：在做Delphi的一个小工具的时候，要让自己的程序保证只启动一个实例如下有几种方法实现： 1.使用系统函数FindWindows()函数来实现： program Project1; uses Forms, Windows,//添加Windows单元 offertool in offertool.pas {foffertool}, MyThread in MyThread

在做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.

（编辑：应用网_丽江站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

php读取大文件最好的实	php无限遍历文件夹示例
php中实现过滤UBB代码	Laravel模板引擎Blade