WinAPI: AddAtom、DeleteAtom、FindAtom、GetAtomName、GlobalAddAtom、GlobalDeleteAtom、GlobalFindAtom、GlobalGetAtomName 这是储存字符串的一组 API. 通过 AddAtom 储存一个字符串, 返回一个 ID; GetAtomName 通过这个 ID 可返回储存的字符串; 还可以用 FindAtom 查找、用 DeleteAtom 删除已储存的字符串. 这个储存区有分本地(程序级)和全局(系统级)两种, 带 Global 前缀的是全局的[但在 Win32 下它们是否还有区别还有待考究]. 表中的字符串不分大小写, 如果重名过来, 会增加一个 ID 引用, 但会使用最先来的字符串. -------------------------------------------------------------------------------- //声明: AddAtom(   lpString: PChar {
    串指针} ): ATOM;          {
    返回串ID} DeleteAtom(   nAtom: ATOM     {
    串ID} ): ATOM;          {
    返回串ID; 失败返回0} FindAtom(   lpString: PChar {
    串指针} ): ATOM;          {
    返回串ID; 失败返回0} GetAtomName(   nAtom: ATOM;    {
    串ID}   lpBuffer: PChar;{
    缓冲区}   nSize: Integer  {
    缓冲区大小} ): UINT;          {
    返回串实际长度; 失败返回0} GlobalAddAtom(   lpString: PChar {
    串指针} ): ATOM;          {
    返回串ID} GlobalDeleteAtom(   nAtom: ATOM     {
    串ID} ): ATOM;          {
    返回串ID; 失败返回0} GlobalFindAtom(   lpString: PChar {
    串指针} ): ATOM;          {
    返回串ID; 失败返回0} GlobalGetAtomName(   nAtom: ATOM;    {
    串ID}   lpBuffer: PChar;{
    缓冲区}   nSize: Integer  {
    缓冲区大小} ): UINT;          {
    返回串实际长度; 失败返回0} -------------------------------------------------------------------------------- //举例: var   n1,n2: ATOM;   ps: array[0..254] of Char; begin   n1 := AddAtom('万一的 Delphi 博客');   n2 := AddAtom('万一的 DELPHI 博客');   GetAtomName(n1, ps, 255);   ShowMessage(ps); {
    万一的 Delphi 博客}   GetAtomName(n2, ps, 255);   ShowMessage(ps); {
    万一的 Delphi 博客} end;

 

private procedure BookMy(var msg:Tmessage);message WM_User+1000; procedure TForm1.BookMy(var msg: TMessage); var   n1:atom;   ps: array[0..254] of Char; begin if msg.Msg=WM_User+1000 then begin     n1:=msg.LParam;     GlobalGetAtomName(n1,ps,255);     Memo1.Lines.Add(ps);     GlobalDeleteAtom(n1); end; end; //Send PostMessage(FindWindow(nil,'TKSNOW'),WM_USER+1000,0,GlobalAddAtom('hello ftwsnow~!'));