全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2221
推到 Plurk!
推到 Facebook!

修改MSN中個人訊息欄位

 
superlevin
高階會員


發表:181
回覆:313
積分:180
註冊:2003-01-12

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-06-25 08:36:28 IP:61.30.xxx.xxx 訂閱
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
系統時間:2017-12-14 22:58:41
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!