开发计划小结

                                                               日期                                          累积资源占用

第一阶段                                                                                                                       %

第二阶段                                                                                                                       %

第三阶段                                                                                                                       %

第四阶段                                                                                                                       %

首次无错误编译运行                                                                                                      %

开发计划报告

日期______________    报告填写人员______________    项目名称_______________________

主管经理批准________________________________________       日期___________________

估计小节

       规模：

              KLOC

              浮动范围

              合计

       开发人月

              系统设计

              界面设计（Demo制作）

              编码和单元测试

              集成和测试

              合计

阶段性评审日期（里程碑）

       第一阶段（总体设计）：

       第二阶段（Demo开发）：

       第三阶段（编码和单元测试）：

       第四阶段（集成和测试）：

计划预计进度图

完成的百分比

时间

10

11

12

40

50

60

70

80

90

100

1

2

3

4

5

6

7

8

9

10

11

12

 

                                                               时间单位：_________/格

开发计划报告 附表

开发计划进度跟踪表

                                          截至日期              编码       单元测试       系统集成度

第一时间周期                                                        %             %                      %

第二时间周期                                                        %             %                      %

第三时间周期                                                        %             %                      %

第四时间周期                                                        %             %                      %

第五时间周期                                                        %             %                      %

第六时间周期                                                        %             %                      %

第七时间周期                                                        %             %                      %

第八时间周期                                                        %             %                      %

第九时间周期                                                        %             %                      %

第十时间周期                                                        %             %                      %

第十一时间周期                                                     %             %                      %

第十二时间周期                                                     %             %                      %

第一章 引言

一、设计来源

       [填入待开发系统名称，如有需求文档编号，则要填上需求文档的编号]

二、界面风格

       [填入整个系统所期望的风格，分辨率和色彩要求，字体要求，画出主窗体图形]

第二章 界面设计

一、系统界面

1．[界面代号]

1.1 界面名称

       [填入界面的名称]

1.2   实现功能

       [以表格的形式表现出在该界面中实现的功能的名称和代号]

1.3   界面外观

       [加入界面图形]

2．[界面代号]

2.1 界面名称

       [填入界面的名称]

2.2   实现功能

       [以表格的形式表现出在该界面中实现的功能的名称和代号]

2.3   界面外观

       [加入界面图形]

3．……

二、常见系统提示信息样式

1．登陆界面

       [加入界面图形]

2．当操作会带来一定后果是（默认按钮为否）

       [加入界面图形]

3．当需要征求操作者意见时（默认按钮为是）

       [加入界面图形]

4．当操作者操作有误时

       [加入界面图形]

5．当一般提示信息时

       [加入界面图形]

6．当发生异常错误时

       [加入界面图形]

第一章 引言

一、目的

       [指明编写该文档的目的]

二、背景

1．系统名称

       [填入待开发系统的名称]

2．实现该系统所需要的计算机网络的拓扑结构图

       [画出计算机网络拓扑结构图]

三、文档约定

1．在本说明书中，正文标题均以中文的“一”、“二”、“三”、……“十一”、“十二”来表示。

2．段落小标题分别用阿拉伯数字“1．”、“2．”、“3．”、……来表示。

3．段落中内容均以“1.1”、“1.11”、……来表示。

4．关于文档中注释或者强调说明的部分用斜体来表示，如：“Computer”。

5．有关特别强调突出的问题以粗黑体字来表示，如：“强调”。

第二章 任务概述

一、目标

1．应用目标以及范围：

       [填入该软件的应用目标，如使系统应用最高限度，最低限度；使用者，使用范围]

2．与外部系统接口：

       [如与外部系统发生关系，则需要在此说明接口；如不发生关系，则需要说明该系统是一独立运行的系统；如本系统需要向外界预留接口，则也在此说明。]

二、用户特点

1．特点：

       [在此需要阐述最终用户的特点，充分说明操作人员和维护人员的水平和专长]

2．使用频度：

       [在此说明用户对该系统的使用频度的期望值，这是软件设计的一个重要约束]

三、开发约束

       [在此处阐明系统开发的约束条件以及开发期限]

第三章 功能描述

一、功能设计

1．[功能代号]

1.1   功能名称

       [填入该功能的名称]

1.2   实现功能描述

       [填入该功能期望实现的目标]

1.3   输入输出要求

       [描述该功能内用户所要求的输入输出的期望目标]

1.4 精度要求

       [描述该功能内用户所要求的输入输出的数据精度的期望目标]

1.5 故障处理要求

       [在此出指出当发生故障时，系统对于故障处理的要求。包括了可预见故障和不可预见故障]

2．[功能代号]

2.1   功能名称

       [填入该功能的名称]

2.1   实现功能描述

       [填入该功能期望实现的目标]

2.2   输入输出要求

       [描述该功能内用户所要求的输入输出的期望目标]

2.3 精度要求

       [描述该功能内用户所要求的输入输出的数据精度的期望目标]

2.4 故障处理要求

       [在此出指出当发生故障时，系统对于故障处理的要求。包括了可预见故障和不可预见故障]

3．……

二、其他专门要求

       [如用户对于系统的安全性，保密性，可维护性，可扩展性，可靠性，运行环境等方面的要求]

第四章 运行环境

一、运行环境

       [描述系统运行的硬件环境]

二、支持软件

       [描述系统运行时需要什么软件的支持]

乙方：_________________ （个人）   身份证号码：______________________

_____________(个人) (以下称乙方)受________________________(以下称甲方)委托进行________________________的开发工作。双方本着相互合作、互惠互利的原则，共同协商达成如下协议：

一、            项目名称：

二、        内容及要求：

1.        开发内容：根据甲方的要求，乙方在规定时间内完成“______________”的开发，该系统的设计要求如下：

l        主要功能：

根据需求设计进行项目的开发以及测试的工作。具体工作由甲方分配。

l        系统运行环境包括：

(1)

              (2)

2.        开发时间：

(1)    启动日期：甲乙双方签字盖章之日即为项目正式启动日期；

(2)    完成期限：自项目正式启动，在__工作日内完成。

三、        双方权利义务：

1.    甲方：

(1)     甲方有权利督促乙方按规定时间完成项目开发，有增加或修改内容双方需另行协商解决；在不影响进程的情况下，对于甲方的小规模变动的需求，乙方必须满足；若出现大幅度的变更，则甲乙双方商议延长开发周期。

(2)     甲方完全拥有________________________系统的所有权，包括使用权、著作权等所有权利；

(3)     甲方应当按照协议，按时向乙方支付开发费用；

(4)     甲方有责任对本协议的内容进行保密；

(5)     甲方有责任对乙方的软件开发技术进行保密，在未经乙方书面许可的情况下，不得向第三方泄露。

(6)     甲方有责任保密乙方的个人信息，不得向第三方泄露。

2.    乙方：

(1)     乙方有责任按甲方的要求在规定时间内完成项目开发，完成需要开发的内容；

(2)     在项目开发完毕之后，在乙方对甲方提供的维护服务期之内，由于甲方设计变更而导致______________________的变更，若变更范围在本合同所规定的功能范围之内，乙方有义务免费为甲方修改变更内容；

(3)     乙方有责任对本协议的内容进行保密；

(4)     乙方有责任对与甲方项目的接口规范进行保密，在未经甲方书面许可的情况下，不得向第三方泄露；

(5)     乙方有责任在项目验收合格完成之后，向甲方提供__个月的免费维护服务，此维护仅指软件bug的修改以及小范围的功能性改动；

(6)     乙方有责任自行准备软件开发所需的硬件设备、开发资料及语音SDK。

四、        费用和支付方式：

1.    费用：此项目费用合计为________元人民币

2.    支付方式：

(1)     第一阶段：

在合同签订之后的__个工作日内，支付乙方_______元人民币。

(2)     第二阶段：

在甲方整体项目开发完毕后__个工作日内完成测试验收，并向乙方提供验收合格报告。同时，乙方将软件设计相关文档交付给甲方，甲方在__个工作日内支付乙方______元人民币。

(3)     第三阶段：

在项目开发完毕6个月后的__个工作日，甲方向乙方支付余款_____元人民币。

3.    违约责任：

(1)   甲方有责任按期支付乙方费用，如因甲方自身原因，未能按时交付，则每延期一天，甲方将额外支付乙方总费用的0.5%作为补偿；

(2)   乙方有责任按期向交付甲方源代码和设计文档，实现项目中的所有功能，如因乙方自身原因，未能按时交付，则每延期一天，甲方将扣除乙方总费用的0.5%作为补偿。 如确因甲方原因，造成乙方未能按时交付，则乙方不承担由此造成的甲方的损失。

五、        适用法律：

本协议按中华人民共和国法律解释。

六、        仲裁

对在本协议履行过程中出现的争议，双方本着友好协商的原则予以解决，如协商不能解决时，合同的任何一方可将争议提交本地仲裁委员会，并按该委员会的仲裁规则进行仲裁。仲裁决定对双方都有约束力。争议进行仲裁期间，除争议事项外，甲乙双方应继续履行各自本合同中规定的义务和行使权利。

七、        甲乙双方指定联系人及联系方式

若甲乙双方变更联系人，需要做出书面通知以告知对方。

八、        其它：

本合同壹式贰份，双方各执壹份，签字盖章有效。

SSL and TLS application

[SSL and TLS introduction]

SSL( Secure socket layer) protocal was developed by Netscape Enterprise at first. Now it has become a global standard which is used by network to identify web site and web page browse user identity, and to encrypt communication between browser user and web server. Because SSL technology has been built inside all main browser and web server program, server functions can be activated only by installing digital certificate or server certificate.

