Delphi托盘编程实战演练

　  很多人认为Delphi是一个RAD工具，包括我本人在上学的时候对Delphi也有偏见，现在走出了“象牙塔”，涉及的面广了，遇到的问题多了，慢慢地也有了自己的一点心得体会。其实,Delphi是基于Object Pascal 语言的开发工具，也就是说Delphi本质上是一种语言工具，并且是真正的面向对象的。下面我举的例子就是用Delphi实现的一个托盘小程序。程序短小精悍，脉络分明，我将对关键部分进行详细讲解。就象候俊杰先生把MFC一层一层地剥开一样，今天我也来一次“庖丁解牛”。

　　在Delphi中涉及到系统编程的方面毫无例外都要调用API函数，在ShellAPI.pas单元中有要用到的API函数的原型。

　　实战演练：

　　一．新建一个应用程序：File->New Applicaton 在Interface部分定义一个消息常量：const WM_NID=WM_USER+1000; 系统规定从WM_USER开始为用户自定义消息。

　　二．定义一个全局变量： NotifyIcon:TNotifyIconData，NotifyIcon是非常重要的一个变量，整个程序基本上是围着这个变量在转。TNotifyIconData是一个记录类型，按住Ctrl键，在TNotifyIconData 双击即进入ShellAPI.pas单元。（注：在Delphi中，这是一个非常好的对源代码进行分析的方法，源代码说明一切，你要想知道程序背后的内幕，最好的方法就是分析源代码！）此时出现了以下赋值语句：

　　TNotifyIconData = TNotifyIconDataA，这个意思很明显，就是说TNotifyIconData和TNotifyIconDataA是同种数据类型，接着往下看有：

TNotifyIconDataA = _NOTIFYICONDATAA，意思与刚才的一样，再往下看：

type

_NOTIFYICONDATAA = record

cbSize: DWORD;

Wnd: HWND;

uID: UINT;

uFlags: UINT;

uCallbackMessage: UINT;

hIcon: HICON;

szTip: array [0..63] of AnsiChar;

end;


　　这可真是“千呼万唤始出来，犹抱琵琶半遮面”。现在大家很清楚了，我们刚才定义的全局变量NotifyIcon其实是一个包含有7个成分的记录类型变量，就相当于C/C++中的结构体变量（C/C++的程序员应该是再熟悉不过了）。下面我们逐个来解释记录类型中的7个部分各有什么功能。

　　1> cbSize就是你定义的NotifyIcon变量的大小，用SizeOf(TNotifyIconData)可以取得，如果你是一个熟练的C/C++程序员，你应该不会陌生。在C/C++中，每当要为一个结构体变量分配内存的时候都要：通过 SizeOf(Struct type) 来获知存放一个这样的结构体变量要多少内存。

　　2> Wnd是一个句柄，你希望托盘程序产生的消息有哪个窗体来处理就让Wnd指向那个窗体。

　　例如：你准备在任务栏的托盘小图标上单击时窗体是窗体在“显示”和“隐藏”之间切换，则把Wnd指向主窗体。

　　3> uID:如果你要创建多个托盘小程序，那么怎么区分它们呢？就是靠这个ID号来区分。

　　4> uFlags是一个标志位，它表示当前所创建的托盘程序具有哪些性质：

　　　NIF_ICON 表示当前所设置的图标（即hIcon的值）是有效的

　　　NIF_MESSAGE 表示当前所设置的系统消息（即uCallBackMessage的值）是有效的

　　　NIF_TIP 表示当前所设置的提示条（即szTip的值）是有效的。

　　5> uCallBackMessage这是7个部分里面最重要的一个。这里指定一个回调消息，也就是说这里定义一个消息名，当你单击或者右击托盘图标的时候就会向你在Wnd所指向的窗体发送一个在uCallBackMessage中定义的消息名，然后你在程序中定义一个消息出来函数来处理这个消息。这样就把Windows关于消息的整套流程都处理好了。

　　6> hIcon为托盘图标的句柄，根据这个句柄你就可以增加、修改、删除图标。

