CopyDataStruct

[Altera]

Всем привет!
Раньше у меня это как-то нармально получалось, а щас не выходит...

procedure Tmain_form.Button1Click(Sender: TObject);
var
wnd: HWND;
cd: tCopyDataStruct;
s: string;
begin
   wnd := findWindow(nil, 'EXELORED');
   s := edit1.Text;
   cd.dwData := 0;
   cd.cbData := strlen(pChar(s))+1;
   cd.lpData := pCHar(s);
   sendMessage(wnd, WM_COPYDATA, application.Handle, longint(@cd));
end;

приём

procedure Tmain_form.cpd(var m: TWMCopyData);
var
sText: pChar;
begin
   getMem(sText, m.CopyDataStruct.cbData);
   StrLCopy(sText, m.CopyDataStruct.lpData, m.CopyDataStruct.cbData); //Преобразуем полученные данные в строку
   label1.Caption:=stext;
end;

Получается какая-то хрень... Текст не полностью доходит...

Способы вроде

procedure tfstart.Getmessage(var msg: TWMCopyData);
var
sText: array[0..99] of Char;
begin
StrLCopy(sText, Msg.CopyDataStruct.lpData, Msg.CopyDataStruct.cbData); //Преобразуем полученные данные в строку
label1.Caption:=stext;
end

Тоже не проходят....

Если посылаю programmersforum.ru, получаю programmer鏩縶鎨縶｜

[Lime]

Code Gear 2009 ?

[Altera]

да

Ага, вот так нормально работает. ...почему то....

type
   tR = record
     s: string[255];
   end;
...

procedure Tmain_form.Button1Click(Sender: TObject);
var
wnd: HWND;
cd: tCopyDataStruct;
r: tR;
begin
   wnd := findWindow(nil, 'EXELORED');
   r.s := edit1.Text;
   cd.dwData := 0;
   cd.cbData := sizeOf(r);
   cd.lpData := @r;
   sendMessage(wnd, WM_COPYDATA, application.Handle, longint(@cd));
end;
...

procedure Tmain_form.cpd(var m: TWMCopyData);
var
pR: ^tR;
begin
   pR := m.CopyDataStruct.lpData;
   label1.Caption:=pR^.s;
   edit1.Text := pR^.s;
end;

Но вопрос не исчерпан! Как со строкой обычной реализовать?