System Tray Uygulaması - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Swat · 11 Temmuz 2014, 10:22

C++ Builder 6 projesidir.

System Tray uygulamasını anlatan bir örnektir. System tray bilgisayar açıldığında çalışması gereken programlarda olmazsa olmaz durumlardan biridir.System tray bilgisayar saatin hemen yanında yer alan yerdir.

System tray uygulamasıyla Msn Messenger programının çalışma mantığına benzer örnekler geliştirebilirsiniz.

Programda gözden kaçacak ek bir ayrıntıyı belirtmekde yarar var. Başlangıçta ana formun görünmemesi için;

Project1.cpp içindeki

Application->CreateForm(__classid(TForm1), &Form1); satırından sonra

Form1->ShowMainForm=false;

satırı eklenmelidir. Bu sayede program açıldığında ana form görünmeyecektir.

Bu program Hatırlatıcı Paket Programının Bir Parçasıdır.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <shellapi.h>
 
NOTIFYICONDATA stray;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Hatrlatc1Click(TObject *Sender)
{
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::k1Click(TObject *Sender)
{
Application->Terminate();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
stray.cbSize=sizeof(NOTIFYICONDATA);
stray.hWnd=Form1->Handle;
stray.uID=0;
strcpy(stray.szTip,"Hatırlatıcı");
stray.uCallbackMessage=0x200;
stray.uFlags=7;
stray.hIcon=Application->Icon->Handle;
Shell_NotifyIcon(0,&stray);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Form1->Hide();
Action=caNone;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
TPoint m;
GetCursorPos(&m);
switch(X)
{
case 0x203 : Form1->Show(); break;
case 0x204 : PopupMenu1->Popup(m.x,m.y);
}
}
//---------------------------------------------------------------------------

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Delphide yapılan programı system tray olarak görüntülemek	aSi	Delphi	0	20 Ocak 2012 11:15
Tray ile ilgili	codcu	mIRC Scripting Sorunları	0	05 Haziran 2006 00:31

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.