　　7> szTip就是当你的鼠标放到任务栏托盘的小图标上的时候弹出来的提示信息。

　　在这里我花了大量的笔墨介绍TNotifyIconData的内幕，把这部分搞清楚了，后面的东西就顺理成章了。

    三．双击主窗体，进入FormCreate的代码区域：

TForm1.FormCreate(Sender:TObject);

Begin
    //NotifyIcon为全局变量，在程序的开头已经定义了

  with NotifyIcon do
        begin
            cbSize:=SizeOf(TNotifyIconData);
            Wnd:=Handle; //指向当前窗体Form1的句柄

      uID:=1;
            uFlags:=NIM_ICON or NIM_MESSAGE or NIM_TIP;
            uCallBackMessage:=WM_NID;
            hIcon:=Application.Icon.Handle;
            szTip:=”张家恶少”；
          end;.
        //把设置好的变量NotifyIcon加入到系统中以便处理

    Shell_NotifyIcon(NIM_ADD,@NotifyIcon);
        End;



　　四．接下来就是定义一个消息处理函数：系统给窗体发来了一个消息，就由下面这个函数来处理。每个消息处理函数都是处理某一类消息的，大家仔细地看看下面函数体的定义和一般的函数定义有什么不一样：消息处理函数要在后面加上消息的名称，这样当系统发来WM_NID消息时，就是自动触发WMNID消息处理函数。

procedure WMNID(var msg:TMessage);message WM_NID;

begin
    case msg.LParam of
    WM_LBUTTONUp; Form1.Visible:=not Form1.Visible;
    WM_RBUTTONUP: ShowMessage(‘您点击的是右键’);
    End;
    End;



　　好了，一个最简单的程序诞生了，大家自己设置好自己喜欢的图标.

　　Project->Options,选中Application页面，在Icon项中加载自己喜欢的图标，这样程序运行时，在任务栏里显示的就是你喜欢的图标了。当你单击图标时，窗体Form1会在可见与不可见之间切换，也就是说单击一下显示，再单击一下又隐藏。当你右击图标的时候会弹出一条消息：“你点击的是右键”。
　　
　　五．最后要记住在关闭应用程序的时候要释放掉建立的托盘程序，否则会占用系统资源。

TForm1.FormDestroy(Sender:TObject);

Begin
    Shell_NotifyIcon(NIM_DELETE,@NotifyIcon);
    End;



　　毕业快半年了，很多东西在学校总理解不了，认识不够深刻；出到社会，接触了不少道中朋友，受益非浅，每有心得体会，总想写成文字，一来总结自己学的东西，二来和大家共同交流。

动态创建、压缩Access数据库(*.MDB)

创建Access数据库几乎是所有Delphi+Access所遇到的难题，我经过两头(昨天上午到现在)的艰苦奋战，终于将它全部解开，现在一一奉献给大家：
　　一、通过OLE方式创建
　　 相信各位都用通过OLE方式访问Word、Excel文件的经历，具体我不说太多，直接把具体代码写出来就完了
　　 在引用部分加入：
　　 uses ComObj;


　　 实现部分：
　　 procedure TFormOffice.BitBtn1Click(Sender: TObject);
　　 var
　　 CreateAccess:OleVariant;
　　 begin
  　　 CreateAccess:=CreateOleObject('ADOX.Catalog');
  　　 CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Aceco.mdb');
  　　 end;


　　 说明：
　　 1、在C:\下创建Aceco.mdb；
　　 2、是Access2000格式，用Access97打不开；
　　 3、系统需安装MDAC，这是好消息，客户不需安装Access也可以
　　二、通过DBEngine创建
　　 这才是关键中的关键，是我一定要写出来的原因！
　　 各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2000，还有MDAC等，问题就在这里！Delphi5.0中早就封装了现成的类，只是大家都没有注意而已它位于：
　　 $Delphi5\Imports
　　 目录下！
　　 其中有DAO97.DCU文件，它是通过DAO350.DLL来完成的，其中的定义部分和DAO350.DLL如出一辙！OK，到现在，所有的一切都明白了(可惜我花了一天时间！)。那么具体实现起来就太方便了，具体过程如下：
　　 在引用部分加入：
　　 uses DAO97;


