.......

   public

   aa:word;

   .......

   procedure TForm1.FormCreate(Sender: TObject);

   begin

   //搜索系統(tǒng)數(shù)據(jù)庫看程序是否正在運(yùn)行

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

   //假如沒有找到該EXE文件，就把此EXE文件名添加到系統(tǒng)數(shù)據(jù)庫

   aa := GlobalAddAtom('' Project1'')

   else

   begin  //如果該程序已經(jīng)運(yùn)行，顯示信息并退出程序

   MessageDlg(''該程序正在運(yùn)行！'', mtWarning, [mbOK], 0);

   Halt;

   end;

   end;

   .......

   procedure TForm1.FormDestroy(Sender: TObject);

   begin

   { 退出程序時(shí)，從數(shù)據(jù)表中刪除添加的文件名 }

   GlobalDeleteAtom(aa);

   end;