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],12;
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(@struc tCopy));
handleMSN:=FindWindowEx(0,handleMSN,'MsnMsgrUIMana ger',nil);
end;
end;
Kullanımı:
msn_nedinliyorum(ExtractFileName(MediaPlayer1.File Name),'Rds','');
Nerden
İş/Hobiler
Lakap
Salı Ara. 08, 2009 4:31 pm