MSN Delphi

procedure SetMusicInfo(r_sArtist:String; r_sAlbum:String; r_sTitle:String; r_sWMContentID:String;r_sFormat:String; r_bShow:Integer);
var
udtData:COPYDATASTRUCT;
sBuffer:string;
hMSGRUI:LongInt;
begin

   sBuffer:= '\0Music\0' + IntToStr(r_bShow) + '\0' + r_sFormat + '\0' + r_sArtist + '\0' + r_sTitle + '\0' + r_sAlbum + '\0' + r_sWMContentID + '\0' + CHR(0);

   udtData.dwData:= $547;
   udtData.lpData:= Integer(@sBuffer);
   udtData.cbData:= Length(sBuffer);

   hMSGRUI:=FindWindowEx(null, hMSGRUI, 'MsnMsgrUIManager', '');

   SendMessage(hMSGRUI, WM_COPYDATA, 0, Integer(@udtData));
   
end;