MSN "ne dinliyorum" özelliğini açmak

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

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('0Music0'+'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','');

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

iyi bi çalışma hocam ama benim acilen delphi 8 e ihtiyacım var nerden bulacagımı bilmiyom aradım ama boş sizin bildiginiz bi site felan varsa söyleyebilirmisiniz
netten satın alabilirsin.
çalışmadı usta

Yukarı Git