IETF(www.ietf.org) standardize the SSL, that is RFC2246, which is named as TSL (Transport Layer Security). Technically, there is very tiny difference between TLS1.0 and SSL3.0. Because it is not referred to the tiny difference between them in this article, the two terms are equal in this article.

SSL is an optional layer between HTTP and TCP. The general position is as follows:

                               －－－－－－－－－－－－－－

                                               HTTP

                               ---------------------------------------

                                               SSL

                               ---------------------------------------

                                               TCP

                               ---------------------------------------

                                                IP

                                --------------------------------------

       The SSL layer has established an encryption channel above the TCP layer . The data passed through is encrypted so that it can achieve the security effect. The SSL layer consults an encryption key with the aid of the lower layers' protocal channel safety, and encrypts the HTTP request with this key; But the TCP layer and the Web Server 443 ports establish a connection, transmitting the the data which is processed by SSL.

Although SSL is suitablly used in HTTP, it also can be used in FTP or other related protocals. It is run in transmission layer and independent in applications, so the related protocals such as FTP or the HTTP may put above this, using initial handshake to carry on the authentication for the server. In this process, the server submits the certificate to the client and assigns the first choice password which have to use. Then, the client produce a secret key which soon is used in the conversation period which will be carried on later. Then the client submits it to the server, and correspondingly encrypts it with the public key of the server. The server uses its private key to decrpyt messages, restore the secret key, and then send a message, which uses this secret, through the client in order to authenticate itself to the client. Uses this secret key, which has been become a protocal, to carry on the further exchange for the encryption data. And uses the second stage (optional) to further increase the security. Here, the server sends an interpellation.  Regarding this the client makes the response and returns this interpellation's digital signal and the client public key certificate to the server. The interpellation stage usually uses MD5 RSA with the useful message abstract to execute. Also can use several kinds of symmetrical password, including DES, tertiary DES, IDEA, RC2 and RC4. The public key certificate conforms to the X.509 standard. The SSL encryption under the default condition only to carry on the authentication of the server, the authentication of client is optional.

[the security hole of SSL]

Although a website has possibly used the SSL security technology, this certainly does not mean that the data which is inputting and later will input in this website also is safe. All people should realize that SSL provides only a small part solutions in the electronic business entity security. Use SSL in the website possibly can create the manager some certain illusions to its site security. The received attack of the website which has used SSL has no difference with other servers, similarly should pay attention to each aspect of the security. In brief, the encryption and the digital certificate, the main composition of the SSL, always is unable to protect server - - they can only protect the data which this server receives and dispatches.

Three kinds of SSL common security problems are as following :

1. Attack certificate

Public CA organizations, such as Verisign and so on, are certainly not always reliable. The mistake the system manager usually made is that they too trust the public CA organization such as Verisign and etc. For example, if Verisign provides a certificate to say I am "someone", the system manager very possibly can believe "I am someone". But, the public CA organization possibly does not pay attention to the accuracy of website digital certificate as much as the user's certificate. For example, Verisign has sent a "keyman" organization's certificate, but I am one of the members of the organization "JACK". When a website requests to authenticate user's identity, we submit "JACK" certificate. You possibly can be surprised with the result returned. More serious, because Microsoft Corporation's IIS server has provided Client Certificate Mapping function, it is used to map the name of the submitted certificate of the client to the user account of the NT system. We can obtain the system manager privilege of this host computer in this kind of situation!

If the hacker cannot use the illegal certificate above to breakthrough the server, they may attempt the brute-force attack. Although the brute-force attack certificate is more difficult than the brute-force attack password, there still is one of the attack methods. In order to get the brute-force attack client authentication, the hacker edit a list of the possible user name, then apply certificate to CA organization for each name . Each certificate uses to attempt to gain the visit jurisdiction. The better user name choose, the higher the certificate is approved. The convenience of the brute-force attack certificate is that it only needs to guess an effective user name, not to guess the user name and the password.

2. steal the certificate

Besides the methods above, the hacker also possibly steals the effective certificate and the corresponding private key. Use the Trojan horse is the simplest method. This kind of attack nearly may cause the client certificate as not existing. It attacks a certificate fundamental weakness: The private key - - core of the entire security system  - - usually preserves in the unsafe place. Perhaps save the certificate to the equipment such as smart card or token and etc. is the only effective method  to cope with these attacks.

3.Security scotoma

The system manager can not use the existing vulnerability scanners or intrusion detection systems, IDS, to examine or monitor the SSL transaction in the network. Intrusion detection systems is looking for the activity which has not passed through the authentication by monitoring network transmission. Any network activities which conform to the known attack pattern or do not pass through the authorized policy all are signed to let the system administrator to inspect.

But in order to let IDS have the function, IDS must be able to inspect all networks' flux information, but the technology of SSL encryption actually causes the information which passes through the http transmission unable to let IDS identify. Furthermore, although we may use the newest security scanning software examines general web page server to seek the security scotoma which is already know, this kind of scanning software certainly cannot inspect the server through the protection of SSL . The web page server, which has the protection of SSL, indeed have as same security scotoma as the common server, but perhaps because of the time and difficulty of establishing the SSL connection, vulnerability scanners certainly are not able to examine the web page server which has the SSL protection. No network monitor system and no vulnerability checkup enable the most important server become the least proceted server.

Aiming at these questions we has the following three solutions:

1. Through the SSL of Proxy proxy server

We may use this material examination technology in a SSL Proxy substitute program. SSL Proxy is a HTTP communication request software which receives the pure text in the connection port 80, it can forwards these requests to the destination website through the connection which is encrypted by SSL. We open a listening socket which will transfer the data entering this proxy  in the connection port 80, through the OpenSSL commands above.  This on Unix only is a small skill: You only add the below instruction into your /etc/inetd.conf file, this inetd.conf includes all options of network services which are provided by inetd:

www stream tcp nowait root /usr/sbin/tcpd /usr/local/bin/ssl_proxy.sh

But the content of /usr/local/bin/ssl_proxy.sh then states as follows:

#!/bin/sh

       /usr/local/ssl/bin/openssl s_client -no_tls1 -quiet -connect 168.172.100.10:443 2>/dev/null

168.172.100.10 is the website address under the SSL protection. "-no_tls1" and "-quiet" options switch off the SSL handshake's title display, and also delete the warning which is sent out by SSL regarding to the website ceritificate which not yet passes through authorization.

If you want to test your proxy connection, you can only use pure text method to build a connection in the system connection port 80 which is executing SSL proxy. This proxy can use SSL to forward the requests received to the destination websiete.

$ telnet 182.197.110.180 GET / HTTP/1.0

In here, server is implementing SSL proxy mechanism the address of 182.197.110.1, but the address received the true protection is 168.172.100.10. Through this SSL proxy mechanism, we only point the security scanning software to the IP address of proxy, so we can use it to examine a SSL server.

2、OpenSSL

OpenSSL includes a set of programs and function libraries, supplies the user SSL function, and allows software engineering to combine the SSL module with their programs. In the multitudinous products supplied by SSL, the most products which can be used to discuss here are command-line SSL client and server tool software. OpenSSL program is a program of command row interface, it is used to initial SSL connection by manual. OpenSSL lets you reguide the input and output of the information with other programs.

3. Monitoring SSL server

The current network IDS only can monitor the pure text information, so we only have two choice: monitor the SSL connection in the server or convert all connection material to the pure text format. Most web page servers have some fundemental log recording functions. For instance: Microsoft IIS Web server has its own log producing function, using W3svc1 format, it can scan lots of general attack statues of the network. I will make the demonstrative attack by the SSL proxy,which aims at the Windows NT4.0's IIS server which has SSL protection, mentioned earlier. We use the general common msadc security penetration technology which discovered by Rain Forest Puppy. Our IIS server is under the  C:\WINNT\system32\LogFiles directory, recording the following logs:

12:25:45 10.0.0.1 GET /msadc/msadcs. dll 200

12:25:48 10.0.0.1 POST / msadc/msadcs.dll 200

However, because this log files usually exist in the web server, a successful attack event expresses that the hacker possibly do something to the log file. In addition, the security administrator must check the log file (others such as IDS, firewall and etc.) in the server everyday. This really is not the best solution.

