Question

如何向应用程序传递参数

若以下回答无法解决问题，邀请你更新回答

Answer 1

////发送窗口procedure TForm1.send();var SendText: string; SendDataStruct: CopyDataStruct;begin SendText := edit1.Text; SendDataStruct.cbData := length(Sendtext); SendDataStruct.lpData := @SendText[1]; SendMessage(FindWindow(PCHAR('TFormrec'), PCHAR('Formrec')), WM_CopyData, Application.Handle, lparam(@SendDataStruct));end;////////接收窗口type TFormrec = class(TForm) Label1: TLabel; procedure DataIn(var DataMessage: TWMCopyData); message wm_copydata;procedure tFormrec.DataIn(var DataMessage: TWMCopyData);var ReceieveData : CopyDataStruct; temp: pchar; ReceieveStr : string;begin ReceieveData := DataMessage.CopyDataStruct^; temp := ReceieveData.lpdata; ReceieveStr := string(temp); label1.caption:= ReceieveStr;end; 查看原帖>>