UINT RegisterClipboardFormat(
    LPCTSTR lpszFormat 	  // 新剪贴板数据格式的名称
   );

HGLOBAL GlobalAlloc(
    UINT uFlags,  	//分配到的内存属性
    DWORD dwBytes 	// 需要内存分配的空间大小
   );
LPVOID GlobalLock(
    HGLOBAL hMem  	// 需要加锁的内存“句柄”
   );

DWORD GetCurrentProcessId(VOID)

HANDLE OpenProcess(
    DWORD dwDesiredAccess,	// 要打开的进程的访问模式
    BOOL bInheritHandle,	// 该进程句柄是否在子线程中继承
    DWORD dwProcessId 	// 进程的标示号
   );

BOOL ReadProcessMemory(
    HANDLE hProcess,  	    //进程句柄
    LPCVOID lpBaseAddress,	// 要读取内存的起始地址
    LPVOID lpBuffer,	       //存放读取的数据的变量
    DWORD nSize,	           //需要读取的字节数
    LPDWORD lpNumberOfBytesRead 	// 实际读取到的字节数
   );

TFriend=packed record
     name    :array[1..8] of char;
     age     :byte;
     address :array[1..30] of char;
  end;

1．WM_Datasend_byClpbrd=WM_user+1000;  //用于通过剪贴板的进程数据交换的方法的消息；
2．WM_DataSend_byMemory=WM_user+1001;// 直接内存读取的进程数据交换方法的消息；
3．receivewindowcaption='DataReceiver';     //接收数据进程窗口的标题；
4．receivewindowclassname='Data Receive Window';//接受数据进程窗口的类别名称；
5．userDefineformat='process data exchange'; //自定义剪贴板数据格式名称；

procedure TForm1.Button1Click(Sender: TObject);
var
   wnd     :Hwnd;
   Friend  :TFriend;
   hmem    :Thandle;
   datapointer :pointer;
   CF_User  :Uint;
begin
   //寻找数据接受进程的窗口
   wnd:=findwindow(receivewindowclassname,receivewindowcaption);
   //如果找到了向剪贴板复制数据并且向数据接受进程发送消息
   if wnd<>0 then  
begin
   //申请内存
         hmem:=globalAlloc(GMEM_MOVEABLE,sizeof(friend));
         //给记录赋值
         strpcopy(@friend.name,edit1.text);
         friend.age:=byte(spinedit1.Value);
         strpcopy(@friend.address,edit2.text);
         //获取申请到的内存地址并且把记录的值导入内存
         DataPointer := GlobalLock(hmem);
         //把记录数据复制到Global内存中
         move(friend,datapointer^,sizeof(friend));
         //注册或获取新的剪贴板数据格式标号
         CF_User:=registerclipboardformat(userdefineformat);
         //向剪贴板复制数据
         clipboard.Open;
         clipboard.SetAsHandle(CF_USER,hmem);
         clipboard.Close;
         //向接收进程窗口发送消息
         sendmessage(wnd,WM_Datasend_byClpbrd,0,0);
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   wnd       :Hwnd;
   Friend    :TFriend;
Begin
   //寻找数据接受进程的窗口
   wnd:=findwindow(receivewindowclassname,receivewindowcaption);
   //如果找到了向数据接收进程窗口发送消息
   if wnd<>0 then
begin
   //对记录赋值
         strpcopy(@friend.name,edit1.text);
         friend.age:=byte(spinedit1.Value);
         strpcopy(@friend.address,edit2.text);
         //发送消息，把发送进程的进程标示号作为Wparam
         //把记录地址作为Lparam进行传递
       sendmessage(wnd,WM_DataSend_byMemory,
getcurrentprocessID,lparam(@Friend));
      end;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
    begin
      inherited CreateParams(Params);
      params.Caption:=receivewindowcaption;
      Params.WinClassName :=receivewindowclassname;
    end;

procedure Tform1.wndproc(var message:Tmessage);
   var
    processhnd   :Thandle;
      Friend       :TFriend;
numread     :dword;
hmem       :Thandle;
clipdata      :pointer;
CF_User     :Uint;
        Begin
           Case message.msg of
               //处理剪贴板方式发送过来的消息
WM_Datasend_byClpbrd:
   Begin
     //注册或获取新的剪贴板数据格式标号
     CF_User:= registerclipboardformat(userdefineformat);
     if clipboard.HasFormat(CF_User) then
        begin
           //获取剪贴板的内容，并且分别赋值给三个Edit
           hmem:=clipboard.GetAsHandle(CF_user);
           clipdata:=globallock(hmem);
           if clipdata<>nil then
              begin
                 move(clipdata^,Friend,sizeof(Friend));
                 edit1.text:=Friend.name;
                 edit2.text:=inttostr(Friend.age);
                 edit3.text:=Friend.address;
              end;
        end;
       message.Result:=1;
   End;
//处理直接内存读取发送过来的消息
               WM_DataSend_byMemory:
                  Begin
                     //获取发送进程的“进程句柄”，设置访问模式为“读”
                     processhnd:=openprocess(PROCESS_VM_READ,
false,message.WParam);
                     //读取发送进程的内存数据
  readprocessmemory(processhnd,
ptr(message.lparam),
@friend,sizeof(friend),numread);
edit1.text:=Friend.name;
    edit2.text:=inttostr(Friend.age);
    edit3.text:=Friend.address;
     closehandle(processhnd);
     message.result:=1;
                  End;
Else
   //对于其它消息依然按照原来的方法进行消息处理
Inherited wndproc(message);
        End;