傳送端
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;    const
   WM_TEST=49519;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  public
   str:array [0..24] of Char;
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
temp:Thandle;
begin
strcopy(str,pchar(Edit1.text));
SendMessage(HWND_BROADCAST,WM_CMTCCID,Longint(@str),application.Handle);
end;    end.

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,tlhelp32, ShellAPI, PSAPI;    const
   WM_TEST=49519;    type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
  public
   procedure Wndproc(var Message:TMessage);override;
  end;    var
  Form1: TForm1;
  str:array[0..24] of char;    implementation    {$R *.dfm}    procedure TForm1.Wndproc(var Message:TMessage);
var
AProcessID,WridCount:DWORD;
gg:longbool;
pt:THandle;
begin
Case Message.Msg of
 WM_TEST:begin
         GetWindowThreadProcessId(Message.LParam, @AProcessID);
         pt:=openprocess(PROCESS_VM_READ,false,AProcessID);//要求打開拜訪行程
         gg:=ReadProcessMemory(pt,Pointer(message.WParam),@str,25,WridCount);//讀取記憶體內容
         Memo1.text:=Memo1.Text (pchar(@str));
         showMessage(inttostr(WridCount));
         showMessage(inttostr(message.lparam));
         ShowMessage(inttostr(longint((Pointer(message.WParam)))));
         end;
end;
inherited Wndproc(Message);
end;