delphi 让程序在状态栏运行

页面导航:首页 > 软件编程 > Delphi > delphi 让程序在状态栏运行

delphi 让程序在状态栏运行

来源: 作者: 时间:2016-01-18 15:41 【

自己写的关于程序在状态栏相关操作,只列出了主要部分,大家自己琢磨吧!const mymsg= wm_user + 1; //定义消息键值type TMainForm = class(TForm) ...... private { Private declarations } pro...

自己写的关于程序在状态栏相关操作,只列出了主要部分,大家自己琢磨吧!

 


const
  mymsg= wm_user + 1;   //定义消息键值

 

 

type


  TMainForm = class(TForm)

      ......


  private
    { Private declarations }
    procedure mymessage(var message:tmessage); message mymsg;   //定义接收自定义消息后的功能


var
  MainForm: TMainForm;
  ntid: TnotifyIconDataA;

 


procedure TMainForm.FormCreate(Sender: TObject);

begin
  //让程序不在任务栏中显示

  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);

     ntid.cbsize := sizeof(TnotifyIconDataA);
     ntid.Wnd := Handle;
     ntid.uID := 100;
     ntid.uFlags := NIF_ICON + NIF_TIP + NIF_MESSAGE;
     ntid.uCallbackMessage := mymsg;
     ntid.hIcon := image1.Picture.Icon.Handle;   //Application.Icon.handle 图标
     ntid.szTip := 'SMS系统服务平台';
     shell_notifyicona(NIM_ADD,@ntid);
     self.Visible := false;

end;

 


状态图表操作:


   ntid.hIcon := image2.Picture.Icon.Handle;     //显示工作图标
   shell_notifyicona(NIM_MODIFY,@ntid);

   ntid.hIcon := image1.Picture.Icon.Handle;     //显示工作停止图标
   shell_notifyicona(NIM_MODIFY,@ntid);

  shell_notifyicona(NIM_DELETE,@ntid);   //删除图标,退出程序时用

 


窗口操作:

  ShowWindow(MainForm.Handle,SW_HIDE);  //隐藏主窗口
  ShowWindow(MainForm.Handle,SW_SHOW);  //显示主窗口

 

 


//自定义消息操作功能:


procedure TMainForm.mymessage(var message: tmessage);   //接收自定义消息,右键显示PopupMenu
var
  mypt:Tpoint;
begin
  Inherited;
  if message.LParam = WM_RBUTTONUP then begin
     getCursorPos(mypt);
     PM1.Popup(mypt.X, mypt.Y);
  end;
  message.Result := 0;
end;

 

 

 

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<