用SendMessage在窗口间通讯： 发送方 var HWD: THandle; str1,str2:string; sData: TCopyDataStruct; begin HWD:=FindWindow(nil,pch...
