摘要:
发送消息DELPHI代码 View Code 1//VCUnicode项目2var3wData:String;4h:HWND;5cds:TCopyDataStruct;6begin7wData:='1234567890'+Chr(0);8cds.dwData:=0;9cds.cbData:=Length(wData);10cds.lpData:=PWideChar(wData);11SendMessage(h,WM_COPYDATA,0,LongWord(@cds));12end1314//非VCUnicode项目15var16wData:WideString;17h:HWND 阅读全文
摘要:
发送消息DELPHI代码View Code 1//VCUnicode项目2var3wData:String;4h:HWND;5cds:TCopyDataStruct;6begin7wData:='1234567890'+Chr(0);8cds.dwData:=0;9cds.cbData:=Length(wData);10cds.lpData:=PWideChar(wData);11SendMessage(h,WM_COPYDATA,0,LongWord(@cds));12end1314//非VCUnicode项目15var16wData:WideString;17h:HWND; 阅读全文
摘要:
VC Unicode项目发送消息DELPHI代码var wData: String; h: HWND; cds: TCopyDataStruct;begin wData:= '1234567890'+ Chr(0); cds.dwData:= 0; cds.cbData:= Length(wData); cds.lpData:= PWideChar(wData); SendMessage(h, WM_COPYDATA, 0, LongWord(@cds));end非VC Unicode项目var wData: WideString; h: HWND; cds: TCopy... 阅读全文