开发学院软件开发Delphi Delphi只能运行一个程序实例的两种方法 阅读

Delphi只能运行一个程序实例的两种方法

 2010-10-19 13:55:02 来源:WEB开发网   
核心提示:两种方面都是运行在project/view source里编辑,一个是利用Windows系统的全局原子,Delphi只能运行一个程序实例的两种方法,另一个是利用API函数比较同类同名窗体,1.全局原子 利用向系统添加全局原子的方法,用GlobalFindAtom来检查是否已经存在该全局原子,最后在程序结束时用Globa

两种方面都是运行在project/view source里编辑。一个是利用Windows系统的全局原子,另一个是利用API函数比较同类同名窗体。

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

program Project1;
Uses Windows
const
  iAtom='SingleApp';
begin
  if GlobalFindAtom(iAtom)=0 then
  begin
  GlobalAddAtom(iAtom);
  Application.Initialize;
  Application.CreateForm(TForm1,Form1);
   Application.Run;
   GlobalDeleteAtom(GlobalFindAtom(iAtom));
 end
 else
  MessageBox(0,'你已经运行了这个投影程序','',mb_OK);
end.


2.API函数

program Project1;
  uses
   Forms,Windows, Unit1 in 'Unit1.pas' {Form1};
  var Hwnd:THandle;
begin
   Hwnd:=FindWindow('TForm1','窗体标题'); //查找是否已有窗体(窗体标题)
   if Hwnd<>0 then
   begin
    SetForegroundWindow(Hwnd); //激活已运行的程序实例,但程序最小化时无效
    MessageBox(0,'你已经运行了这个投影程序','',mb_OK);
    Application.Terminate; //终止本次实例
  end
  else
   begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;//运行本次实例
  end;
end.

 

Tags:Delphi 只能 运行

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
更多精彩
    赞助商链接

    热点阅读
      焦点图片
        最新推荐
          精彩阅读