ss[]//var ss:String;

和

Pointer(ss)^

是不是一个意思呢？

答：不是。

ss[]表示第一个字符。如：ss:='abc'

则表示'a'。ss[]=Length(ss);

Pointer(ss)^ 和 @s 也不一样。

就连 cc:PChar

Pointer(cc)^ 和 @cc 也不一样。

应用：

一、发送字符串 或者 Record

procedure SendStr(ss:String);

var cds:TCopyDataStruct;hh:HWND;

begin

  hh:=FindWindow('TfrmFYErpMsg',nil);

  if hh<> then

  begin

    //cds.dwData:=Handle;可要可不要

    cds.cbData:=Length(ss)+;//不能漏掉+

    cds.lpData:=AllocMem(cds.cbData);//GetMem(cds.lpData,cds.cbData);可替代

    StrCopy(cds.lpData,PChar(ss));

    SendMessage(hh,WM_COPYDATA,hh,Cardinal(@cds));

    FreeMem(cds.lpData);

  end;

end;

  TRR=Record

    a:String[];

    b:PChar;//这里注意，不能使用PChar这种长度可变的。

    d:Double;

  end;

procedure SendRec(aa:TRR);

var cds:TCopyDataStruct;hh:HWND;

begin

  hh:=FindWindow('TfrmFYErpMsg',nil);

  if hh<> then

  begin

    cds.cbData:=sizeof(aa);

//    cds.lpData:=AllocMem(cds.cbData);//GetMem(cds.lpData,cds.cbData);

    cds.lpData:=@aa;

    SendMessage(hh,WM_COPYDATA,hh,Cardinal(@cds));

//    FreeMem(cds.lpData);不知道怎么要这个？？？

  end;

end;

二、接收

procedure RecordWM(var ARec:TWMCopyData);message WM_COPYDATA;

procedure TfrmFYErpMsg.RecordWM(var ARec: TWMCopyData);

var s:String;x:TRR;

begin

//字符串

  s:=StrPas(ARec.CopyDataStruct^.lpData);

//Record

  x:=TRR(ARec.CopyDataStruct.lpData^);

  s:=x.a+#+x.b+#+FloatToStr(x.d);

end;