delphi只允许运⾏⼀个实例的三种⽅法转
让程序只运⾏⼀个实例
Windows 下⼀个典型的特征就是多任务，我们可以同时打开多个窗⼝进⾏操作，也可以同时运⾏程序的多个实例，⽐如可以打开许多个资源管理器进⾏⽂件的移动复制操作。但有时出于某种考虑（⽐如安全性），我们要做出⼀些限制，让程序只能够运⾏⼀个实例。在Delphi编程中，笔者总结出了以下⼏种⽅法：
  ⼀、查窗⼝法
  这是最为简单的⼀种⽅法。在程序运⾏前⽤FindWindow函数查具有相同窗⼝类名和标题的窗⼝，如果到了，就说明已经存在⼀个实例。在项⽬源⽂件的初始化部分添加以下代码：
  Program OneApp
  Uses
  Forms,Windows;（这⾥介绍的⼏种⽅法均需在项⽬源⽂件中添加Windows单元，以后不再重复了）
  Var Hwnd:Thandle;
  Begin
  Hwnd:=FindWindow(‘TForm1’，‘SingleApp’);
  If Hwnd=0 then
  Begin
  Application.Initialize;
  Application.CreateForm(Tform1, Form1);
  Application.Run;
  End;
  End;
  FindWindow()函数带两个参数，其中的⼀个参数可以忽略，但笔者强烈建议将两个参数都⽤上，免得凑巧别的程序也在使⽤相同的类名，就得不到正确的结果了。另外，如果是在Delphi IDE窗⼝中运⾏该程序，将⼀次都不能运⾏，因为已经存在相同类名和标题的窗⼝：设计时的窗体。
  ⼆、使⽤互斥对象
  如果觉得查窗⼝的⽅法效率不太⾼的话，可以使⽤创建互斥对象的⽅法。尽管互斥对象通常⽤于同步连接，但⽤在这个地⽅也是⾮常⽅便的。仅⽤了4句代码就轻松搞定。
  VAR Mutex:THandle;
  begin
  Mutex:=CreateMutex(NIL,True,‘SingleApp’);
  IF GetLastError<>ERROR_ALREADY_EXISTS THEN//如果不存在另⼀实例
  BEGIN
  Application.CreateHandle;
  Application.CreateForm (TExpNoteForm, ExpNoteForm);
  Application.Run;
  END;
  ReleaseMutex(Mutex);
  end.
  三、全局原⼦法
  我们也可以利⽤向系统添加全局原⼦的⽅法，来防⽌多个程序实例的运⾏。全局原⼦由Windows 系统负责维持，它能保证其中的每个原⼦都是唯⼀的，管理其引⽤计数，并且当该全局原⼦的引⽤计数为0时，从内存中清除。我们⽤GlobalAddAtom 函数向全局原⼦添加⼀个255个字节以内的字符串，⽤GlobalFindAtom来检查是否已经存在该全局原⼦，最后在程序结束时⽤GlobalDeleteAtom函数删除添加的全局原⼦。⽰例如下：
  Uses Windows
  const iAtom=‘SingleApp’;
  begin
  if GlobalFindAtom(iAtom)=0 then
  begin
delphi app  GlobalAddAtom(iAtom);
  Application.Initialize;
  Application.CreateForm(TForm1,Form1);
  Application.Run;
  GlobalDeleteAtom(GlobalFindAtom(iAtom));
  end
  end
  else
  MessageBox(0,‘You can not run a second copy of this App’,‘’,mb_OK);
  end.
  利⽤全局原⼦的引⽤计数规则，我们还可以判断当前共运⾏了该程序的多少个实例：  var i:Integer;
  begin
  I:=0;
  while GlobalFindAtom(iAtom)<>0 do
  begin
  GlobalDeleteAtom(GlobalFindAtom(iAtom));
  i:=i＋1;
  end;
  ShowMessage(IntToStr(I));
  end;
  以上⼏种⽅法在笔者的Delphi 4.0，中⽂Windows95下通过。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。