Programlama | Programlama Dilleri | C Programlama Dili |C++

Anasayfa Programlama C++ Builder Application Active (Program Aktiften Çalışsın)


Application Active (Program Aktiften Çalışsın)

AÇIKLAMA

C++ Builder 6 ile uyumludur. Bu programda yapılan çalışma şu şekildedir; program aktif olduğunda yani ekranda en ön tarafta olduğunda çalışılması istenen tarzda programlar olabilir. Bu sebeple buna uygun problemler ile karşılabilirsiniz yani programı ekranda birçok pencere varken başka bir pencereye tıkladığınızda yada simge durumuna küçülttüğünüz de programın işlevini durdurmasını isteyebilirsiniz. Bu program bu amaçla yazılmıştır içinde çalan şarkı program aktif iken çalmakta ama program simge durumuna küçültüğünde yada başka bir pencere tıklandığında şarkı durmaktadır. Sonra tekrar program aktif edildiğinde şarkı kaldığı yerden çalmaya devam etmektedir. Project->Options kısmından Application Name özelliğine uygun bir isim verilmiş ve istenilen bir ikonda atanmıştır. Caption=Application->ExeName; kodu ile  ayarlardan verdiğimiz ismin programa aktarılması sağlanmıştır.

Programın Tamamını Aşağıdaki Linkten İndirebilirsiniz

Linki Görebilmeniz İçin Üye Olmanız Gerekmektedir...

Üye Kayıt

Program Kodu:

Unit1.cpp

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. static int durdu=1;
  8. //---------------------------------------------------------------------------
  9. #pragma package(smart_init)
  10. #pragma resource "*.dfm"
  11. TForm1 *Form1;
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.         : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18.  
  19.  
  20.  
  21. void __fastcall TForm1::Timer1Timer(TObject *Sender)
  22. {
  23. if(Application->Active)
  24.  {
  25.   if(durdu==0)
  26.   {
  27.   MediaPlayer1->Pause();
  28.   durdu=1;
  29.   }
  30.  }
  31. else
  32. {
  33.  if(durdu==1)
  34.  {
  35.  MediaPlayer1->Pause();
  36.  durdu=0;
  37.  }
  38. }
  39. }
  40. //---------------------------------------------------------------------------
  41. void __fastcall TForm1::FormCreate(TObject *Sender)
  42. {
  43.  
  44. MediaPlayer1->FileName="Erhan Güleryüz-Diyemedim.mp3";
  45. MediaPlayer1->Open();
  46. MediaPlayer1->Play();
  47. Caption=Application->ExeName;
  48. }
  49. //---------------------------------------------------------------------------
  50.  
  51.  
  52.  
  53.  
Yorumlar (0)
Sadece kayıtlı kullanıcılar yorum yazabilir!
Son Güncelleme ( Pazar, 02 Eylül 2012 23:52 )