.......

   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;