修改MSN中個人訊息欄位 |
|
superlevin
高階會員 發表:181 回覆:313 積分:180 註冊:2003-01-12 發送簡訊給我 |
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 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |