MSN - Hallgatott zene adatainak kiírása

MSN - Hallgatott zene adatainak kiírása
2010-06-06T20:13:12+02:00
2010-06-08T20:49:39+02:00
2022-11-18T00:55:33+01:00
Genonon
Sziasztok!

A kérdésem: Megoldható az hogy ha én a TMediaPlayerel lejátszok egy zenét akkor annak a számnak a címét kiirja nekem MSN re? (PL: Windows Media Player / (De már winamphoz is van)) Ezt a műveletet egy DLL Fájl végzi a WMP ben és a Winampban is! Tehát ezt a DLL-t valahogy hozzá tudom rendelni a programomhoz? Vagy ez a DLL nem "kompatibili" az én lejátszómmal. Ha ez lenne a gond akkor valami egyéb módon PL.: DLL nélkül meg lehet oldani?
Mutasd a teljes hozzászólást!
Nesze:

procedure SetMessenger(musictext:string); var handleMSN: THandle; structCopy: TCopyDataStruct; stringBuffer: array [0..255] of widechar; astring: WideString; i,k: integer; begin if FindWindow('MsgrIMEWindowClass', nil) <> 0 then begin if musictext <> '' then astring := '\0Music\01\0{0}\0' + musictext + '\0' else astring := '\\0Music\00\0{0}\\0\\0\\0\\0\\0'; FillChar(stringbuffer, sizeof(stringbuffer), 0); FillChar(structcopy, sizeof(TCopyDataStruct), 0); stringBuffer[0] := widechar(256); k:=1; for I := 1 to Length(astring) do begin if byte(astring[i])<>0 then begin stringBuffer[k] := astring[i]; inc(k); end; end; 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, lparam(@structCopy)); handleMSN := FindWindowEx(0, handleMSN, 'MsnMsgrUIManager', nil); end; end; end;

Lehet ronda a kód, de kistök koromban írtam...
Régi messenger verziókban \0Music stb helyett lehetett írni Games-t és Office-t is, akkor más képet rakott ki, a mostani úgy nézem már nem támogatja...
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd