Ayuda con codigo en C hacia Delphi

[javier_ecf]

Hola, bueno tengo un ligero problema con este codigo eh estado intentadolo pasar a delphi pero el manejo de WideString y punteros no me reacciona, si alguien le interesa el codigo en cuestion pone la cancion actual del Windows Live Messenger, ya lo hice en c, pero no eh podido pasarlo a delphi. alguien me echa una mano?

Gracias

Codigo en C:

#include <stdio.h>
#include <wchar.h>
#include <windows.h>

void message(wchar_t *cancion,wchar_t *grupo){
HWND handle=0;

wchar_t buffer[200];

swprintf(buffer,L"Xfmedia\\0Music\\01\\0Xfmedia: {1} - {0}\\0");
swprintf(buffer+wcslen(buffer),cancion);
swprintf(buffer+wcslen(buffer),L"\\0");
swprintf(buffer+wcslen(buffer),grupo);
swprintf(buffer+wcslen(buffer),L"\\0Inhuman Rampage\\0WMContentID\\0");
COPYDATASTRUCT data;
data.cbData=(wcslen(buffer)*2)+2;
data.dwData=0x0547;
data.lpData=buffer;
handle = FindWindow("MsnMsgrUIManager", NULL);
SendMessage(handle, WM_COPYDATA, (WPARAM)NULL,(LPARAM)&data);
}

int main()
{
message(L"Cancion",L"Grupo");
getchar();
return 0;
}


Intento de Codigo en Delphi:


program msn;

//{$APPTYPE CONSOLE}

uses
SysUtils,
windows,strutils;

type wchar_t=array[0..200] of wchar;

procedure msnMessage(msj:String);
var handle:HWND;
var buffer:wideString;
var pointer:^wideString;
var data:COPYDATASTRUCT;
var s:wchar_t;
var pointerdata:^COPYDATASTRUCT;
begin
buffer:='Xfmedia\0Music\01\0Xfmedia: {1} - {0}\0Hola\0Delphi\0Inhuman Rampage\0WMContentID\0';
handle:=0;
data.dwData:=$0547;
data.cbData:=(length(buffer)*2)+2;
data.lpData:=@buffer;
handle:= FindWindow('MsnMsgrUIManager', nil);
if(handle>0) then
begin
SendMessage(handle,$004A,WPARAM(nil),LPARAM(@data));
end;
end;
begin
msnMessage('Mensajito');
end.


/////////////
Ahora bien, yo se que el codigo en delphi tiene muchas fallas a diferencia de c, espero me puedan ayudar, de antemano gracias.

[javier_ecf]

Ya no me es necesario este tema, lo solucione creando una dll en c y mandando llamar sus funciones. Gracias.