一个服务程序判断启动的问题

Question

我做了一个服务程，如何序判断已经启动了，提示用户不要在运行该程序呢？

Answer 1

声明一全局变量：onlyatom:atom;
create事件:
  //程序只运行一次
  if GlobalFindAtom('project1') = 0 then  { 假如没有找到，就添加到数据库}
    onlyatom := GlobalAddAtom('project1')
  else
    begin
      MessageDlg('程序已经运行!', mtWarning, [mbOK], 0);
      Halt;
  end;destory事件：
  GlobalDeleteAtom(onlyatom);