下面是Visual Basic的程式碼，有好心人士教我改成Delphi的吧，要Import Messenger相關的Library！ Private Sub Command1_Click() Dim MsgrUIA As New MessengerAPI.Messenger Dim mWindow As MessengerAPI.IMessengerWindow Dim MsgrContact As MessengerAPI.IMessengerContact Set MsgrContact = MsgrUIA.GetContact("hu_dana@hotmail.com", "") Set mWindow = MsgrUIA.InstantMessage(MsgrContact) mWindow.Show End Sub

請問哪裡有Messenger相關的Library 智慧是命運的征服者

------
智慧是命運的征服者

有安裝 MSN Messenger 在登錄檔裡就會有Messenger 的元件(ActiveX EXE) 我原本以為針對ActiveX DLL、ActiveX EXE 採用這樣的方法就能引用 不過執行階段出現了一個錯誤訊息， 『CoInitialize 尚未被呼叫』 大家一起來討論    

var
    MsgrUIA :Variant;
    mWindow :Variant;
    MsgrContact :Variant;    begin
     MsgrUIA := CreateOleObject('MessengerAPI.Messenger');
     mWindow := CreateOleObject('MessengerAPI.IMessengerWindow');
     MsgrContact := CreateOleObject('MessengerAPI.IMessengerContact');
     MsgrContact := MsgrUIA.GetContact('hu_dana@hotmail.com', '');
     mWindow := MsgrUIA.InstantMessage(MsgrContact);
     mWindow.Show;
end;

噓~~~~~~沉思中…

引言: 有安裝 MSN Messenger 在登錄檔裡就會有Messenger 的元件(ActiveX EXE) 我原本以為針對ActiveX DLL、ActiveX EXE 採用這樣的方法就能引用 不過執行階段出現了一個錯誤訊息， 『CoInitialize 尚未被呼叫』 大家一起來討論

var
    MsgrUIA :Variant;
    mWindow :Variant;
    MsgrContact :Variant;    begin
     MsgrUIA := CreateOleObject('MessengerAPI.Messenger');
     mWindow := CreateOleObject('MessengerAPI.IMessengerWindow');
     MsgrContact := CreateOleObject('MessengerAPI.IMessengerContact');
     MsgrContact := MsgrUIA.GetContact('hu_dana@hotmail.com', '');
     mWindow := MsgrUIA.InstantMessage(MsgrContact);
     mWindow.Show;
end;

噓~~~~~~沉思中…

程式一執行就出現'CoInitialize has not been called'訊息, 可用如下的程式解決: 在主程式 .DPR中: uses OLE2, // <--- 確定加入OLE2 Windows;initialization CoInitialize(nil); // <-- 由程式啟動 CoInitialize()end 但是我的電腦一執行MsgrUIA := CreateOleObject('MessengerAPI.Messenger'); 就會出現"無效的類別字串",但我已經有裝MSN了??? ～～～Delphi K.Top討論區站長～～～

不知你的操作系统是不是XP,我的是。我检查过MSDN上关于Messenger调用的API资料。 http://www.microsoft.com/downloads/details.aspx?FamilyID=457d63c0-81b3-4a38-b88f-af78ba5ac550&DisplayLang=en Windows Messenger 4.7 API 不知对你有没有用？ 在帮助文件中找到Messenger的CLSID为B69003B3-C55E-4B48-836C-BC5946FC3B28 再在注册表中查找到注册的ActiveX Server，得到ProgID，在程序中就可以调用了： var MsgrUIA: Variant; begin MsgrUIA := CreateOleObject('Messenger.UIAutomation'); end;