/*********************发送*********************/
//定义共享数据结构
PShare=^TShare;
TShare=record
Data:array[0..255] of char;
end;
//创建并打开共享
Hm ...
//定义共享数据结构
PShare=^TShare;
TShare=record
Data:array[0..255] of char;
end;
//创建并打开共享
Hm ...
DELPHI( )