用C++ Builder設計TrayIcon

[魔術王子]

請放一個TPopupMenu物件
選單內容

    object N1: TMenuItem
      Caption = '記事本'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '檔案總管'
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = '離開'
      OnClick = N4Click
    end

Unit1.dfm內容

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object PopupMenu1: TPopupMenu
    Left = 72
    Top = 48
    object N1: TMenuItem
      Caption = #35352#20107#26412
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #27284#26696#32317#31649
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object N4: TMenuItem
      Caption = #38626#38283
      OnClick = N4Click
    end
  end
end

[魔術王子]

Unit1.cpp內容

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TRAYCALLBACK(TMessage& Message)
{
    POINT MousePos;
    switch(Message.LParam)
    {
        case WM_RBUTTONUP:
//
            if (GetCursorPos(&MousePos))
            {
                PopupMenu1->PopupComponent = Form1;
                SetForegroundWindow(Handle);
                PopupMenu1->Popup(MousePos.x, MousePos.y);
            }
            break;
        case WM_LBUTTONUP:
            ::ShellExecute(::GetDesktopWindow(),"explore",NULL,NULL,NULL,SW_SHOWNORMAL);
            break;
        default:
            break;
    }
    TForm::Dispatch(&Message);
}
//---------------------------------------------------------------------------
void TForm1::ShowIcon()
{
    Icon.cbSize=sizeof(NOTIFYICONDATA);
    Icon.hWnd=Handle;
    Icon.uID=(UINT)MYNOTIFYICONID;
    Icon.uFlags=NIF_MESSAGE|NIF_ICON|NIF_TIP;
    Icon.uCallbackMessage=MYWM_NOTIFYICON;
    Icon.hIcon=LoadIcon(HInstance,"MAINICON");
    strcpy(Icon.szTip,"Icon");
    Shell_NotifyIcon(NIM_ADD,&Icon);
    ShowWindow(Application->Handle,SW_HIDE);
    ShowWindow(Handle,SW_HIDE);
}
//---------------------------------------------------------------------------
void TForm1::HideIcon()
{
    Icon.cbSize=sizeof(NOTIFYICONDATA);
    Icon.hWnd=Handle;
    Icon.uID=(UINT)MYNOTIFYICONID;
    Icon.uFlags=0;
    Icon.uCallbackMessage=MYWM_NOTIFYICON;
    Icon.hIcon=0;
    strcpy(Icon.szTip,"Icon");
    Shell_NotifyIcon(NIM_DELETE,&Icon);
    ShowWindow(Application->Handle,SW_NORMAL);
    ShowWindow(Handle,SW_NORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
    ShowIcon();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
    ::ShellExecute(::GetDesktopWindow(),"explore",NULL,NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    HideIcon();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
    char WinDir[MAX_PATH];
    ::GetWindowsDirectory(WinDir,MAX_PATH);
    AnsiString sysdir=AnsiString(WinDir)+"\\Notepad.exe";
    ::ShellExecute(NULL,"open",sysdir.c_str(),NULL,NULL,SW_SHOWNORMAL);
}
//---------------------------------------------------------------------------

粗體部分需要KeyIn

[魔術王子]

Unit1.h內容

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
#define MYNOTIFYICONID WM_USER+10
#define MYWM_NOTIFYICON WM_USER+20
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
    TPopupMenu *PopupMenu1;
    TMenuItem *N1;
    TMenuItem *N2;
    TMenuItem *N3;
    TMenuItem *N4;
    void __fastcall FormActivate(TObject *Sender);
    void __fastcall N2Click(TObject *Sender);
    void __fastcall N4Click(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall N1Click(TObject *Sender);
private:	// User declarations
    NOTIFYICONDATA Icon;
    void TForm1::ShowIcon();
    void TForm1::HideIcon();
public:		// User declarations
    __fastcall TForm1(TComponent* Owner);
    void virtual _fastcall TRAYCALLBACK(TMessage& Message);
    BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(MYWM_NOTIFYICON,TMessage,TRAYCALLBACK)
    END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

粗體部分需要自行KeyIn

[Eric Chen]

呵~這一篇對小弟有用,
謝謝教學 !