您现在的位置:首页 >> 基础算法 >> window基础 >> 内容

Delphi用原子表实现只运行一个实例

时间:2011/9/3 15:35:31 点击:

  核心提示:program OncePerSessionTrialTest;usesWindows,Forms,mainUnit in 'mainUnit.pas' {FormMain};{$R *.res}be...
program OncePerSessionTrialTest;

uses
  Windows,
  Forms,
  mainUnit in 'mainUnit.pas' {FormMain};

{$R *.res}

begin
  Application.Initialize;

  if 0 = GlobalFindAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') then
  begin
    GlobalAddAtom('SOME-UNIQUE-TEXT-RELATED-TO-THIS-APPLICATION') ;
    Application.CreateForm(TFormMain, FormMain) ;
    Application.Run;
  end
  else
  begin
    Application.MessageBox('本程序已运行' ) ;
  end;
end.

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号