UINT RegisterClipboardFormat(
    LPCTSTR lpszFormat 	  // 新剪貼板數(shù)據(jù)格式的名稱
   );

HGLOBAL GlobalAlloc(
    UINT uFlags,  	//分配到的內(nèi)存屬性
    DWORD dwBytes 	// 需要內(nèi)存分配的空間大小
   );
LPVOID GlobalLock(
    HGLOBAL hMem  	// 需要加鎖的內(nèi)存“句柄”
   );

DWORD GetCurrentProcessId(VOID)

HANDLE OpenProcess(
    DWORD dwDesiredAccess,	// 要打開的進(jìn)程的訪問模式
    BOOL bInheritHandle,	// 該進(jìn)程句柄是否在子線程中繼承
    DWORD dwProcessId 	// 進(jìn)程的標(biāo)示號
   );

BOOL ReadProcessMemory(
    HANDLE hProcess,  	    //進(jìn)程句柄
    LPCVOID lpBaseAddress,	// 要讀取內(nèi)存的起始地址
    LPVOID lpBuffer,	       //存放讀取的數(shù)據(jù)的變量
    DWORD nSize,	           //需要讀取的字節(jié)數(shù)
    LPDWORD lpNumberOfBytesRead 	// 實(shí)際讀取到的字節(jié)數(shù)
   );

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;  //用于通過剪貼板的進(jìn)程數(shù)據(jù)交換的方法的消息；
2．WM_DataSend_byMemory=WM_user+1001;// 直接內(nèi)存讀取的進(jìn)程數(shù)據(jù)交換方法的消息；
3．receivewindowcaption='DataReceiver';     //接收數(shù)據(jù)進(jìn)程窗口的標(biāo)題；
4．receivewindowclassname='Data Receive Window';//接受數(shù)據(jù)進(jìn)程窗口的類別名稱；
5．userDefineformat='process data exchange'; //自定義剪貼板數(shù)據(jù)格式名稱；

procedure TForm1.Button1Click(Sender: TObject);
var
   wnd     :Hwnd;
   Friend  :TFriend;
   hmem    :Thandle;
   datapointer :pointer;
   CF_User  :Uint;
begin
   //尋找數(shù)據(jù)接受進(jìn)程的窗口
   wnd:=findwindow(receivewindowclassname,receivewindowcaption);
   //如果找到了向剪貼板復(fù)制數(shù)據(jù)并且向數(shù)據(jù)接受進(jìn)程發(fā)送消息
   if wnd<>0 then  
begin
   //申請內(nèi)存
         hmem:=globalAlloc(GMEM_MOVEABLE,sizeof(friend));
         //給記錄賦值
         strpcopy(@friend.name,edit1.text);
         friend.age:=byte(spinedit1.Value);
         strpcopy(@friend.address,edit2.text);
         //獲取申請到的內(nèi)存地址并且把記錄的值導(dǎo)入內(nèi)存
         DataPointer := GlobalLock(hmem);
         //把記錄數(shù)據(jù)復(fù)制到Global內(nèi)存中
         move(friend,datapointer^,sizeof(friend));
         //注冊或獲取新的剪貼板數(shù)據(jù)格式標(biāo)號
         CF_User:=registerclipboardformat(userdefineformat);
         //向剪貼板復(fù)制數(shù)據(jù)
         clipboard.Open;
         clipboard.SetAsHandle(CF_USER,hmem);
         clipboard.Close;
         //向接收進(jìn)程窗口發(fā)送消息
         sendmessage(wnd,WM_Datasend_byClpbrd,0,0);
      end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   wnd       :Hwnd;
   Friend    :TFriend;
Begin
   //尋找數(shù)據(jù)接受進(jìn)程的窗口
   wnd:=findwindow(receivewindowclassname,receivewindowcaption);
   //如果找到了向數(shù)據(jù)接收進(jìn)程窗口發(fā)送消息
   if wnd<>0 then
begin
   //對記錄賦值
         strpcopy(@friend.name,edit1.text);
         friend.age:=byte(spinedit1.Value);
         strpcopy(@friend.address,edit2.text);
         //發(fā)送消息，把發(fā)送進(jìn)程的進(jìn)程標(biāo)示號作為Wparam
         //把記錄地址作為Lparam進(jìn)行傳遞
       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
               //處理剪貼板方式發(fā)送過來的消息
WM_Datasend_byClpbrd:
   Begin
     //注冊或獲取新的剪貼板數(shù)據(jù)格式標(biāo)號
     CF_User:= registerclipboardformat(userdefineformat);
     if clipboard.HasFormat(CF_User) then
        begin
           //獲取剪貼板的內(nèi)容，并且分別賦值給三個(gè)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;
//處理直接內(nèi)存讀取發(fā)送過來的消息
               WM_DataSend_byMemory:
                  Begin
                     //獲取發(fā)送進(jìn)程的“進(jìn)程句柄”，設(shè)置訪問模式為“讀”
                     processhnd:=openprocess(PROCESS_VM_READ,
false,message.WParam);
                     //讀取發(fā)送進(jìn)程的內(nèi)存數(shù)據(jù)
  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
   //對于其它消息依然按照原來的方法進(jìn)行消息處理
Inherited wndproc(message);
        End;