用内存共享会吃内存？
type PashuRecord=record mStartP:Integer; mEndP: Integer; mTotalP: Integer; mCurrP: Integer; mPrevP: Integer; mBeat: Integer; mTime: Integer; mPSstatus: Integer; mMMstatus: Integer; end; pPR=^PashuRecord;var tPSR: pPR; PSR: PashuRecord; hwd: Thandle; p:Pointer;procedure TForm1.FormCreate(Sender: TObject);begin hwd:=CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(PSR),pchar('PaShuShareData')); if hwd=0 then ShowMessage('Failed');end;procedure TForm1.tmr1Timer(Sender: TObject);//var s:Integer;begin// hwd:=OpenFileMapping(FILE_MAP_ALL_ACCESS,False,pchar('PaShuShareData')); if hwd<>0 then begin p:=MapViewOfFile(hwd,FILE_MAP_ALL_ACCESS,0,0,0); if p<>nil then begin //s:=pPR(p)^.mBeat; Label10.Caption := IntToStr(pPR(p)^.mCurrP); end; end;end;