Delphi Mediaplayer komponentini kullanarak MSN "ne dinliyorum" özelliğini açıp listenizdeki kişilerle dinlediğiniz parçayı paylaşabilirsiniz.

Gerekli procedure aşağıda:

Not: Procedure msn_nedinliyorum (s1,s2,s3: string); olarak yukarıdaki procedure kısmına eklemeyi unutmayın.

procedure TForm1.msn_nedinliyorum(s1,s2,s3: string);
var
 handleMSN:THandle;
 structCopy:TCopyDataStruct;
 stringBuffer:array [0..127] of WideChar;
begin

 FillChar(stringBuffer,SizeOf(stringBuffer),#0);
 StringToWideChar('\0Music\0'+'1'+'\0'+'{0} - {1}'+'\0'+s1+'\0'+s2+'\0'+s3+'\0'+'WMContentID'+#0,@stringBuffer[0],128);

 FillChar(structCopy,SizeOf(TCopyDataStruct),#0);
 with structCopy do
 begin
   cbData:=SizeOf(stringBuffer);
   dwData:=$547;
   lpData:=@stringBuffer[0];
 end;

 handleMSN:=FindWindowEx(0,0,'MsnMsgrUIManager',nil);
 while handleMSN <> 0 do
 begin
   SendMessage(handleMSN,WM_COPYDATA,0,Integer(@structCopy));
   handleMSN:=FindWindowEx(0,handleMSN,'MsnMsgrUIManager',nil);
 end;
end;

Kullanımı:

 msn_nedinliyorum(ExtractFileName(MediaPlayer1.FileName),'Rds','');