Besides using the host computing's log files, another method is to convert the SSL connection to pure text format. So that IDS of network can monitor the material intercourse. Some products provide this function, but they mainly use to develop the efficiency of processing data, not for the reason of network securrity. Build and maintain SSL connection must consume equivalent CPU time,  so that it will decrease the efficiency of web server. In the market there are several merchants which provide "the electronic business accelerator", in order to move the work coped with the SSL to different equipment or proccessor. You can put IDS between the proccesor and the web server, in order to monitor the pure text format of the network traffic. There is a problem to use this method to monitor. That is You must have at least one network segment. This network segment must be secure and seperated with other network equipment.

       [SSL和TLS介绍]

       SSL（Secure socket layer）协议最初由Netscape企业发展，现已成为网络用来鉴别网站和网页浏览者身份，以及在浏览器使用者及网页服务器之间进行加密通讯的全球化标准。由于SSL技术已建立到所有主要的浏览器和WEB服务器程序中，因此，仅需安装数字证书，或服务器证书就可以激活服务器功能了。

       IETF（www.ietf.org）将SSL做了标准化，即RFC2246，并将其称为TSL（Transport Layer Security），从技术上讲，TLS1.0与SSL3.0的差别非常微小。由于本文中没有涉及两者之间的细小差别，所以在本文中这两个名词等价。

       SSL是介于HTTP和TCP之间的一个可选层，其大致位置如下

                       ---------------------

                              HTTP

                       ---------------------

                              SSL

                       ---------------------

                              TCP

                       ---------------------

                              IP

                       ---------------------

       SSL层在TCP层之上建立了一个加密通道，通过这一层的数据经过了加密，因此达到了保密的效果。SSL层借助下层协议的信道安全协商出一份加密密钥，并用此密钥来加密HTTP请求；而TCP层与Web Server的443端口建立连接，传递SSL处理后的数据。

       虽然 SSL 最适合用于 HTTP，但它也可以用于 FTP 或其它相关协议。它在传输层运行并且是独立于应用程序的，因此象 FTP 或 HTTP 之类的相关协议可以放在该层之上。使用初始握手来对服务器进行认证。在这一过程中，服务器把证书提交到客户机并指定要使用的首选密码。然后，客户机生成在即将进行的会话期间使用的秘钥，然后将它提交给服务器，并相应地用服务器的公钥对它加密。服务器使用其私钥解密消息，恢复秘钥，然后通过向客户机发送一条使用该秘钥加密的消息来向客户机认证自己。使用这一达成协议的秘钥对加密的数据进行进一步的交换。可以用第二阶段（可选）来进一步增加安全性。这里，服务器发送一个质询，客户机对此作出响应，向服务器返回该质询的数字签名和客户机的公钥证书。质询阶段通常是使用带有用于消息摘要的 MD5 的 RSA 执行的。也可以使用各种对称密码，包括 DES、三重 DES、IDEA、RC2 和 RC4。公钥证书符合 X.509 标准。SSL加密在缺省状态下只进行Server端的认证，客户端的认证是可选的。

       [SSL的安全漏洞]

       虽然一个网站可能使用了SSL安全技术，但这并不是说在该网站中正在输入和以后输入的数据也是安全的。所有人都应该意识到SSL提供的仅仅是电子商务整体安全中的一小部份解决方案。SSL在网站上的使用可能会造成管理员对其站点安全性的某些错觉。使用了SSL的网站所可能受到的攻击和其它服务器并无任何区别，同样应该留意各方面的安全性。简言之，加密和数字证书，SSL的主要组成，从来都无法保护服务器－－它们仅仅可以保护该服务器所收发的数据。

SSL常见安全问题下面三种：

       1、攻击证书

       类似Verisign之类的公共CA机构并不总是可靠的，系统管理员经常犯的错误是过于信任Verisign等的公共CA机构。例如，如果Verisign发放一个证书说我是“某某某”，系统管理员很可能就会相信“我是某某某”。但是，对于用户的证书，公共CA机构可能不象对网站数字证书那样重视和关心其准确性。例如，Verisign发放了一个“keyman"组织的证书，而我是其中一员“JACK”。当一个网站要求认证用户身份时，我们提交了“JACK”的证书。你可能会对其返回的结果大吃一惊的。更为严重的是，由于微软公司的IIS服务器提供了“客户端证书映射”（Client Certificate Mapping）功能，用于将客户端提交证书中的名字映射到NT系统的用户帐号，在这种情况下我们就能够获得该主机的系统管理员特权！

       如果黑客不能利用上面的非法的证书突破服务器，他们可以尝试暴力攻击（brute-force attack）。虽然暴力攻击证书比暴力攻击口令更为困难，但仍然是一种攻击方法。要暴力攻击客户端认证，黑客编辑一个可能的用户名字列表，然后为每一个名字向CA机构申请证书。每一个证书都用于尝试获取访问权限。用户名的选择越好，其中一个证书被认可的可能性就越高。暴力攻击证书的方便之处在于它仅需要猜测一个有效的用户名，而不是猜测用户名和口令。

       2、窃取证书

       除上面的方法外，黑客还可能窃取有效的证书及相应的私有密钥。最简单的方法是利用特洛伊木马。这种攻击几乎可使客户端证书形同虚设。它攻击的是证书的一个根本性弱点：私有密钥－－整个安全系统的核心－－经常保存在不安全的地方。对付这些攻击的唯一有效方法或许是将证书保存到智能卡或令牌之类的设备中。

       3、安全盲点

       系统管理员没办法使用现有的安全漏洞扫描（vulnerability scanners）或网络入侵侦测系统（intrusion detection systems，IDS），来审查或监控网络上的SSL交易。网络入侵侦测系统是通过监测网络传输来找寻没有经过认证的活动。任何符合已知的攻击模式或者并未经过政策上授权的网络活动都被标起来以供系统管理者检视。而要让IDS能够发生作用，IDS必须能够检视所有的网络流量信息，但是SSL的加密技术却使得通过http 传输的信息无法让IDS辨认。再者，虽然我们可以用最新的安全扫描软件审查一般的网页服务器来寻找已知的安全盲点，这种扫描软件并不会检查经过SSL保护的服务器。受到SSL保护的网页服务器的确拥有与一般服务器同样的安全盲点，可是也许是因为建立SSL连结所需要的时间以及困难度，安全漏洞扫描软件并不会审查受到SSL 保护的网页服务器。没有网络监测系统再加上没有安全漏洞审查，使得最重要的服务器反而成为受到最少防护的服务器。

       那么针对于这些问题我们有如下三种解决方法：

       1、通过Proxy代理服务器的SSL  

       我们可以在一个SSL Proxy代理程序上使用这项资料审查技术。SSL Proxy是一个在连接埠80上接收纯文字的 HTTP通讯请求的软件，它会将这些请求通过经由SSL加密过的连结，转寄到目标网站。我们在连接埠80开一个听取的socket，通过上述的OpenSSL指令，将所有进入这个proxy的数据传送出去。这在Unix上，只是个小技巧：你只须将以下的指令加到你们的/etc/inetd.conf档案里面，这个inetd.conf包含所有inetd所提供的网络服务的设定：

       www stream tcp nowait root /usr/sbin/tcpd /usr/local/bin/ssl_proxy.sh

       而/usr/local/bin/ssl_proxy.sh的内容则如下所述：

       #!/bin/sh

       /usr/local/ssl/bin/openssl s_client -no_tls1 -quiet -connect 168.172.100.10:443 2>/dev/null

       168.172.100.10是SSL防护下的网站的地址所在。其中“-no_tls1”以及“-quiet”选项将SSL交谈（handshake）的标题显示关掉，并且也删除了SSL对于尚未经过授权的网站认证所发出的警告。

       如果你要想测试你的proxy连结，那么你只要以纯文字的方式，在执行SSL proxy的系统的连接端口80建立联机。这个proxy会使用SSL来转寄接收的请求到目标网站。

       $ telnet 182.197.110.180 GET / HTTP/1.0

       在这里，服务器正在182.197.110.1的地址执行SSL proxy机制，而真正受到SSL保护的地址则是在168.172.100.10。通过这个SSL proxy机制，我们只要将安全扫描软件指向proxy的IP地址，就可以使用它来审查一个SSL服务器。

       2、OpenSSL

       OpenSSL包含了一套程序以及函式库，提供前端使用者SSL功能，并且允许软件工程师将SSL模块与他们的程序结合。在众多由SSL提供的产品里面，最能够用来让我们在这里讨论的是命令列模式的（command-line）SSL客户端以及伺服端工具软件。OpenSSL程序是一个指令列接口的程序，它是用来以手动的方式起始SSL连结。OpenSSL让你重新导引与其它程序之间的资料输入以及输出。

       3、监测SSL服务器

       现在的网络IDS只能够监视纯文字资料内容，所以我们只能够有两项选择：监视服务器上的SSL连结或者将整个连结资料转为纯文字格式。大部分的网页服务器都有一些基本的日志纪录功能。例如：Microsoft的IIS Web server有内建的日志制作功能，使用的是W3svc1格式，它可以侦测到很多一般的网络攻击状况。我通过前述的SSL proxy针对Windows NT 4.0上具备有SSL防护的IIS服务器，来作示范性的攻击。我们用的是由Rain Forest Puppy发现的一般性常见的msadc安全穿透技术。我们的IIS服务器在C:\WINNT\system32\LogFiles的目录下，记载了以下的日志：

       12:25:45 10.0.0.1 GET /msadc/msadcs. dll 200

       12:25:48 10.0.0.1 POST / msadc/msadcs.dll 200

       然而，因为这些日志文件通常是存在网页服务器上面，因此，一个成功的攻击事件表示黑客很可能已经对日志文件下了手脚了。此外，安全管理员必须每天检查服务器上的日志文件（另外还有IDS，防火墙等等），这实在不是个最佳的解决方案。

       除了使用主机日志文件的以外，另一个方式是将SSL连结转换成纯文字格式。如此一来网络的IDS就能够监视资料往来。有几种产品提供这项功能，不过他们主要是为了要提升数据处理效能，而不是为了网络安全的理由。建立以及维护SSL连结，必须耗用相当的CPU时间，如此一来会减损网页服务器的效能。市面上有几家厂商提供“电子商务加速器”，用来将与SSL交涉的工作移到不同的装置或处理器。你可以将IDS置放于加速器跟网页服务器之间，以监控纯文字格式的网络交通。用这种方式监控的话，有一个问题。那就是你必须有至少一个网络区隔（network segment）。这个网络区隔必须是安全的，而且与其它的网络装置分开来。

backup log [DataBaseName] with NO_LOG
backup log [DataBaseName] with TRUNCATE_ONLY
DBCC SHRINKDATABASE([DataBaseName])

这样就可以清除掉SQLSERVER数据库日志了

服务器在半个月前使用后，就一直被闲置，昨天拿出来用之前，安装了一个瑞星杀毒软件，然后客户端的查询分析器就无法连接到服务器的数据库了。总是提示“服务器拒绝访问”。然后从服务器上用查询分析器连接数据库确是正常的。接下来，我又从网上邻居登陆服务器后，再用客户端查询分析器连接服务器，成功。重新启动客户端后，又无法连接服务器了。

