SendMessage überträgt String nicht zuverlässig

[hathor]

Hier ist es gut beschrieben:
http://delphi.about.com/od/windowssh...m_copydata.htm

Programm-Beispiel:
http://delphi.about.com/library/week...m_copydata.zip

Erforderliche Änderungen bei XE2:

Delphi-Quellcode:

procedure TReceiverMainForm.HandleCopyDataString(
  copyDataStruct: PCopyDataStruct);
var
  s : ANSIstring;  //th
begin
  s := PANSIChar(copyDataStruct.lpData); //th
...
...
procedure TSenderMainForm.SendString();
var
  stringToSend : ANSIstring; //th
...