防止多个相同的EXE程序同时运行

    .......

    public

    aa:word;

    .......

    procedure TForm1.FormCreate(Sender: TObject);

    begin

    //搜索系统数据库看程序是否正在运行

    if GlobalFindAtom(''Project1'') =0  then  // Project1为EXE文件名

    //假如没有找到该EXE文件，就把此EXE文件名添加到系统数据库

    aa := GlobalAddAtom('' Project1'')

    else

    begin  //如果该程序已经运行，显示信息并退出程序

    MessageDlg(''该程序正在运行！'', mtWarning, [mbOK], 0);

    Halt;

    end;

    end;

    .......

    procedure TForm1.FormDestroy(Sender: TObject);

    begin

    { 退出程序时，从数据表中删除添加的文件名 }

    GlobalDeleteAtom(aa);

    end;