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;