起初认为是服务器端验证的问题，问了很多朋友，非常肯定地告诉我去修改数据库的认证方式，改成“SqlServ认证和Windows认证”。怀着疑惑的心情，我检查了我的数据库认证方式，发现我采用的就是SqlServer和windows认证。在网上查了很多资料，却毫无收获。

此时就想到会不会是端口没有打开，于是开始用扫描工具X-Scan对服务器进行扫描，没有发现1433端口。心里长出一口气：原来端口被封了。

返回到服务器上，准备打开端口，发现服务器上没有安装任何的防火墙，有点郁闷了，于是产生了一个非常可笑的想法，是不是安装瑞星的时候把防火墙装上了，但是没有安装前台管理的东西（我现在还为当时产生这种想法而感到可耻）。我开始四处奔波去找瑞星的防火墙，安装防火墙，一切顺利。打开防火墙，没有发现对1433端口进行设置。不管三七二十一，先增加一个IP访问规则，对1433端口放行！这回应该万事大吉了。返回到客户端后，再次通过查询分析器连接数据库，Oh MyGod！为什么还会有错误提示！

冷静下来仔细想想前面的操作，发现自己忽略了一点重要的问题：“需要从网上邻居登录到服务器后才能从查询分析器连接到服务器。”于是又一次重复该操作，郁闷，问题还是一样，不通过网上邻居登录就不能够连接到数据库服务器。好像问题出在了操作系统上面，看看时间，已经晚上7点半了。于是决定先去解决肚子问题，第二天来重新安装操作系统，将分区格式更改为Fat32。

今天早上做到服务器跟前，准备重新安装操作系统，发现自己犯了一个比较弱的错误，没有带SCSI驱动~，犯懒，不回去取了，等中午吃饭的时候再说吧。（我为自己这个伟大的决定而感到骄傲！后面就知道为什么了）

打开服务器，决定首先重新安装SqlServer。卸载数据库，安装数据库，我哭了。数据库安装失败。个人版，企业版，标准版，开发版，每一个版本都告诉我无法启动服务器，无法配置服务器。此时便想到会不会没有卸载干净，打开注册表，开始查找与SqlServer相关的注册信息，5分钟后，又一次哭了。注意：不是没有，是太多了，不知道哪个是SqlServer自己留下的。于是放弃了这个想法。经过一番努力后，一个朋友告诉我，把原来的SqlServer的文件全部删除掉看看~ 这回安装成功了。

怀着满心的喜悦打开客户端的查询分析器，输入服务器IP地址，输入用户名，输入密码，轻轻地点了下OK~ 

败了~

触目惊心的错误信息又蹦出来了！“拒绝访问”。瞬间我意识到了，这个不是服务器的问题，是客户端的问题（愚昧的我忽略了重要的一点，是所有的客户端都无法连接这个服务器，不是仅我这一台）。下定决心开始从客户端下手，对这客户端的显示器，我发现我不知道该从什么地方开始找问题。许久，决定用ODBC连接尝试一下，因为记得在ODBC中有一个客户端设置，打开，先采用管道方式，再采用TCP方式，均以失败告终。

有点束手无策了。已经中午11点多了，肚子有点饿了。想想要不要去取SCSI的驱动，犯懒，不想动。

忽然有个想法跳了出来（此处严重声明一点，该想法不属于我，是朋友提醒的）：会不会你连接数据库就没有采用TCP的方式呢？起初我对这个想法已经不抱希望了，满心都是想着 Reinstall Operation System。但是又没有到吃饭时间，闲着无聊。打开了服务器的网络实用工具，禁用了全部的协议，然后仅添加上TCP协议。回到客户端~~连接成功了！！！！！返回服务器，添加命名管道，再从客户端连接，失败；删除掉命名管道，成功！！又用其他的客户端连接服务器，都成功了。

万幸万幸，万幸没有Reinstall Operation System。否则我现在还在找SCSI驱动呢。

至此，SqlServer闹剧结束，虽然不能说早知如此之类的话（其实早也不知道），但是感觉这一天的努力没有白费，虽然还不知道问题出在了什么地方。

如果以后有人出现这种问题的话，建议不要绕那么大圈子了。直接这样尝试一下。

这里要全力感谢猪哥，没有他的帮助，我的问题也解决不了！

hoho~~下午可以去海边玩了。今天星期天~~~~

原文如下：

该存储过程的功能是去完成在多个无关系数据表中执行联合查询和计算，最后生成一个统计表。

这个存储过程中包括了：参数传递，存储过程间相互调用并返回结果集到临时表中，使用sp_executesql执行动态生成的Sql语句，临时表的创建以及使用

==============================================================

CREATE procedure sp_MakeCond
 @FdName nvarchar(20),
 @FdRecord nvarchar(250),
 @CXZT int,
 @GSBM nvarchar(10),
 @Cond nvarchar(250) output
