ATOM全局原子

一、什么叫原子表和原子函数？

　　Win32系统中，为了实现信息共享，系统维护了一张全局原子表，用于保存字符串与之对应的标志符的组合。应用程序在原子表中可以放置字符串,并接收一个16位整数值(叫做原子,即atom),它可以用来提取该字符串.放在原子表中的字符串叫做原子的名字;

二、关于原子表

　　系统提供许多原子表.每个原子表用于不同的目的;例如,动态数据交换(DDE)应用程序使用全局原子表(global atom table)与其他应用程序共享项目名称和主题名称字符串.不用传递实际的字符串,一个DDE应用程序传递全局原子给它的父进程.父进程使用原子提取原子表中的字符串

　　关于对原子的操作，有一组专门的API函数：

　　GlobalAddAtom 在表中增加全局原子

　　GlobalDeleteAtom 在表中删除全局原子

　　GlobalFindAtom 在表中搜索全局原子

　　GlobalGetAtomName 从表中获取全局原子

三、全局原子的函数

在使用registerHotKey等函数时经常要得到一个唯一标识，这是就需要GlobalAddAtom这个函数得到一个

全局唯一标识，相关函数如下：

ATOM GlobalFindAtom(          LPCTSTR lpString);
作用：在全局原子列表中查找是否存在指定字符串。
lpString为要查找的字符串名。
函数返回值：
如果在全局原子中存在要查找的字符串，则返回此字符串对应的ID值。没有找到则返回0。
**********************************************************************
ATOM GlobalAddAtom(          LPCTSTR lpString);
作用：增加一个字符串到全局原子列表中，并返回一个唯一标识值。
lpString为要添加到全局原子表中的字符串。
函数返回值：
如果成功返回一个新增加的全局原子。失败返回0。
***********************************************************************
ATOM GlobalDeleteAtom( ATOM nAtom);
作用：进少对指定全局原子的引用数量，如果引用数量为零，则会在全局原子列表中删除此原子。
此函数一直返回0；
*******************************************************************************
UINT GlobalGetAtomName(          ATOM nAtom,
    LPTSTR lpBuffer,
    int nSize
);
作用：返回指定原子所对应的字符串。
参数；nAtom指定查找的原子
lpBuffer存放字符串的缓冲区；
nSize缓冲区大小；
返回值；成功返回缓冲区接受长度。失败返回0.

四、全局原子的使用

 program Project1;

  uses
    windows,
    Forms,
    Dialogs,
    Unit1 in 'Unit1.pas' {Form1};

  {$R *.res}

  const
    myatom='myatom';
  begin
    if GlobalFindAtom(myatom)=0 then
    begin
      GlobalAddAtom(myatom);
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
      GlobalDeleteAtom(GlobalFindAtom(myatom));
    end
    else
      showmessage('程序已运行');
  end.

在c++中的使用（仅供借鉴）

       1. 可以用这种方法实现避免程序二次启动。基本处理如下：

　　if (GlobalFindAtom(Atom) != 0)//在系统原子表中找原子

　　{

　　::MessageBox(NULL,"已经运行了一个实例!",Application->Title.c_str(),MB_OK|MB_SYSTEMMODAL);

　　     return FALSE;

　　}

　　GlobalAddAtom(Atom);//增加原子

　　2. 进程之间传送数据

　　发送进程：

　　ATOM atom=::GlobalAddAtom(str.GetBuffer(0)); //使用全局原子表进行进程间通讯字符数应小于127。

　　::PostMessage(g_hWnd,WM_XXX,(WPARAM)atom,0);

　　接受进程：

　　CString str;

　　::GlobalGetAtomName((ATOM)wParam,str.GetBufferSetLength(80),80);

　　::GlobalDeleteAtom((ATOM)wParam);