project1.dpr

来自「delphi写的大小写转换程序」· DPR 代码 · 共 39 行

program Project1;

uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  ShellAPI,
  Unit1 in 'Unit1.pas' {Form1};

Const
  WM_BARICON=WM_USER+200;
  sc_idabout=wm_user+55;
{$R *.RES}

var
   lpData:PNotifyIconData;
begin
  Application.Initialize;
  Application.Title := '大小写转换程序';
  Application.CreateForm(TForm1, Form1);
  lpData := new(PNotifyIconDataA);
     lpData.cbSize := 88;
     lpData.Wnd := Form1.Handle;
     lpData.hIcon := Form1.Icon.Handle;
     lpData.uCallbackMessage := WM_BARICON;
     lpData.uID :=0;
     lpData.szTip := '大小写转换程序';
     lpData.uFlags := NIF_ICON
          or NIF_MESSAGE or NIF_TIP;
     Shell_NotifyIcon(NIM_ADD,lpData);
     dispose(lpData);
  Application.ShowMainForm := false;
  Application.Run;
end.