张志峰的博客

水滴石川,积少成多。

导航

随笔分类 -  Delphi 托盘程序

摘要:Delphi自定义消息应用及delphi托盘实现interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shellapi;const WindowsMessage =WM_USER+101 ;procedure UserPro(Var Message:TMessage):message WindowsMessage其中UserPro是用户自定义消息处理函数的名称,WindowsMessage是Windows消息常量或自定义消息常量。--- 阅读全文

posted @ 2013-08-30 11:23 ╰★张志峰★╮ 阅读(2615) 评论(0) 推荐(0)

摘要:Delphi的托盘编程 。现在很多程序都用这个,比如傲游,迅雷等,主要代码如下:usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ShellAPI, AppEvnts, StdCtrls, Menus;const WM_NID = WM_User + 1000; //声明一个常量private { Private declarations } // 定义两个函数 procedure SysCommand(var SysMsg: TMessage); message WM_ 阅读全文

posted @ 2013-08-29 15:25 ╰★张志峰★╮ 阅读(413) 评论(0) 推荐(0)

摘要:unit MainUnit;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ShellAPI, StdCtrls, Buttons;//涉及到系统编程方面都要用到API函数const WM_NID= WM_USER+1000;//系统规定从WM_USER开始为用户自定义消息。type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure FormCreate(Sender: TObject); proc 阅读全文

posted @ 2013-08-29 15:23 ╰★张志峰★╮ 阅读(643) 评论(0) 推荐(0)