　　 实现部分：
　　 procedure TFormOffice.BitBtn4Click(Sender: TObject);
　　 var
　　 Engine:DBEngine;
　　 begin
  　　 Engine:=CoDBEngine.Create;
  　　 Engine.CreateDatabase('c:\NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);
  　　 end;


　　 说明：
　　 1、在C:\下创建NewAccess.mdb；
　　 2、语言国家是简体中文；
　　 3、压缩整理数据库用Engine.CompactDatabase('c:\invoice.mdb','c:\God.mdb','',0,'');

就是将c:\invoice.mdb压缩整理成c:\God.mdb，剩下的只是将c:\invoice.mdb删除(DeleteFile('c:\invoice.mdb');)，然后将c:\God.mdb重新命名(RenameFile('c:\God.mdb','c:\invoice.mdb');)即可。
　　三、通过Access97创建，然后拷贝
　　四、通过ODBC的API函数创建
　　补充：
　　 1、通过OLE方式创建时如果是Access97，那么可能是CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.3.5.1;Data Source=c:\Aceco.mdb');，嘿嘿，小弟对VB实在是一窍不通，还望各位再测试一下(可以需要MDAC比较低的版本)。
　　 2、关于CreateDatabase中国家的设置：
　　 Module LanguageConstants; // DAO predefined constants.
　　 dbLangArabic = ;LANGID=0x0401;CP=1256;COUNTRY=0;
　　 dbLangCzech = ;LANGID=0x0405;CP=1250;COUNTRY=0;
　　 dbLangDutch = ;LANGID=0x0413;CP=1252;COUNTRY=0;
　　 dbLangGeneral = ;LANGID=0x0409;CP=1252;COUNTRY=0;
　　 dbLangGreek = ;LANGID=0x0408;CP=1253;COUNTRY=0;
　　 dbLangHebrew = ;LANGID=0x040D;CP=1255;COUNTRY=0;
　　 dbLangHungarian = ;LANGID=0x040E;CP=1250;COUNTRY=0;
　　 dbLangIcelandic = ;LANGID=0x040F;CP=1252;COUNTRY=0;
　　 dbLangNordic = ;LANGID=0x041D;CP=1252;COUNTRY=0;
　　 dbLangNorwDan = ;LANGID=0x0414;CP=1252;COUNTRY=0;
　　 dbLangPolish = ;LANGID=0x0415;CP=1250;COUNTRY=0;
　　 dbLangCyrillic = ;LANGID=0x0419;CP=1251;COUNTRY=0;
　　 dbLangSpanish = ;LANGID=0x040A;CP=1252;COUNTRY=0;
　　 dbLangSwedFin = ;LANGID=0x040B;CP=1252;COUNTRY=0;
　　 dbLangTurkish = ;LANGID=0x041F;CP=1254;COUNTRY=0;
　　 dbLangJapanese = ;LANGID=0x0411;CP=932;COUNTRY=0;
　　 dbLangChineseSimplified = ;LANGID=0x0804;CP=936;COUNTRY=0;
　　 dbLangChineseTraditional = ;LANGID=0x0404;CP=950;COUNTRY=0;
　　 dbLangKorean = ;LANGID=0x0412;CP=949;COUNTRY=0;
　　 dbLangThai = ;LANGID=0x041E;CP=874;COUNTRY=0;
　　 dbLangSlovenian = ;LANGID=0x0424;CP=1250;COUNTRY=0;


　　 3、关于CreateDatabase中数据库版本信息
　　 Enum DatabaseTypeEnum;
　　 dbVersion10 = 1;
　　 dbEncrypt = 2;
　　 dbDecrypt = 4;
　　 dbVersion11 = 8;
　　 dbVersion20 = 16;
　　 dbVersion30 = 32;


　　 4、其它方面，希望各位再加补充。

[[i] 本帖最后由 蓝色虫 于 2006-11-25 13:53 编辑 [/i]]