外部程式傳、接值,接收方沒有顯示 |
答題得分者是:mephise
|
superrakce
一般會員 發表:24 回覆:35 積分:11 註冊:2006-10-09 發送簡訊給我 |
開了兩個專案分別是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 編輯記錄
superrakce 重新編輯於 2011-10-19 00:27:24, 註解 無‧
|
mephise
高階會員 發表:4 回覆:149 積分:205 註冊:2004-02-09 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |