用SendMessage在窗口间通讯:
发送方
var HWD: THandle;
str1,str2:string;
sData: TCopyDataStruct;
begin
HWD:=FindWindow(nil,pchar('aaaaaa')); // Integer(pchar(self.Edit2.Text))
str2:='我来了中玉人';
str1:='我来了中玉人';
sData.cbData := Length(str2) + 1;
GetMem(sData.lpData,sData.cbData );
StrCopy(sData.lpData,PChar(str2));
SendMessage(HWD,WM_COPYDATA,0,Cardinal(@sData));
end;
接收方:
procedure WMCOPYDATA(var AMsg: TWmCopyData); message WM_COPYDATA;
procedure TForm1.WMCOPYDATA(var AMsg: TWmCopyData);
var s : string;
begin
s := StrPas(AMsg.CopyDataStruct^.lpData);
self.Memo1.Lines.Add(s);
end;
delphi在两个窗口间用消息通讯
最新推荐文章于 2023-11-08 13:33:11 发布