zoukankan      html  css  js  c++  java
  • GlobalGetAtomName GlobalDeleteAtom 引用 WinAPI: AddAtom、DeleteAtom、FindAtom、GetAtomName、GlobalAddAtom、GlobalDeleteAtom、GlobalFindAtom、GlobalGetAtomName

    http://www.cnblogs.com/del/archive/2008/02/28/1085124.html

     

    这是储存字符串的一组 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;
  • 相关阅读:
    [BZOJ3223] [Tyvj1729] 文艺平衡树 (splay)
    [BZOJ3098] Hash Killer II
    [BZOJ3000] Big Number (Stirling公式)
    [BZOJ2048] [2009国家集训队] 书堆
    [BZOJ1707] [Usaco2007 Nov] tanning分配防晒霜 (贪心)
    BZOJ2482: [Spoj1557] Can you answer these queries II
    BZOJ2157: 旅游
    BZOJ2795: [Poi2012]A Horrible Poem
    BZOJ3681: Arietta
    BZOJ3218: a + b Problem
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/6396541.html
Copyright © 2011-2022 走看看