文件名称：进程跟子进程通讯demo带源码 (1).zip
文件大小：395KB
文件格式：ZIP
更新时间：2023-01-12 10:01:06
delphi 进程间通讯
//d2010之前 procedure TmainForm.SendProcessMsg(mainHandle:THandle;wIdent:Word;sSendMsg:String); //D2010之后 function TmainForm.SendMessageToProcess(hwndSend:HWND;wIdent:word;s:string):boolean; procedure TmainForm.MyMessage(var MsgData: TWmCopyData); var wIdent:Word; lvSize:Cardinal; lvMsg:String; begin wIdent:=HiWord(MsgData.From); lvMsg:=StrPas(pchar(MsgData.CopyDataStruct^.lpData)); lvSize:=MsgData.CopyDataStruct^.cbData; case wIdent of 1000: begin Edit1.Text:= lvMsg; Memo1.Lines.Add('收到登录成功消息:'+lvMsg +',Length='+ IntToStr(lvSize)); end; 1001: begin Memo1.Lines.Add('收到发送消息:'+ lvMsg+',Length='+ IntToStr(lvSize)); end; end; end; end.
【文件预览】：
ProcessCommunicationDemo
----ProcessCommunicationDemo.exe(861KB)
----__history()
----ProcessCommunicationDemo.dpr(258B)
----ProcessCommunicationDemo.dproj(4KB)
----ProcessCommunicationDemo.dproj.local(62B)
----ProcessCommunicationDemo.res(4KB)
----ProcessCommunicationDemo.skincfg(85B)
----uMain.pas(5KB)
----uMain.dfm(1KB)