首页
后端开发
Delphi
进程间通信示例：简易源码及说明

进程间通信示例：简易源码及说明

20 次浏览 0 条评论
zip
zip 
// 使用SendMessageToProcess函数向子进程发送消息
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;
zip 文件大小：395.1KB