Messenger'a oturum kapattıracak komut

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Messenger'a oturum kapattıracak komut

Mesaj gönderen ulu coder »

Merhaba.

Messenger'da oturum açılmışsa kapatmasını sağlayacak bir komut var mı?
Messenger'ı kapatmasa da olur, oturumu kapatsın kafi.

Kolay gelsin...
Kullanıcı avatarı
husonet
Admin
Mesajlar: 2962
Kayıt: 25 Haz 2003 02:14
Konum: İstanbul
İletişim:

Mesaj gönderen husonet »

viewtopic.php?p=95974#95974

Eğer msn programı yerine oturumu kapatmak istiyorsan daha önce msn le ilgili yazdığım mesajlardan esinlenebilirsin.

Kolay Gelsin...

Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Teşekkürler

Hocam bu komut bildiğiniz üzere messenger'a kapan komutu gönderiyor ki bu da tray icon'a düşmesinden başka bi etki yaratmıyor.
Yöntemin bir mesaj göndermek olduğunu biliyorum, o mesajı bilmediğim için başlık açtım :wink:
Kullanıcı avatarı
mrmarman
Üye
Mesajlar: 4741
Kayıt: 09 Ara 2003 08:13
Konum: İstanbul
İletişim:

Mesaj gönderen mrmarman »

@ulu coder

- MSN Messenger oturumunun ne durumda olduğunu anlamak için bir formuna bir Timer ekle ve aşağıdaki kodu yaz...

Kod: Tümünü seç

// Uses MessengerAPI_TLB
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Case CoMessenger.Create.MyStatus of
    MISTATUS_OFFLINE                         : Caption := '(not signed in)';
    MISTATUS_LOCAL_FINDING_SERVER            : Caption := 'Server Aranıyor';
    MISTATUS_LOCAL_CONNECTING_TO_SERVER      : Caption := 'Server Bağlantısı Kuruluyor';
    MISTATUS_LOCAL_SYNCHRONIZING_WITH_SERVER : Caption := 'Server Senkronu Yapılıyor';
    MISTATUS_LOCAL_DISCONNECTING_FROM_SERVER : Caption := 'Serverden Kopuluyor';
    MISTATUS_ONLINE       : Caption := 'Çevrimiçi';
    MISTATUS_BE_RIGHT_BACK: Caption := 'Hemen Dönecek';
    MISTATUS_BUSY         : Caption := 'Meşgul';
    MISTATUS_AWAY         : Caption := 'Dışarda';
    MISTATUS_ON_THE_PHONE : Caption := 'Aramada';
    MISTATUS_OUT_TO_LUNCH : Caption := 'Öğle Yemeğinde';
    MISTATUS_INVISIBLE    : Caption := 'Çevrim Dışı';
  end; // Case
end;

- Çevrim Durumunu öğrenebildiğin Messenger'i OffLine yapabilmen için kod ise

Kod: Tümünü seç

  With MessengerAPI_TLB.CoMessenger.Create do SignOut;
Resim
Resim ....Resim
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Teşekkürler @mrmarman hocam.
'MessengerAPI_TLB.pas' dosyasını arıyorum şimdi, bi türlü bulamadım.
DT'de bi link var, ölü.
Google'a sordum, bi çok coder kullanmış ama dosya ortada yok.
Sourceforge'a sordum, yanıt yok :(
ulu coder
Üye
Mesajlar: 838
Kayıt: 01 Nis 2006 06:46
Konum: Ankara

Mesaj gönderen ulu coder »

Buldum, bu projenin içinde "Common" klasöründe mevcut

Kolay gelsin...
Cevapla