開了兩個專案分別是ReceveDpr、SendDpr
SendDpr負責傳值，ReceveDpr負責接收及顯示

SendDpr的程式碼：
[code delphi]
procedure TSendForm.Button2Click(Sender: TObject);
var h: HWND;
Size: Integer;
CopyDataStruct: TCopyDataStruct;
begin
h := FindWindow(nil, 'ReceveDpr');
if h > 0 then
begin
caption := 'findwindow';
Size := Length(Edit1.Text) 2;
CopyDataStruct.lpData := PChar(Edit1.Text);
CopyDataStruct.dwData := WM_COPYDATA;
CopyDataStruct.cbData := Size;
SendMessage(h, WM_COPYDATA, 0, Integer(@CopyDataStruct));
end else caption := 'no thiswindow'
end;
[/code]

ReceveDpr程式碼：

[code delphi]
procedure TReceveForm.WMCopyData(var Message: TWMCopyData);
begin
Memo1.Lines.Add(PChar(Message.CopyDataStruct.lpData));
end;

procedure TReceveForm.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 0 to Paramcount -1 do memo1.Lines.Add(ParamStr(i));
end;
[/code]

為何我在SendDpr 裡按下按鈕傳值 ReceveDpr 都沒有反應呢？
Delphi 7 、winXP

編輯記錄

SendMessage 如果是在同一個專案中的兩個 Form 中傳遞, 是可以這樣寫
但是如果是兩個專案, 也就是兩個程式間要傳遞訊息的話, 那就要費一番手腳了
因為就算你在兩個程式中使用相同的訊息編號, 但仍然是各自獨立的

如果真要在程式間傳遞訊息, 你必須使用 RegisterWindowMessage() 這個 Win32 API 來向系統註冊
不想這麼麻煩的話, 我建議改成用 Socket 來傳遞資料, 仍然可以達成你的目的

------
Mephise Chen
前興德工程師