Cheat Engine

[onlyus]

// send VC 2008 UNICODE
int main(void)
{
TCHAR MESSAGE[20] = L"Hello World";
COPYDATASTRUCT cds;
cds.dwData = 0;
cds.cbData = 5 * sizeof(WCHAR);
cds.lpData = MESSAGE;
HWND hWnd = FindWindow(L"TForm1", L"Form1");
::SendMessage(hWnd, WM_COPYDATA, (WPARAM)0, (LPARAM)&cds);
return 0;
}

// receive delphi7

.. procedure WmcopyData(var MSG:TMessage); message WM_COPYDATA;
~~
procedure TForm1.WmCopyData(var Msg: TMessage);
var
Data: PCopyDataStruct;
begin
Data:=Pointer(Msg.LParam);
ListBox1.Items.Add(PCHAR(Data^.lpData));
end;
end.

hello everyone i'm send "Hello World"
but receive only "H"
i wan't "Hello World"
my english very suck sorry help me

[atom0s]

WCHAR is Unicode in C++ so you need to read it as unicode in Delphi.

Try using PWideChar in Delphi instead of PChar.

[onlyus]

thanks i love you have a nice day