unit1.pas

在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ShellAPI, Menus, StdCtrls;

const
  WM_TRAYICON = WM_APP + 0;
type
  TForm1 = class(TForm)
    PopupMenu: TPopupMenu;
    Hello1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    There1: TMenuItem;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    procedure WMTrayIcon(var message: TMessage); message WM_TRAYICON;
    procedure ModifyTrayIcon(Action: DWORD);
  public
  end;
  
var
  Form1: TForm1;
  
implementation

{$R *.DFM}

procedure TForm1.ModifyTrayIcon(Action: DWORD);
var
  NIData: TNotifyIconData;
begin
  with NIData do
  begin
    cbSize := sizeof(TNotifyIconData);
    UID := 0;
    uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
    Wnd := Handle;
    // 璝祇ネヴ