문자열 GlobalAddAtom를 전송함으로써, GlobalGetAtomName 방식

단위 유니트 1; 

인터페이스는 

사용 
  윈도우, 메시지, SysUtils를, 변형, 클래스, 그래픽, 컨트롤, 양식, 
  대화 상자, StdCtrls; 

CONST 
  MW_MYMSG = WM_USER + 1 ; 

입력 
  TFormFF = 클래스 (TForm의) 
    EDIT1을 :은 TEdit 단계; 
    Button1을 TButton으로; 
    절차 Button1Click이라 (발신자 : TObject의);
  개인 
    { 개인 선언 } 
  공개 
    { 공공 선언 } 
    절차 WmMyMsg ( VAR 메시지 : TMessage); 메시지 MW_MYMSG;
  끝 ;

var에 
  FormFF : TFormFF; 

구현 

{ $의 R * .DFM } 

절차 TFormFF.Button1Click (발신자 : TObject의);
var에 
  의 wParam : 말씀; 
시작 
  // 创建原子 
  의 wParam = GlobalAddAtom ( ' ENG汉字' );
  // 发送 
  PostMessage를 (핸들 MW_MYMSG, wParam를, 0 )
 단부 ; 

절차 TFormFF.WmMyMsg ( VAR 메시지 : TMessage);
VAR의 
  A : 어레이 [ 0 .. 254 ] 의 샤아; 
  WA : 말씀; 
  명령 :문자열 ,
 선두 
  // 원자의 이름을 가져 
  GlobalGetAtomName (msg.wParam, @a, 255 );
   // 릴리스 시스템 자원 
  DeleteAtom (WA) 
  Edit1.Text : = a 및
 종료 , 

끝 .