Aşağıdaki procedure 'de "user" değişkenine listemdeki bir mail adresini yazdığımda ileti geçmişini görüntüleyebiliyorum.Ancak isteğim şu user değişkeni otomatik olarak aktif olan msn penceresini algılayıp o an ki ileti geçmişini ekranıma getirmesi çabası içersindeyim.
Örnek olarak ben ahmet ile konuşurken ahmet'in ileti geçmişinin otomatik olarak programımda görmek istiyorum.Nitekim eğer başka bir ileti alıp o pencere aktif olursa yeni pencerenin iletilerini görüntelemek istiyorum.Bunu pencerenin handle sini alarak denedim ama başarılı olamadım.Fikri olan arkadaşlar yardımcı olabilirlerse çok sevinirim.iyi çalışmalar.
Kod: Tümünü seç
var
User: String;
Messenger: IMessenger3;
MsgrIMWindow: ImessengerConversationWnd;
Contacts:IMessengerContactsDisp;
Contact:IMessengerContactDisp;
MsgWND:IMessengerConversationWndDisp;
begin
CoInitialize(nil);
Messenger := MessengerAPI_TLB.CoMessenger.Create;
MsgrIMWindow:=IMessengerConversationWnd(Messenger.InstantMessage(user));<------- Burası otomatik algılanacak.
memo2.Lines.Add(MsgrIMWindow.History);
CoUninitialize;