as

 /*
 功能：
  根据@CXZT的状态，对于字段@FdName进行内容@FdRecord的匹配。
  当@FdRecord中有内容的时候，进行匹配
  当@GSBM中有内容的时候，添加GSBM的条件
 输入:
  @FdName 字段名称
  @FdRecord    字段内容
  @GSBM 
  @CXZT      查询状态 0-表示精确，1-表示模糊，2-表示智能
      该状态仅对KHMC起作用
 输出：
  @Cond   条件语句 例如: 
    输入   dwmc,'上海',1,'RRL'
    输出 dwmc like '上海%' and gsbm='RRL' 
 */
 
 /*
 创建人： 
 创建日期：
 --对于改存储过程的版本更新记录在这个地方

 */
 declare @HaveFdRecord as int

 Set @HaveFdRecord = 0
 Set @Cond = ''

 /* 添加FdRecord */
 if len(rtrim(ltrim(@FdRecord)))>0
 begin
 select @Cond=
  case @CXZT
   when 0 then
    @Cond + @FdName + N'=''' + @FdRecord + ''''
   when 1 then
    @Cond + @FdName + N' like ''' + @FdRecord + '%'''
   when 2 then
    @Cond + @FdName + N' like ''%' + @FdRecord + '%'''
   end
  set @HaveFdRecord = 1
 end

 /* 添加GSBM */
 if len(rtrim(ltrim(@GSBM)))>0
 begin
  if @HaveFdRecord=1
  begin
   Set @Cond = @Cond + ' and '
  end
  set @Cond = @Cond + ' gsbm=''' + @GSBM + ''''
 end
GO


==============================================================

CREATE Procedure sp_Math_KHYE
 @KHMC nvarchar(250),
 @JZRQ datetime,
 @CXZT int,
 @GSBM nvarchar(10)
as
 /*
 功能：
 输入：
  @KHMC  客户名称
  @CXZT 查询状态 0-表示精确，1-表示模糊，2-表示智能
    该状态仅对KHMC起作用
  @JZRQ  截至日期
  @GSBM 
 输出：
  @ReturnKHYE  根据条件计算出来的客户余额
 说明：在调用该过程前，需按照如下语句定义一个命名为#KHYEReturn的临时表
 Create Table #KHYEReturn
  (dwmc nvarchar(250),khye decimal(15,6))
 在使用完毕#KHYEReturn后，应该立刻使用下列语句释放该临时表
 delete from #KHYEReturn
 drop Table #KHYEReturn
 */

 /*
 实现方法：
  
 */

 /*
 创建人： 
 创建日期：

 --对于改存储过程的版本更新记录在这个地方

 */
 
 Declare @SqlString nvarchar(1000)
 Declare @Cond nvarchar(250)

-- 制作查询条件，存入@Cond 
EXECUTE sp_MakeCond 'dwmc',@KHMC,@CXZT,@GSBM,@Cond output
 
 /*  */
 set @SqlString = 'select dwmc,sum(xhsl*hsj) as xsje from xsdda where xsrq<=@vJZRQ and ' + @Cond
 set @SqlString = @SqlString + ' group by dwmc'

 Create table #sp_Math_KHYE_XSJE(dwmc nvarchar(250),xsje decimal(15,6))
 
 Declare @ParmDefinition nvarchar(100)
 set @ParmDefinition = '@vKHMC nvarchar(250),@vJZRQ datetime'

-- 这个地方就是调用sp_executesql来执行动态SqlString并将结果返回到一张临时表里面

-- 在这里，曾经试图将结果返回到游标中间，但是没有成功。
-- 根据资料 insert 和 exec 是不能够嵌套执行的，不过在这个地方比较奇怪，这两个可以嵌套执行。
-- 需要注意的地方：@ParmDefnition是用来定义在sp_executesql中间要使用的变量的。
-- 曾经试验这个地方直接传一个字符串，不使用变量传递，结果报错。不知道有没有其它的人成功过
-- 在@ParmDefinition后面就要传递一个变量列表，按照我的理解，
-- 就是在这个地方给sp_executesql过程中要使用的变量（也就是Sql语句的变量）赋值

 insert into #sp_Math_KHYE_XSJE EXECUTE sp_executesql  @SqlString,   
      @ParmDefinition,
      @vKHMC=@KHMC,
       @vJZRQ=@JZRQ

 /*  */
 set @SqlString = ''
 set @SqlString = 'select dwmc,sum(bcsk+ysk) as fkje from xhskdda where skrq<=@vJZRQ and ' + @Cond
 set @SqlString = @SqlString + ' group by dwmc'

 Create table #sp_Math_KHYE_FKJE(dwmc nvarchar(250),fkje decimal(15,6))
 
 set @ParmDefinition=''
 set @ParmDefinition = '@vKHMC nvarchar(250),@vJZRQ datetime'
 insert into #sp_Math_KHYE_FKJE EXECUTE sp_executesql  @SqlString,
      @ParmDefinition,
      @vKHMC=@KHMC,
       @vJZRQ=@JZRQ
 
 Create Table #sp_Math_KHYE_Result(
  dwmc nvarchar(250),khye decimal(15,6))

-- 比较简单的Sql语句了，左联右联，BT的需求，只能用BT的写法

 insert into #sp_Math_KHYE_Result
 select distinct T1.dwmc as dwmc,(T1.fkje-T1.xsje) as khye from
 (
 select
  #sp_Math_KHYE_XSJE.dwmc as dwmc,
  isnull(#sp_Math_KHYE_XSJE.xsje,0) as xsje,
  isnull(#sp_Math_KHYE_FKJE.fkje,0) as fkje
 from #sp_Math_KHYE_XSJE,#sp_Math_KHYE_FKJE
 where #sp_Math_KHYE_XSJE.dwmc*=#sp_Math_KHYE_FKJE.dwmc
 union
 select
  #sp_Math_KHYE_XSJE.dwmc as dwmc,
  isnull(#sp_Math_KHYE_XSJE.xsje,0) as xsje,
  isnull(#sp_Math_KHYE_FKJE.fkje,0) as fkje
 from #sp_Math_KHYE_XSJE,#sp_Math_KHYE_FKJE
 where #sp_Math_KHYE_FKJE.dwmc*=#sp_Math_KHYE_XSJE.dwmc
 ) as T1

 insert into #KHYEReturn select * from #sp_Math_KHYE_Result
GO


==================================================================


CREATE Procedure sp_KHYEXYTJ
 @StartDate datetime,
 @EndDate datetime,
 @KHMC nvarchar(250),
 @CXZT int,
 @GSBM nvarchar(100)
as
 /*
 功能：
 输入:
  @StartDate 开始日期
  @EndDate    截至日期
  @KHMC 客户名称
  @CXZT      查询状态 0-表示精确，1-表示模糊，2-表示智能
      该状态仅对KHMC起作用
  @GSBM 
 输出：
  
  表结构：
   dwmc ncye  ssye  bqxs  qmye  khxye  cxye
 */
 
 /*
 创建人： 
 创建日期：

 --对于改存储过程的版本更新记录在这个地方

 */

  -- 这个地方求了一堆乱七八糟的数据，是需要用来输出的。

 -- 求得表#sp_KHYEXYTJ_QMKHYE
 Create Table #sp_KHYEXYTJ_QMKHYE
  (dwmc nvarchar(250),QMkhye decimal(15,6))
 Create Table #KHYEReturn
  (dwmc nvarchar(250),khye decimal(15,6))
 execute sp_Math_KHYE @KHMC,@EndDate,@CXZT,@GSBM
 insert into #sp_KHYEXYTJ_QMKHYE(dwmc,QMKHYE) select * from #KHYEReturn
 delete from #KHYEReturn

 -- 求得表#sp_KHYEXYTJ_QMKHYE
 Declare @NowDate datetime
 set @NowDate = GetDate()
 Create Table #sp_KHYEXYTJ_KHYE
  (dwmc nvarchar(250),khye decimal(15,6))
 execute sp_Math_KHYE @KHMC,@NowDate,@CXZT,@GSBM
 insert into #sp_KHYEXYTJ_KHYE select * from #KHYEReturn
 delete from #KHYEReturn

 -- 求得表#sp_KHYEXYTJ_NCYE
 Create Table #sp_KHYEXYTJ_NCYE
  (dwmc nvarchar(250),ncye decimal(15,6))
 Set @NowDate=cast(str(year(GetDate()))+'-01-01 00:00:00' as datetime)
 execute sp_Math_KHYE @KHMC,@NowDate,@CXZT,@GSBM
 insert into #sp_KHYEXYTJ_NCYE select * from #KHYEReturn
 delete from #KHYEReturn
 drop table #KHYEReturn

 --
 Declare @SqlString nvarchar(500)
 Declare @Cond nvarchar(100)

-- 这里也是求查询条件的地方
 EXECUTE sp_MakeCond 'dwmc',@KHMC,@CXZT,@GSBM,@Cond output

 set @SqlString = 'select dwmc,sum(xhsl*hsj) as xsje from xsdda where xsrq<=@vEndDate and xsrq>=@vStartDate and ' + @Cond
 set @SqlString = @SqlString + ' group by dwmc'

 Create table #sp_KHYEXYTJ_XSJE(dwmc nvarchar(250),xsje decimal(15,6))
 
 Declare @ParmDefinition nvarchar(100)
 set @ParmDefinition = '@vKHMC nvarchar(250),@vEndDate datetime,@vStartDate datetime'
 insert into #sp_KHYEXYTJ_XSJE EXECUTE sp_executesql  @SqlString,
      @ParmDefinition,
      @vKHMC=@KHMC,
       @vEndDate=@EndDate,
      @vStartDate=@StartDate

 -- 制作输出表
 Create Table #sp_KHYEXYTJ_ReslutTable
  (dwmc nvarchar(250),
  ncye decimal(15,6),
  ssye decimal(15,6),
  bqxs decimal(15,6),
  qmye decimal(15,6),
  khxye decimal(15,6),
  cxye decimal(15,6))

  -- 下面就是一堆乱七八糟的东西了。本来是将数据放到游标中去，然后对游标进行循环处理
  --  不过好像速度却很慢，一共是3张数据表，三章表数据分别为1k,4k,2W，
  -- 用游标处理，最终返回统计表600条数据用了27秒，一个比较让人发傻的时间
  -- 可能是我写的不好吧，但是这个时间也确实太长了
  -- 所以，就又换成按照临时表来处理，分别将各个需要统计的数据分开统计，
  -- 然后放入到不同的临时表里面，最后再将所有的数据根据dwmc这个字段进行关联，一起输出。
  -- 最终查询结果，同样数据量，用时2秒钟。
  -- 对于这个时间来说，我还是比较满意的。因为算的数据比较多了，而且和前面用游标用了27s
  -- 根本就不是一个等量级。不管好坏，先可以拿出来见人了。

 -- 写入输出表,并生成统计列表
 insert into #sp_KHYEXYTJ_ReslutTable(dwmc,bqxs)
  select dwmc,xsje from #sp_KHYEXYTJ_XSJE

 -- 写入输出表
 update #sp_KHYEXYTJ_ReslutTable
  set #sp_KHYEXYTJ_ReslutTable.ssye = #sp_KHYEXYTJ_KHYE.khye
  from #sp_KHYEXYTJ_KHYE
  where #sp_KHYEXYTJ_ReslutTable.dwmc = #sp_KHYEXYTJ_KHYE.dwmc

 --写入输出表
 update #sp_KHYEXYTJ_ReslutTable
  set #sp_KHYEXYTJ_ReslutTable.qmye = #sp_KHYEXYTJ_QMKHYE.QMkhye
  from #sp_KHYEXYTJ_QMKHYE
  where #sp_KHYEXYTJ_ReslutTable.dwmc = #sp_KHYEXYTJ_QMKHYE.dwmc

 -- 写入输出表
 update #sp_KHYEXYTJ_ReslutTable
  set #sp_KHYEXYTJ_ReslutTable.ncye = #sp_KHYEXYTJ_NCYE.ncye
  from #sp_KHYEXYTJ_NCYE
  where #sp_KHYEXYTJ_ReslutTable.dwmc = #sp_KHYEXYTJ_NCYE.dwmc

 -- 计算
 update #sp_KHYEXYTJ_ReslutTable
  set #sp_KHYEXYTJ_ReslutTable.khxye = isnull(xhkhda.khxye,0),
       #sp_KHYEXYTJ_ReslutTable.cxye = abs(#sp_KHYEXYTJ_ReslutTable.ssye)-isnull(xhkhda.khxye,0)
  from xhkhda
  where #sp_KHYEXYTJ_ReslutTable.dwmc = xhkhda.dwmc

 --最终输出结果了，因为都是算得金额了，为了减小误差，在计算的时候
 -- 全部使用6位小数，在输出的时候，取了两位小数来输出

 -- 输入表
 select
  rtrim(ltrim(dwmc)) as dwmc,
  cast(round(isnull(ncye,0),2) as decimal(15,2)) as ncye,
  cast(round(isnull(ssye,0),2) as decimal(15,2)) as ssye,
  cast(round(isnull(bqxs,0),2) as decimal(15,2)) as bqxs,
  cast(round(isnull(qmye,0),2) as decimal(15,2)) as qmye,
  cast(round(isnull(khxye,0),2) as decimal(15,2)) as khxye,
  cast(round(isnull(
  case
   when cxye<= 0 then 0
   when cxye>0 then cxye
  end,0),2) as decimal(15,2)) as cxye

 from #sp_KHYEXYTJ_ReslutTable
GO

这三个存储过程写的比较乱啦，毕竟是我的第一个存储过程嘛。可以谅解的。不过以后就不能写这么乱的存储过程了，否则不可饶恕。

在这三个存储过程中有一些地方写的还是不尽人意，比方说，存储过程A调用存储过程B，而存储过程B需要返回一个结果集供A使用。虽然用了一个临时表来作为存储用，可是总想象写OO一样，把临时表或者结果集象对象一样返回出去。记得在写这个地方的前一天偶然看了资料，可以把结果集放到游标中output出去。不过写的时候忘记了在什么地方看到的了，又犯了懒，所以干脆就直接使用一个临时表，反正游标返回出来后，也是要放到临时表里面去的嘛。

不过都是些很有用的咚咚

×调用EXCLE打开文件。
USES SHELLAPI
Shellexecute(handle,nil,pchar('c:\报表.xls'),nil,nil,sw_shownormal);

◇[DELPHI]关于处理注册表
uses Registry;
var reg:Tregistry;
reg:=Tregistry.create;
reg.rootkey:='HKey_Current_User';
reg.openkey('Control Panel\Desktop',false);
reg.WriteString('Title Wallpaper','0');
reg.writeString('Wallpaper',filelistbox1.filename);
reg.closereg;
reg.free;

×报错函数
procedure ErrMsg(sMsg:String; sPrompt:String='出错信息');//出错信息显示框
begin
  Application.MessageBox(PChar(sMsg), PChar(sPrompt), MB_IConERROR or MB_OK)
end;
×出错信息
    try
    except
      on E: Exception do begin
        ErrMsg(Format('登录[%s]数据库失败,回退操作将失效；'#13#10, [Server]) + E.Message);
        Result := False;
      end;
    end;

×中文提示框
Application.MessageBox('无法打开指定文件', '提示', MB_OK);

×转换时间的函数
formatdatetime('yyyy"年"mm"月"dd"日"', UnccSysDate)；UnccSysDate 为TDATATIME类型

×定死小数点后的位数
Format('%*.*n', [10, 2, FieldByName('syje').AsFloat]

×类型转换函数
  inttostr(); 将数字转换为字符串
  Ord(); 返回一个字符的序号（ASCII码）
  Char(); 把一个整型数转化成相应序号的字符
  UpCase(); 把小写转化为大写

×字符串处理函数
  concat(); 与（+）功能相同，将多个字符串组合在一起
  copy();  会返回一个字符串中的子字符串
  delete(); 在一个字符串中从一个指定位置起删除一定数字的字符（）
  insert(); 在一个字符串中插入一个字符串
  length(); 返回字符串的长度
  pos();  返回一个子字符串在一个字符串中的位置

载入文件的实现方法
×var 
  ts:tstring;
  begin
  ts:tstinglist.creat;
  ts.loadfromfile('文件的绝对路径'); //调用文件

×文件夹操作
uses filectrl;
procedure ForceDirectorys(dir:string)
       //一次建立指定的多级文件夹
function DirectoryExists(Name: string): Boolean;
      // 指定文件夹是否存在
function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint):Boolean;
     // 打开一个选择文件夹的对话框(英文的)

×var mytextfile:textfile;              
begin assignfile(mytextfile,'mytextfile.exe');
reset(mytextfile);//rewrite()创建并打开文件（已有就覆盖），reset()以只读方式打开文件，append()以追加方式打开文件；
try
 //可以加一句while nit eof(mytextfile) do;
 {
 //操作文件
 for i:=1 to 5 do
 begin s:='This is line #';
 writeln(mytextfile,s,i);//结果被创建的文件中包含 this is line # 1……this is line # 5
 //writeln()为往指定文件中写东西，还有readln(mytextfile,s,i)从指定的文件中读数据;
 end;
 }
 finally
 closefile(mytextfile);
 end;
end;

×edit只能接收数字
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if ((Key < '0') or (Key > '9'))
then Key := Chr(0);
end;

×创建路径USES  FileCtrl;
if not DirectoryExists(ExtractFilePath(paramstr(0)) + 'ElectronicBill\') then
         CreateDir(ExtractFilePath(paramstr(0)) + 'ElectronicBill\');
fileexists();判断文件是否存在。
 
×选择一个路径  USES FileCtrl;
 SelectDirectory('请选择存储路径！', '我的电脑', sSavePath); 

◇[DELPHI]网络邻居复制文件
uses shellapi;
copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false);

◇[DELPHI]产生鼠标拖动效果
通过MouseMove事件、DragOver事件、EndDrag事件实现，例如在PANEL上的LABEL：
var xpanel,ypanel,xlabel,ylabel:integer;
PANEL的MouseMove事件：xpanel:=x;ypanel:=y;
PANEL的DragOver事件：xpanel:=x;ypanel:=y;
LABEL的MouseMove事件：xlabel:=x;ylabel:=y;
LABEL的EndDrag事件：label.left:=xpanel-xlabel;label.top:=ypanel-ylabel;

◇[DELPHI]取得WINDOWS目录
uses shellapi;
var windir:array[0..255] of char;
getwindowsdirectory(windir,sizeof(windir));
或者从注册表中读取，位置：
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion
SystemRoot键，取得如：C:\WINDOWS

◇[DELPHI]在form或其他容器上画线
var x,y:array [0..50] of integer;
canvas.pen.color:=clred;
canvas.pen.style:=psDash;
form1.canvas.moveto(trunc(x),trunc(y));
form1.canvas.lineto(trunc(x[j]),trunc(y[j]));

◇[DELPHI]字符串列表使用
var tips:tstringlist;
tips:=tstringlist.create;
tips.loadfromfile('filename.txt');
edit1.text:=tips[0];
tips.add('last line addition string');
tips.insert(1,'insert string at NO 2 line');
tips.savetofile('newfile.txt');
tips.free;

◇[DELPHI]简单的剪贴板操作
richedit1.selectall;
richedit1.copytoclipboard;
richedit1.cuttoclipboard;
edit1.pastefromclipboard;

◇[DELPHI]关于文件、目录操作
Chdir('c:\abcdir');转到目录
Mkdir('dirname');建立目录
Rmdir('dirname');删除目录
GetCurrentDir;//取当前目录名，无'\'
Getdir(0,s);//取工作目录名s:='c:\abcdir';
Deletfile('abc.txt');//删除文件
Renamefile('old.txt','new.txt');//文件更名
ExtractFilename(filelistbox1.filename);//取文件名
ExtractFileExt(filelistbox1.filename);//取文件后缀

◇[DELPHI]处理文件属性
attr:=filegetattr(filelistbox1.filename);
if (attr and faReadonly)=faReadonly then ... //只读
if (attr and faSysfile)=faSysfile then ... //系统
if (attr and faArchive)=faArchive then ... //存档
if (attr and faHidden)=faHidden then ... //隐藏

◇[DELPHI]执行程序外文件
WINEXEC//调用可执行文件
winexec('command.com /c copy *.* c:\',SW_Normal);
winexec('start abc.txt');
ShellExecute或ShellExecuteEx//启动文件关联程序
function executefile(const filename,params,defaultDir:string;showCmd:integer):THandle;
ExecuteFile('C:\abc\a.txt','x.abc','c:\abc\',0);
ExecuteFile('http://tingweb.yeah.net','','',0);
ExecuteFile('mailto:tingweb@wx88.net','','',0);

关于键盘常量名
VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE
/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN
F1--F12：$70(112)--$7B(123)
A-Z：$41(65)--$5A(90)
0-9：$30(48)--$39(57)
◇[DELPHI]初步判断程序母语
DELPHI软件的DOS提示：This Program Must Be Run Under Win32.
VC++软件的DOS提示：This Program Cannot Be Run In DOS Mode.

增加到文档菜单连接
uses shellapi,shlOBJ;
shAddToRecentDocs(shArd_path,pchar(filepath));//增加连接
shAddToRecentDocs(shArd_path,nil);//清空

判断鼠标按键
if GetAsyncKeyState(VK_LButton)<>0 then ... //左键
if GetAsyncKeyState(VK_MButton)<>0 then ... //中键
if GetAsyncKeyState(VK_RButton)<>0 then ... //右键

按键接受消息
OnCreate事件中处理：Application.OnMessage:=MyOnMessage;
procedure Tform1.MyOnMessage(var MSG:TMSG;var Handle:Boolean);
begin
if msg.message=256 then ... //ANY键
if msg.message=112 then ... //F1
if msg.message=113 then ... //F2
end;

隐藏共享文件夹
共享效果：可访问，但不可见（在资源管理、网络邻居中）
取共享名为：direction$
访问：//computer/dirction/

//-----取得快捷方式中的连接
function ExeFromLink(const linkname: string): string;
var
FDir,
FName,
ExeName: PChar;
z: integer;
begin
ExeName:= StrAlloc(MAX_PATH);
FName:= StrAlloc(MAX_PATH);
FDir:= StrAlloc(MAX_PATH);
StrPCopy(FName, ExtractFileName(linkname));
StrPCopy(FDir, ExtractFilePath(linkname));
z:= FindExecutable(FName, FDir, ExeName);
if z > 32 then
Result:= StrPas(ExeName)
else
Result:= '';
StrDispose(FDir);
StrDispose(FName);
StrDispose(ExeName);
end;

控制TCombobox的自动完成
{'Sorted' property of the TCombobox to true }
var lastKey: Word; //全局变量
//TCombobox的OnChange事件
procedure Tform1.AutoCompleteChange(Sender: TObject);
var
SearchStr: string;
retVal: integer;
begin
SearchStr := (Sender as TCombobox).Text;
if lastKey <> VK_BACK then // backspace: VK_BACK or $08
begin
retVal := (Sender as TCombobox).Perform(CB_FINDSTRING, -1, LongInt(PChar(SearchStr)));
if retVal > CB_Err then
begin
(Sender as TCombobox).ItemIndex := retVal;
(Sender as TCombobox).SelStart := Length(SearchStr);
(Sender as TCombobox).SelLength :=
(Length((Sender as TCombobox).Text) - Length(SearchStr));
end; // retVal > CB_Err
end; // lastKey <> VK_BACK
lastKey := 0; // reset lastKey
end;
//TCombobox的onKeyDown事件
procedure Tform1.AutoCompleteKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
lastKey := Key;
end;

如何清空一个目录
function EmptyDirectory(TheDirectory :String  Recursive : Boolean) :
Boolean;
var
SearchRec : TSearchRec;
Res : Integer;
begin
Result := False;
TheDirectory := NormalDir(TheDirectory);
Res := FindFirst(TheDirectory + '*.*', faAnyFile, SearchRec);
try
while Res = 0 do
begin
if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
begin
if ((SearchRec.Attr and faDirectory) > 0) and Recursive
then begin
EmptyDirectory(TheDirectory + SearchRec.Name, True);
RemoveDirectory(PChar(TheDirectory + SearchRec.Name));
end
else begin
DeleteFile(PChar(TheDirectory + SearchRec.Name))
end;
end;
Res := FindNext(SearchRec);
end;
Result := True;
finally
FindClose(SearchRec.FindHandle);
end;
end;

得到硬盘序列号
var SerialNum : pdword; a, b : dword; Buffer : array [0..255] of char;
begin
if GetVolumeInformation('c:\', Buffer, SizeOf(Buffer), SerialNum, a, b, nil, 0) then Label1.Caption := IntToStr(SerialNum^);
end;

取得系统运行的进程名
var hCurrentWindow:HWnd;szText:array[0..254] of char;
begin
hCurrentWindow:=Getwindow(handle,GW_HWndFrist);
while hCurrentWindow <> 0 do
begin
if Getwindowtext(hcurrnetwindow,@sztext,255)>0 then listbox1.items.add(strpas(@sztext));
hCurrentWindow:=Getwindow(hCurrentwindow,GW_HWndNext);
end;
end;

程序不出现在ALT+CTRL+DEL
在implementation后添加声明:
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';
RegisterServiceProcess(GetCurrentProcessID, 1);//隐藏
RegisterServiceProcess(GetCurrentProcessID, 0);//显示
用ALT+DEL+CTRL看不见

程序不出现在任务栏
uses windows
var
Extendedstyle : Integer;
begin
Application.Initialize;
//==============================================================
Extendedstyle := GetWindowLong (Application.Handle, GWL_EXstyle);
SetWindowLong(Application.Handle, GWL_EXstyle, Extendedstyle OR WS_EX_TOOLWINDOW
AND NOT WS_EX_APPWINDOW);
//===============================================================
Application.Createform(Tform1, form1);
Application.Run;
end.

处理“右键菜单”方法
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('*\shell\check\command', true);
reg.WriteString('', '"' + application.ExeName + '" "%1"');
reg.CloseKey;
reg.OpenKey('*\shell\diary', false);
reg.WriteString('', '操作(&C)');
reg.CloseKey;
reg.Free;
showmessage('DONE!');
end;

[DELPHI]发送虚拟键值ctrl V
procedure sendpaste;
begin
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
end;

当前的光驱的盘符
procedure getcdrom(var cd:char);
var
str:string;
drivers:integer;
driver:char;
i,temp:integer;
begin
drivers:=getlogicaldrives;
temp:=(1 and drivers);
for i:=0 to 26 do
begin
if temp=1 then
begin
driver:=char(i+integer('a'));
str:=driver+':';
if getdrivetype(pchar(str))=drive_cdrom then
begin
cd:=driver;
exit;
end;
end;
drivers:=(drivers shr 1);
temp:=(1 and drivers);
end;
end;

向其他应用程序发送模拟键
var
h: THandle;
begin
h := FindWindow(nil, '应用程序标题');
PostMessage(h, WM_KEYDOWN, VK_F9, 0);//发送F9键
end;

□◇[DELPHI]DELPHI 支持的DAO数据格式
td.Fields.Append(td.CreateField ('dbBoolean',dbBoolean,0));
td.Fields.Append(td.CreateField ('dbByte',dbByte,0));
td.Fields.Append(td.CreateField ('dbInteger',dbInteger,0));
td.Fields.Append(td.CreateField ('dbLong',dbLong,0));
td.Fields.Append(td.CreateField ('dbCurrency',dbCurrency,0));
td.Fields.Append(td.CreateField ('dbSingle',dbSingle,0));
td.Fields.Append(td.CreateField ('dbDouble',dbDouble,0));
td.Fields.Append(td.CreateField ('dbDate',dbDate,0));
td.Fields.Append(td.CreateField ('dbBinary',dbBinary,0));
td.Fields.Append(td.CreateField ('dbText',dbText,0));
td.Fields.Append(td.CreateField ('dbLongBinary',dbLongBinary,0));
td.Fields.Append(td.CreateField ('dbMemo',dbMemo,0));
td.Fields['ID'].Set_Attributes(dbAutoIncrField);//自增字段

得到图像上某一点的RGB值
procedure Tform1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
red,green,blue:byte
i:integer;
begin
i:= image1.Canvas.Pixels[x,y];
Blue:= GetBvalue(i);
Green:= GetGvalue(i):
Red:= GetRvalue(i);
Label1.Caption:=inttostr(Red);
Label2.Caption:=inttostr(Green);
Label3.Caption:=inttostr(Blue);
end;

如何判断当前网络连接方式
判断结果是MODEM、局域网或是代理服务器方式。
uses wininet;
Function ConnectionKind :boolean;
var flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
showmessage('Modem');
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
showmessage('LAN');
end;
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
showmessage('Proxy');
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
showmessage('Modem Busy');
end;
end;
end;

如何判断字符串是否是有效EMAIL地址
function IsEMail(EMail: String): Boolean;
var s: String;ETpos: Integer;
begin
ETpos:= pos('@', EMail);
if ETpos > 1 then
begin
s:= copy(EMail,ETpos+1,Length(EMail));
if (pos('.', s) > 1) and (pos('.', s) < length(s)) then
Result:= true else Result:= false;
end
else
Result:= false;
end;

判断系统是否连接INTERNET
需要引入URL.DLL中的InetIsOffline函数。
函数申明为：
function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';
然后就可以调用函数判断系统是否连接到INTERNET
if InetIsOffline(0) then ShowMessage('not connected!')
else ShowMessage('connected!');
该函数返回TRUE如果本地系统没有连接到INTERNET。
附：
大多数装有IE或OFFICE97的系统都有此DLL可供调用。
InetIsOffline
BOOL InetIsOffline(
DWORD dwFlags,
);

取机器BIOS信息
with Memo1.Lines do
begin
Add('MainBoardBiosName:'+^I+string(Pchar(Ptr($FE061))));
Add('MainBoardBiosCopyRight:'+^I+string(Pchar(Ptr($FE091))));
Add('MainBoardBiosDate:'+^I+string(Pchar(Ptr($FFFF5))));
Add('MainBoardBiosSerialNo:'+^I+string(Pchar(Ptr($FEC71))));
end;

差不多也就这么多了～～～有用的上的就拿去用吧

因为是网上收集的，所以不晓得原作者~~

向原作者发出崇高的敬意~~

多余的话就不说了，大家拿去用吧

procedure getsharefolder(const computername:string);
var    //----获取某一计算机上的共享目录
  errcode,a:integer;
  netres:array[0..1023] of netresource;
  enumhandle:thandle;
  enumentries,buffersize:dword;
  s:string;
  mylistitems:tlistitems;
  mylistitem:tlistitem;
  mystrings:tstringlist;
begin
  with netres[0] do begin
    dwscope :=RESOURCE_GLOBALNET;
    dwtype :=RESOURCETYPE_DISK;
    dwdisplaytype :=RESOURCEDISPLAYTYPE_SHARE;
    dwusage :=RESOURCEUSAGE_CONTAINER;
    lplocalname :=nil;
    lpremotename :=pchar(computername);
    lpcomment :=nil;
    lpprovider :=nil;
  end; // 获取根结点
  errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER,@netres[0],enumhandle);
  if errcode=NO_ERROR then
  begin
    EnumEntries:=1024;
    BufferSize:=SizeOf(NetRes);
    ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);
  end;
  wnetcloseenum(enumhandle);
  a:=0;
  mylistitems:=controlcenter.lstfile.Items
  mylistitems.Clear
  while (string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do
  begin
    with mylistitems do
    begin
      mylistitem:=add;
      mylistitem.ImageIndex :=4;
      mylistitem.Caption :=extractfilename(netres[a].lpremotename);
    end;
    a:=a+1;
  end;
end;

procedure getnethood();//NT做服务器，WIN98上调试通过。
var   // ---获取网上邻居
  a,i:integer;
  errcode:integer;
  netres:array[0..1023] of netresource;
  enumhandle:thandle;
  enumentries:dword;
  buffersize:dword;
  s:string;
  mylistitems:tlistitems;
  mylistitem:tlistitem;
  alldomain:tstrings;
begin //listcomputer is a listview to list all computers;controlcenter is a form.
  alldomain:=tstringlist.Create
  with netres[0] do begin
    dwscope :=RESOURCE_GLOBALNET;
    dwtype :=RESOURCETYPE_ANY;
    dwdisplaytype :=RESOURCEDISPLAYTYPE_DOMAIN;
    dwusage :=RESOURCEUSAGE_CONTAINER;
    lplocalname :=nil;
    lpremotename :=nil;
    lpcomment :=nil;
    lpprovider :=nil;
  end; // 获取所有的域
  errcode:=wnetopenenum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,@netres[0],enumhandle);
  if errcode=NO_ERROR then begin
    enumentries:=1024;
    buffersize:=sizeof(netres);
    errcode:=wnetenumresource(enumhandle,enumentries,@netres[0],buffersize);
  end;
  a:=0;
  mylistitems :=controlcenter.lstcomputer.Items
  mylistitems.Clear
  while (string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do
  begin
    alldomain.Add (netres[a].lpremotename);
    a:=a+1;
  end;
  wnetcloseenum(enumhandle);
// 获取所有的计算机
  mylistitems :=controlcenter.lstcomputer.Items
  mylistitems.Clear
  for i:=0 to alldomain.Count-1 do
  begin
    with netres[0] do begin
      dwscope :=RESOURCE_GLOBALNET;
      dwtype :=RESOURCETYPE_ANY;
      dwdisplaytype :=RESOURCEDISPLAYTYPE_SERVER;
      dwusage :=RESOURCEUSAGE_CONTAINER;
      lplocalname :=nil;
      lpremotename :=pchar(alldomain);
      lpcomment :=nil;
      lpprovider :=nil;
    end;
    ErrCode:=WNetOpenEnum(RESOURCE_GLOBALNET,RESOURCETYPE_ANY,RESOURCEUSAGE_CONTAINER,@netres[0],EnumHandle);
    if errcode=NO_ERROR then
    begin
      EnumEntries:=1024;
      BufferSize:=SizeOf(NetRes);
      ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);
    end;
    a:=0;
    while (string(netres[a].lpprovider)<>'') and (errcode=NO_ERROR) do
    begin
      mylistitem :=mylistitems.Add
      mylistitem.ImageIndex :=0;
      mylistitem.Caption :=uppercase(stringreplace(string(NetRes[a].lpremotename),'\\','',[rfReplaceAll]));
      a:=a+1;
    end;
    wnetcloseenum(enumhandle);
  end;
end;

function GetDomainName(Ip:string):string;
var   //---实现IP到域名的转换
  pH:PHostent;
  data:twsadata;
  ii:dword;
begin
  WSAStartup($101, Data);
  ii:=inet_addr(pchar(ip));
  pH:=gethostbyaddr(@ii,sizeof(ii),PF_INET);
  if (ph<>nil) then
    result:=pH.h_name
  else
    result:='';
  WSACleanup;
end;

function NetOnline : boolean;
begin  //---- 判断拨号网络是开还是关
  if GetSystemMetrics(SM_NETWORK) AND $01 = $01 then
    result := true; //-- 在线
  else result := false; // 不在线
end;

网络下载方面，也有个简单的办法，过几天有空了，我专门弄篇这样的文章上来

这里先提一下这种方法吧

uses UrlMon;

function DownloadFile(Source, Dest: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0; 
  except
    Result := False;
  end;
end;

if DownloadFile('http://www.borland.com/delphi6.zip, 'c:\kylix.zip') then
ShowMessage('Download succesful')
else ShowMessage('Download unsuccesful')

声明：这段代码是我把其它人的代码改出来的，但是出自谁的手我就忘记啦~~大家用吧~~~向原作者致以崇高的敬意！！！

我直接写到了Button的Click下面，懒得做函数了，要用的人拿去自己改改吧，不着急的人就等我有时间改吧~~

procedure TMain.Button3Click(Sender: TObject);      //另存为Excel
var
  ModuleName:string;                             //Excel 模板文件名 *.Xlt
  FileName: String ;                             //文件名
  Col,Row : Integer;                             //行列数
  ExlApp : Variant;                              //定义变量，用于创建excel模板
  i, j : Integer ;                               //整型变量，用于循环
  nocan : boolean;
Begin
  if IsSending then exit;
  DBGrid1.Enabled := false;
 if  ADOQuery1.Active then                       //query2是当前活动的数据源
  begin
   nocan:= savedialog1.Execute; //nocan是全局变量 记录保存对话返回结果 保持 T 取消 F
    if (saveDialog1.FileName <> '') and nocan then
     begin
       FileName:=saveDialog1.FileName;
     // 判断指定的模板文件是否存在
     row:=1;
     col:=1;
     ModuleName := extractfilepath(Application.ExeName)+'Model\OFFICE数据模版.xls';
     If FileExists(ModuleName)= False Then      //没有excel模板文件
       begin
         ShowMessage( 'EXCEL文件: '+ ModuleName + ' 不存在!  请重新安装程序！' ) ;
         Exit ;
       end ;
     EXLApp := CreateOleObject('Excel.Application');
     // 从指定的模板文件*.xlt 新建一 Excel 文档
     ExlApp.WorkBooks.Open(ModuleName);          //打开模板
     ExlAPP.WorkSheets[1].Activate;
      // 把 TDBGrid 的数据导入 Excel 中
     ADOQuery1.First;
     i := Row ;
     //sb1.SimpleText :='       信息：   正在把查询结果写入到EXCEL文件中,需要时间 请勿中断！ 请稍侯...... ';
     application.ProcessMessages;                   //读取系统信息，释放cpu时间片
     self.ProgressBar1.Min := 0;
     self.ProgressBar1.Max := DBGrid1.DataSource.DataSet.RecordCount;
     self.ProgressBar1.Position := 0;
     self.ProgressBar1.Visible := true;
     self.LBState.Caption := '保存数据到Excel';
     self.LBState.Visible := true;
      While Not(DBGrid1.DataSource.DataSet.Eof)  Do //写入excel表
       Begin
             For j:=Col  To DBGrid1.FieldCount+ Col-1  Do
                 ExlApp.Cells[i+1,j].Value := DBGrid1.Fields[j-col].AsString ;  //i+1保留模板列标题
             DBGrid1.DataSource.DataSet.Next ;
             Application.ProcessMessages;
             i := i+1 ;
       End ;
      self.LBState.Caption := '';
      self.ProgressBar1.Position := 0;
      self.ProgressBar1.Visible := false;

     // 保存到 指定的文件
     FileName := Trim(FileName) ;
     IF FileExists(FileName) Then
     DeleteFile(FileName) ;
    try                                //保存意外处理
     ExlAPP.ActiveWorkBook.SaveAs(FileName);
     // 关闭 Excel
     ExlApp.WorkBooks.Close;
     //showmessage('数据导出完毕！' + chr(13) + chr(10) + '保存在您的 '+FileName+'.xls  文件中，请查看！ ');
     Application.MessageBox('数据保存完毕','轴承网商发布系统4.0提示',0);
    except   //取消覆盖处理
     ExlApp.WorkBooks.Close;
     Application.MessageBox('数据保存失败！','网商发布系统4.0提示',0);
    end;
     ExlApp.Quit;
     ExlApp:=Unassigned;
   End;
   end;
   DBGrid1.Enabled := true;
end;

如果你要有奇形怪状的汉字拿来到这个函数里面用，别怪我要打人哦~~~

function GetHzPy(const AHzStr: string): string;
const
 ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),
   (2078, 2273), (2274, 2301), (2302, 2432), (2433, 2593), (2594, 2786), (9999, 0000),
   (2787, 3105), (3106, 3211), (3212, 3471), (3472, 3634), (3635, 3722), (3723, 3729),
   (3730, 3857), (3858, 4026), (4027, 4085), (4086, 4389), (4390, 4557), (9999, 0000),
   (9999, 0000), (4558, 4683), (4684, 4924), (4925, 5248), (5249, 5589));
var
 i, j, HzOrd: integer;
begin
 i := 1;
 while i <= Length(AHzStr) do
 begin
   if (AHzStr[i] >= #160) and (AHzStr[i + 1] >= #160) then
   begin
     HzOrd := (Ord(AHzStr[i]) - 160) * 100 + Ord(AHzStr[i + 1]) - 160;
     for j := 0 to 25 do
     begin
       if (HzOrd >= ChinaCode[j][0]) and (HzOrd <= ChinaCode[j][1]) then
       begin
         Result := Result + char(byte('A') + j);
         break;
       end;
     end;
     Inc(i);
   end else Result := Result + AHzStr[i];
   Inc(i);
 end;
end;

function ReadKey(Root : HKEY;KeyRout : string;KeyName : String;var Value : string) : boolean;
///////////////////////////////////////////////////////////////////
//
//  函数名称：ReadKey
//  函数功能：从注册表中读取数据
//  输入： 无
//         Root : HKEY  注册表的根路径
//         KeyRout : string  路径
//         keyName ：键名
//  输出： value ：读出的值
//         Result ： boolean  *******  true : 得到键值
//                                     false : 没有得到键值
//
//////////////////////////////////////////////////////////////////
var
  Reg : TRegistry;     //注册表的类
begin
  Reg := TRegistry.Create;      //创建一个注册表的类
  try
    try
      Reg.RootKey := Root;      //注册表根路径
      if Reg.OpenKey(KeyRout,false) then    //打开注册表路径 布尔值
      begin
        value := Reg.ReadString(KeyName);  //为真的时候得到注册表的值（键名）
        result := true;                    //键值为真
        Reg.CloseKey;                      //关闭这个类
      end
      else
      begin
        result := false;                   //为假的时候键值为假
      end;
    except                                 //其他情况
      result := false                      //键值为假
    end;
  finally                                  //结束
    Reg.Free;                              //释放类
  end;
end;

function SaveKey(Root : HKEY;KeyRout : string;KeyName : String; Value : string) : boolean;
///////////////////////////////////////////////////////////////////
//
//  函数名称：SaveKey
//  函数功能：注册表中读取数据
//  输入：
//         Root : HKEY  注册表的根路径
//         KeyRout : string  路径
//         keyName ：键名
//         value ：读出的值
//   输出：Result ： boolean  *******  true : 得到键值
//                                     false : 没有得到键值
//
//////////////////////////////////////////////////////////////////
var
  Reg : TRegistry;                                 //变量 注册表的类
begin
  Reg := TRegistry.Create;                         //创建注册表的类
  try
    try
      Reg.RootKey := Root;                         //赋值注册表根路径
      Reg.OpenKey(KeyRout,true);                   //路径为真
      Reg.WriteString(KeyName,Value);              //得到键名
      Reg.CloseKey;                                //关闭注册表
      result := true;                              //键值为真
    except
      result := false;                             //否则键值为假
    end;
  finally                                          //结束
    Reg.Free;                                      //释放注册表
  end;
end;