如何在不同程式間溝通狀態

[tim]

在全域變數中, 可以利用
ATOM GlobalAddAtom( LPCTSTR lpString // pointer to the string to add );
來進行新增一全域定義的功能, 該 API 會回傳一個 ATOM 為
定義好的新 instance, 在 delphi 中, ATOM 是 ( ATOM = Word;) 一個 word 型態的
變數, 利用 GlobalAddAtom 新增的定義, 可以輕易地在別的程式中利用
ATOM GlobalFindAtom( LPCTSTR lpString // pointer to the string to find );
來找尋是否已定義該值, 若是回傳 0 的話, 代表尚未定義, 若有傳回
值的話, 代表已定義了.
另外可以使用
ATOM GlobalDeleteAtom( ATOM nAtom // atom to delete );
來刪除已定義的變數, 但是若是由 GlobalAddAtom 新增多次相同的定義, 則亦必須
使用 GlobalDeleteAtom 來進行相同次數的刪除才可以完全消全該變數定義.
以下所列為讀取變數定義, 新增變數定義, 刪除變數定義的範例!

代碼: 選擇全部

     
    procedure Tform1.Button1Click(Sender: TObject); 
    begin 
      showmessage(inttostr(GlobalFindAtom('abc'))); 
    end; 
     
    procedure Tform1.Button2Click(Sender: TObject); 
    begin 
      GlobalAddAtom('abc'); 
    end; 
     
    procedure Tform1.Button3Click(Sender: TObject); 
    begin 
      showmessage(inttostr(GlobalDeleteAtom(GlobalFindAtom('abc')))); 
    end;