delphi实现的进程间通信代码,只能一个单元ipc.pas,有demo