Delphi'ye yeni başladım. Kaynak kodlu programları inceleyerek ğrenmeye çalışıyorum. Tray icon yapmak için aşağıdaki kodu buldum fakat çalıştıramadım. proje halinde olmadıgı için buton vs eklerken hata yapıyorum galiba. Bu şekilde bulduğum kodları uygularken ne yapmak gerek, Aşağıdaki kodu proje halinde çalışır vaziyete getirirseniz memnun olurum.. Unit SysTray; Interface Uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellApi, Menus, StdCtrls; Type TForm1 = Class menu : TPopupMenu; menuHakkinda : TMenuItem; menuAc : TMenuItem; menuCikis : TMenuItem; AcilisNotu : TMemo; ButonTamam : TButton; ButonCik : TButton; Procedure FormCreate ; Procedure FormMouseMove ; Procedure menuHakkindaClick ; Procedure menuCikisClick ; Procedure menuAcClick ; Procedure FormDestroy ; Procedure ButonTamamClick ; Procedure ButonCikClick ; Private TrayIcon : TNotifyIconData; Procedure FormuGizle ; Procedure FormuGoster; Procedure MenuyuGoster; Public End; Var Form1 : TForm1; Implementation Procedure TForm1. FormuGizle ; Begin Shell_NotifyIcon ; // System Tray'e yeni bir Icon ekle Form1. Visible:=False; // Formu gizle End; Procedure TForm1. MenuyuGoster; Var FareninKonumu : TPoint; Begin GetCursorPos ; // Mouse'un pozisyonunu ğren menu. Popup ; // PopUp menüyü o pozisyona aç PostMessage(Self. Handle, WM_NULL,0,0); // Systeme Herhangibir Mesaj Gnderme End; Procedure TForm1. FormCreate ; Begin // TrayIcon'ın parametreleri aşağıda ayarlanıyor. With TrayIcon Do Begin cbsize := SizeOf ; wnd := Self. Handle; hicon := Application. Icon. Handle; uID := 0; sztip := 'Mouse icon üzerindeyken grünecek mesaj.'; uflags := NIF_ICON Or NIF_TIP Or NIF_MESSAGE; uCallBackMessage := WM_MOUSEMOVE; End; Application. OnMinimize:=FormuGizle; // Form minimize edilince çalışacak procedure End; Procedure TForm1. FormMouseMove ; Begin // $201 Sol Tuş Basıldı // $202 Sol Tuş Bırakıldı // $203 Sol Tuş Çift Tıklandı // $204 Sağ Tuş Basıldı // $205 Sağ Tuş Bırakıldı // $206 Sağ Tuş Çift Tıklandı If (x=$203) Then FormuGoster Else If (x=$205) Then MenuyuGoster; End; Procedure TForm1. FormuGoster; Begin Form1. Visible:=True; // Formu gster Application. BringToFront; // Formu ne al Application. Restore; // Uygulamayı tekrar başlat Shell_NotifyIcon ; // System Tray'deki iconu sil End; Procedure TForm1. menuHakkindaClick ; Begin ShowMessage('System Tary Denemesi'+#13+ 'Copyright 2002 Hakan HAMURCU'+#13+ 'hakan@hamurcu.com'); End; Procedure TForm1. menuCikisClick ; Begin Application. Terminate; // Uygulamayı bitir End; Procedure TForm1. FormDestroy ; // Form hafızadan atıldığı zaman Begin Shell_NotifyIcon ; // System Tray'deki iconu sil End; Procedure TForm1. menuAcClick ; Begin FormuGoster; End; Procedure TForm1. ButonTamamClick ; Begin FormuGizle ; End; Procedure TForm1. ButonCikClick ; Begin Application. Terminate; // Uygulamayı bitir End; End. Hayat Murat Boz un memesi gibi, Rasim Ozan Kütahyalı çenesi gibi, Vahdettin in son senesi gibi, Bakir kızın Coşkun a veresi gibi, İran la İsrail arası gibi, Durum değişir kerhane numarası gibi, Çmelene birisinin vurası gibi, Yazı diyince bozukluğun turası gibi, Koç ya da Sabancı parası gibi, Oy verdiklerin niye yarasa gibi?