MSN新版中有一個可以取得正在播放Media Player內容的欄位。
設計一個function可以修改它
相關說明
http://www.wretch.cc/blog/superlevin&article_id=20579775
{
作者: Levin Lin 林壽山
功能: 修改MSN中我的個人訊息文字
參數:
1. Category:顯示的圖示(目前祇有:'Office','Games','Music')
2. msg :顯示的文字
3. enabled :
用法:
SetMsnMessage('Music', '這是使用程式所修改的MSN訊息!', true);
}
procedure SetMsnMessage(category: string; msg: string; enabled: boolean );
var
handleMSN:THandle;
structCopy:TCopyDataStruct;
stringBuffer:array [0..127] of WideChar;
sEnabled : string;
begin
FillChar(stringBuffer,SizeOf(stringBuffer),#0);
if(enabled) then sEnabled := '1' else sEnabled := '0';
StringToWideChar('\0' category '\0' sEnabled '\0' '{0}' '\0' msg '\0\0\0
\0' #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);
SendMessage(handleMSN, WM_COPYDATA, 0, Integer(@structCopy));
end;

------
林壽山
網站: http://superlevin.ifengyuan.tw
mail: superlevin@gmail.com