博客园_陆岛工作室

分享：桌面背景收藏夹程序；方便你设置与管理桌面图片。

2011-09-23T20:46:00Z

桌面背景收藏夹程序

(陆岛工作室　2011.09)

点击以下图标下载程序

http://files.cnblogs.com/iinsnian/XOTecDTFavorites.rar

1. 方便地把自己喜欢的图片添加到收藏夹作为桌面背景。

2. 随时可以将收藏夹中的图片设置为当前桌面背景。

3. 添加收藏夹图片方便快捷，可以打开收藏夹窗口，将图片文件直接拖入。或者在图片文件上点击右键，添加到收藏夹中。

4. 与操作系统无缝整合，在桌面或资源管理器中点击右键，就可以方便地更换桌面背景图片。

5. 可以在Windows桌面上用右键中唤出菜单，随时方便地更换背景，即刻获得新的桌面心情。

6. 可以方便地管理收藏夹中的桌面图片。

7. 程序简单实用，不占系统资源。

8. 绿色软件，无需安装。无插件，无广告。无后门，无木马。放心使用。

9. 陆岛工作室热心提供，方便大家。

收藏夹主界面

提供管理桌面图片的基本功能。可以添加喜欢的图片到收藏夹，直接选中图片设置桌面背景。或随机使用收藏夹中的图片设为桌面背景。

收藏夹能接收文件拖入。在资源管理器中或图片浏览器将喜欢的图片拖入收藏夹。即可收藏该图片。方便下次更换桌面背景。

程序提供了与系统资源管理器与桌面无缝衔接的右键菜单功能。只需点击“帮助”--〉“整合到资源管理器右键菜单”即可将程序桌面更换功能整合到操作系统中，方便随时更换桌面背景，收藏自己喜欢的图片文件。

（设置该功能时，部分防病毒软件或许会提醒是否加入右键注册表的修改。点允许修改即可，程序只加入右键菜单，需在注册表中进行注册。不会对系统作其他修改。）

与资源管理器无缝衔接。在资源管理器中，选中自己喜欢的图片，点击鼠标右键，在唤出的菜单中可以将该图片设置为桌面、加入收藏夹。也可以直接唤出桌面收藏夹管理器。方便地对喜欢的桌面图片进行设置或管理。

与 Windows 桌面无缝衔接。在桌面空白处唤出菜单，即可方便地更换桌面背景，可以随机，或按顺序更换桌面。随时获取新的桌面心情。

如果本程序给您带来了方便，请记住 陆岛工作室 为您提供的服务。软件免费使用。更多的软件信息，请关注我们的网页与QQ群动态信息。
你下载的为内部测试版，程序不足之处敬请谅解，如有好的建议或新的提议，请及时反馈给我们。

QQ群:　软件讨论组群：96444537 陆岛工作室会员群：59908643

本文链接

DevExpress VCL v2011 vol 1.6 下载地址

2011-09-19T19:16:00Z

下载到最新版的 DevExpress VCL 版本为：DevExpress VCL v2011 vol 1.6。

虽然有段时间没用这玩意儿了，但相信有用的朋友还有需要的。现将下载地址贴出来。需要的人直接去取吧。也在此作一备注，以便自己以后要用的时候方便找得到。

下载地址：

DevExpress VCL v2011 vol 1.6 Part1

http://download.csdn.net/detail/iinsnian/3614494

DevExpress VCL v2011 vol 1.6 Part2

http://download.csdn.net/detail/iinsnian/3614513

DevExpress 从 V5.6版后就改名为 DevExpress VCL 2011 v1.3了。作了许多新的改进。需要了解的可点此地址直接参观下：

What's New in Build v2011 vol 1.3
http://www.devexpress.com/Subscriptions/VCL/WhatsNewBuild11.1.3/

本文链接

JAVA语言之基础篇

2011-09-18T14:46:00Z

JAVA语言之基础篇

(2011.09 陆岛整理)

JAVA的历史

Java技术是由美国Sun公司倡导和推出。其历史概要如下：

l 1990年，Sun公司James Gosling领导的小组设计了一种平台独立的语言Oak，主要用于为各种家用电器编写程序。

l 1995年1月，Oak被改名为Java；

l 1995年5月23日，Java正式诞生。Sun公司在Sun World ‘95上正式发布Java和HotJava浏览器。

l 1996年1月，Sun公司成立JavaSoft部，以开发、销售并支持基于Java技术的产品。同时推出Java开发工具包JDK（Java Development Kit）1.0。

l 1996年3月，Sun公司推出Java WorkShop。

l 1996年8月，JavaWorkShop成为Sun公司通过互联网提供的第一个产品。

l 1996年9月，Addison-Wesley和Sun公司推出Java虚拟机规范和Java类库。

l 1996年6月，Sun公司发布JSP1.0，同时推出JDK1.3和Java Web Server 2.0。公司发布JAVA的三个版本：标准版(J2SE)，企业版(J2EE)，微型版(J2ME)；

l 1998年2月，JDK1.1累计被下载超过2,000,000次。

l 1999年11月，Sun公司发布JSP1.1，同时推出JSWDK1.0.1和Java Servlet 2.2。

l 2000年9月，Sun公司发布JSP1.2和Java Servlet 2.3 API。

l 2002年2月，Sun公司发布J2SE1.4，至此JAVA的运算能力有了大幅提高。

l 2004年9月，Sun公司发布J2SE 1.5发布。这是一个里程碑式的版本，为了表示该版本的重要性，J2SE 1.5 更名为 Java SE 5.0

l 2006年12月，Sun公司布布 JRE 6.0

l 2009年4月，甲骨文74亿美元收购Sun。取得java的版权。从此 JAVA 属于 Oracle公司。

l 2010年9月，JDK7.0已经发布，增加了简单闭包功能。　　

l 2011年7月，甲骨文公司发布java7的正式版。

JAVA 语言的基本情况

Java语言是一种优秀的编程语言。它最大的优点就是与平台无关，在Windows 9x、Windows NT、Solaris、Linux、MacOS以及其它平台上，都可以使用相同的代码。“一次编写，到处运行”的特点，使其在互联网上被广泛采用。Java语言的语法结构与C++语言的语法结构十分相似，是一种比C++语言“还面向对象”的一种编程语言。

相当对C++，Java新特性包括：

1、提供了对内存的自动管理，程序员无需在程序中进行分配、释放内存，那些可怕的内存分配错误不会再打扰设计者了；

2、去除了C++语言中的令人费解、容易出错的“指针”，用其它方法来进行弥补；

3、避免了赋值语句（如a = 3）与逻辑运算语句（如a = = 3）的混淆；

4、取消了多重继承这一复杂的概念。

Java语言是一种解释型语言，相对于C/C++语言来说，用Java语言写出来的程序效率低，执行速度慢。但它正是通过在不同平台上运行Java解释器，对Java代码进行解释，来实现“一次编写，到处运行”的宏伟目标的。但由于Java语言采用了两种手段，使得其性能还是不错的。

1、Java语言源程序编写完成后，先使用Java伪编译器进行伪编译，将其转换为中间码（也称为字节码），再解释；

2、提供了一种“准实时”（Just-in-Time，JIT）编译器，当需要更快的速度时，可以使用JIT编译器将字节码转换成机器码，然后将其缓冲下来，这样速度就会更快。

Java是一种动态的语言，这表现在以下两个方面：

1、在Java语言中，可以简单、直观地查询运行时的信息；

2、可以将新代码加入到一个正在运行的程序中去。

Java编译器生成的是一种中性的对象文件格式。也就是说，Java编译器通过伪编译后，将生成一个与任何计算机体系统无关的“中性”的字节码。

Java通过Java虚拟机(JVM)作为可运行Java代码的假想计算机。JVM 通过在不同平台上运行Java解释器，对Java代码进行解释并执行。JVM根据操作系统不同有相应的版本。因此能实现在不同的操作系统上执行统一的JAVA语言。

最基本的Java程序

Java程序是由类（class）所组成，因此在完整的Java程序里，至少需要有一个类。如下：

范例：

public class Test //定义public类Test

{

…

}

Java程序是由一个或一个以上的类组合而成，程序起始的主体也是被包含在类之中。这个起始的地方称为main()，用左右大括号将属于main()段内容包围起来，称之为method（方法）。

main()方法为程序的主方法，在一个Java程序中有且只能有一个main()方法，它是程序运行的开端，通常看到的main() method如下面的语句片段所示：

范例：

public static void main(String args[]) // main() method，主程序开始

{

…

}

main() method之前必须加上public static void 这三个标识符。public代表main()公有的method；static表示main()在没有创建类对象的情况下，仍然可以被运行；void则表示main()方法没有返回值。Main后的括号（）中的参数String args[]表示运行该程序时所需要的参数，这是固定的用法。

JAVA语法基础

Java程序的注释

单行注释: 就是在注释内容前面加双斜线（//）

如:

int num ; // 定义一个整数

多行注释: 就是在注释内容前面以单斜线加一个星形标记（/*）开头，并在注释内容末尾以一个星形标记加单斜线（*/）结束。

如下所示：

int c = 10 ;

int x = 5 ;

文档注释: 是以单斜线加两个星形标记（/**）开头，并以一个星形标记加单斜线（*/）结束。

用这种方法注释的内容会被解释成程序的正式文档，并能包含进如javadoc之类的工具生成的文档里，用以说明该程序的层次结构及其方法。

Java中的标识符

Java中的包、类、方法、参数和变量的名字，可由任意顺序的大小写字母、数字、下划线（_）和美元符号（$）组成，但标识符不能以数字开头，不能是Java中的保留关键字。

·下面是合法的标识符：

yourname

your_name

_yourname

$yourname

·下面是非法的标识符：

class

67.9

Hello Careers

Java的关键字

和其他语言一样，Java中也有许多保留关键字，如public、static等，这些保留关键字不能当作标识符使用。下面列出了Java中的保留关键字，这些关键字并不需要读者去强记，因为一旦使用了这些关键字做标识符时，编辑器会自动提示错误。

Java中的保留关键字：

Abstract

boolean

break

byte

case

catch

char

class

continue

default do

double

else

extend

false

final

finally

float

for

implement import instanceof

int

interface

long

native

new

null

package

private

protected

public

return

short

static

synchronized super

this

throw

throws

transient

true

try

void

volatile

while

要特别注意的是，虽然goto、const在Java中并没有任何意义，却也是保留字，与其它的关键字一样，在程序里不能用来做为自定义的标识符。

Java的变量声明

变量的声明：变量类形变量名称 [[符值符] 变量值]；中间用空格分隔。

例如：

int N; // 声明N为整数变量

int N = 0; // 声明N为整数变量并将0赋予变量N

char C; // 声明C为整数字符变量

char C = ’A’; // 声明C为整数字符变量并将字符“A” 赋予变量C

可以同时声明多个变量，每个变量之间以逗号分开。

例如：

int num1, num2, num3; // 同时声明num,num1,num2为整数变量

Java的基本数据类型

类型	存储空间(字节)	大小
byte (字节型)	1	-128~127
short(短整型)	2	-2¹⁵~2¹⁵-1
int(整型)	4	-2³¹~2³¹-1	三种表示方式：十进制，八进制：以0开头，十二进制：以0x开头。
long(长整型)	8	-2⁶³~2⁶³-1	Long类型可以在后面加 “l” 或 “L”，如 long longValue=124L
float(浮点型)	4	-3.403E38~3.403E38	float类型可以在后面加 “f”，如 float floatValue=0.1f
double(双精度)	8	-1.798E308~1.798E308
char(字符型)	1	使用Unicode单字符	字符用英文的单引号(’)标识
Boolean(逻辑型)	1	true/false

数据类型的转换： int a = (int){0.25};

Java的运算符

算术运算符：

+ 加

- 减

* 乘

/ 除

% 取余

++ 累加1

-- 累减1

i++与++i的区别：i++ 是先将变量与其他运算符进行运算后，再执行++。++i 是先将执行++再将累后的i的结果与其他运算符进行运算。

例如：

int i = 1;

执行: int j = i++ + 10; // 结果是 j=11; i=2;

执行: int j = ++i + 10; // 结果是 j=12; i=2;

关系运算符：

> 大于

< 小于

>= 大于并等于

<= 小于并等于

== 等于

!= 不等于

逻辑运算符：

! 非

& 与

| 或

^ 异或

&& 短路与

|| 短路或

&&与|| 运算时，只要运算符中有一条符合条件即中止后面的表达式。

赋值运算符：=；

扩展的赋值运算符有：+=，-=，*=，/=;

i+=5 相当与 i = i + 5; 同理其他(-=，*=，/=)类似。

位运算符：

~ 按位非（NOT）（一元运算）

& 按位与（AND）

| 按位或（OR）

^ 按位异或（XOR）

>> 右移

<< 左移

&= 按位与赋值

|= 按位或赋值

^= 按位异或赋值

>>= 右移赋值

<<= 左移赋值

>>>= 右移赋值，左边空出的位以0填充

>>> 右移，左边空出的位以0填充

本文链接

IdTcpServer 部分总结 (用户掉线的检测方法，控制用户量等）

2011-03-06T21:05:00Z

内容整理来自: http://www.delphifans.com/InfoView/Article_6521.html

用户掉线的检测方法

如果客户端异常掉线或拔掉网线，那么在服务端会留下一个TCP连接，这个连接会变成死连接。出现的死TCP连接过多，服务器内存和端口将会增加，直到占满服务器的端口和耗尽内存为止。如果这样的话，服务器无法健壮稳定的运行。使用TCP协议自带的心跳包功能解决这个问题。

TCP keep-alive原理

一个TCP keep-alive 包是一个简单的ACK,该ACK包内容为一个比当前连接sequence number 小于一的包。主机接受到这些ACKs会返

回一个包含当前sequence number 的ACK包。
Keep-alives一般被用来验证远端连接是否有效。如果该连接上没有其他数据被传输，或者更高level 的 keep-alives被传送，keep-alives 在每个KeepAliveTime被发送。（默认是 7,200,000 milliseconds ，也就是2个小时）。

如果没有收到 keep-alive 应答，keep-alive 将在每 KeepAliveInterval 秒重发一次。KeepAliveInterval 默认为1秒。如 Microsoft 网络功能中很多部分中采用的 NETBT 连接，更常见的是发送 NETBios keep-alives，所以，在 NetBios 连接中通常不发送TCP keep-alives。
TCP保持连接默认被禁用，但是微软Sockets应用程序可以使用SetSockOpt函数去启用他们。

请看下面的类

type
TCP_KeepAlive = record
    OnOff: Cardinal;
    KeepAliveTime: Cardinal; // 多长时间（ms）没有数据就开始send心跳包
    KeepAliveInterval: Cardinal // 每隔多长时间（ms）send一个心跳包，发5次（系统值）
end;

KeepAliveTime: TCP连接多长时间（毫秒）没有数据就开始发送心跳包，有数据传递的时候不发送心跳包
KeepAliveInterval: 每隔多长时间（毫秒）发送一个心跳包，发5次（系统默认值）

如果客户端网络中断，服务器系统发送心跳包后，服务器会自动解除TCP连接。这一点，大家可以使用 netstat -p -tcp 命令查看

—建立稳定服务程序之TCP心跳包的使用

为了能让我们的服务程序更加稳定，有些细节问题必须解决。就如上一讲中提到的客户端拔掉网线，造成服务器上TCP变成死连接，如果死连接数量过多，对服务器能长期稳定运行是一个巨大的威胁。

另外，经过测试，如果服务器上有TCP死连接，那么服务程序连接数据库，也会产生那个一个死连接。这样的话，给数据库服务器也造成威胁。所以，服务器程序编写的好坏，直接影响系统的稳定性！

如何解决TCP死连接的问题，有多种方法，其中最有效的就是心跳包技术。

我们在DSServer的OnConnect事件中加入心跳包代码

uses IdTCPConnection,IdWinsock2

........

type
TCP_KeepAlive = record
    OnOff: Cardinal;
    KeepAliveTime: Cardinal;
    KeepAliveInterval: Cardinal;
end;

........

procedure TServerContainer1.DSServer1Connect
(DSConnectEventObject: TDSConnectEventObject);
var
Val: TCP_KeepAlive;
Ret: DWord;
ClientConnection: TIdTCPConnection;
begin
ClientConnection := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);
Val.OnOff := 1;
Val.KeepAliveTime := 5000;
Val.KeepAliveInterval := 3000;
WSAIoctl(ClientConnection.Socket.Binding.Handle, IOC_IN or IOC_VENDOR or 4,
@Val, SizeOf(Val), nil, 0, @Ret, nil, nil);
end;

观察上述代码，我们把心跳包放到服务端上执行，如果服务器的某个TCP连接在5秒钟没有收到数据，将会发送向对端发送心跳包，间隔3秒钟，连续发送5次（参数详解见上一讲高级技术4）。如果5次以后对端还没有应答，服务器将结束该TCP连接。TCP的连接可以使用 netstat -p tcp 命令查看。

当该TCP结束后，delphi编写的服务程序会自动结束和数据库的连接。我用的是FireBird数据库，大家可以使用命令查看 SELECT MON$USER, MON$REMOTE_ADDRESS,
MON$REMOTE_PID,
MON$TIMESTAMP
FROM MON$ATTACHMENTS

现在服务器的tcp死连接和数据库的死连接都清除了，我们的系统将能长期稳定的运行。

加强服务程序对访问者的控制能力

1）作为一个服务程序，如果不限制客户端访问数量，后果将是很可怕的。如果有人恶搞，服务器不堪重负，内存将耗尽,最终服务器将宕机。如何限制访问者的数量呢？

我们可以设置一个变量，来记录来访者的数量，如果超过我们既定的数字，那么后续的连接服务器请求，都将被断掉。

2）限制了访问数量，但是如果不做密码身份认证，无关的人员也将能登陆服务器！解决办法是客户端传入用户名和密码，如果用户名和密码不正确，连接将被挂断。

在客户端的SQLConnection1中driver分类的username和password属性设置好用户名和密码。

3）尽量不要设置DSTCPServerTransport1的Maxthreads属性，还有数据库连接池也不要设置，delphi2010会有内存泄露，这两个参数保存默认即可。

在dsserver1控件的onconnect事件中加入如下代码（使用的是tcp/ip连接）：

procedure TMainForm.DSServer1Connect
(DSConnectEventObject: TDSConnectEventObject);
var
val: TCP_KeepAlive;
Ret: Integer;
ClientConnection: TIdTCPConnection;
begin
// 最大连接数量，验证来访者密码
if (DSConnectEventObject.ChannelInfo = nil) or (Connections >= 500) or
    (DSConnectEventObject.ConnectProperties[TDBXPropertyNames.UserName]
      <> 'sunstone') or (DSConnectEventObject.ConnectProperties
      [TDBXPropertyNames.Password] <> 'mypassword') then
begin
    DSConnectEventObject.DbxConnection.Destroy;
    // ClientConnection.Disconnect;
end
else
begin
    // 获取socket连接
    ClientConnection := TIdTCPConnection(DSConnectEventObject.ChannelInfo.Id);
    ClientConnection.OnDisconnected := ClientDisconnectEvent;

// 记录来访者数量
inc(Connections);
lblShowConnections.Caption := IntToStr(Connections);

if Trim(ShowConnections.Cells[0, 1]) <> '' then
ShowConnections.RowCount := ShowConnections.RowCount + 1;

ShowConnections.Cells[0, ShowConnections.RowCount - 1] := IntToStr
      (DSConnectEventObject.ChannelInfo.Id);
    ShowConnections.Cells[1, ShowConnections.RowCount - 1] :=
      ClientConnection.Socket.Binding.PeerIP + ':' + IntToStr
      (ClientConnection.Socket.Binding.PeerPort);
    ShowConnections.Cells[2, ShowConnections.RowCount - 1] :=
      DSConnectEventObject.ConnectProperties[TDBXPropertyNames.UserName];
    ShowConnections.Cells[3, ShowConnections.RowCount - 1] :=
      DSConnectEventObject.ConnectProperties[TDBXPropertyNames.Password];
    ShowConnections.Cells[4, ShowConnections.RowCount - 1] := FormatDateTime
      ('yyyy-mm-dd hh:nn:ss', Now);
    // ShowConnections.Cells[6, ShowConnections.RowCount - 1] :=
    // DSConnectEventObject.ConnectProperties
    // [TDBXPropertyNames.ServerConnection];

// 设置心跳包
    val.OnOff := 1;
    val.KeepAliveTime := 5000;
    val.KeepAliveInterval := 1000;
    WSAIoctl(ClientConnection.Socket.Binding.Handle, IOC_IN or IOC_VENDOR or 4,
      @val, SizeOf(val), nil, 0, @Ret, nil, nil);
end;
end;

本文链接

DELPHI 编写服务程序的几点总结。

2011-03-06T17:40:00Z

最近的项目又需要编写一些服务项应用了。由于很久没写代码了，有些东西忘了。不得不花点时间重新去找回。现把一些有用的贴出来，以便以后再用时方便。其中有些是网上找的。有些是自己心得。

TService

属性介绍

           AllowPause   表明服务是否允许暂停。True则SCP（服务控制面板）上的暂停按钮时可用的，False则是不可用的
           AllowStop   表明服务是否允许停止。True则SCP（服务控制面板）上的停止按钮时可用的，False则是不可用的
           Dependecies   用于列出所有要依赖的服务
           DisplayName   显示在SCP上的服务名称
           ErrCode   指定一个错误代码。当遇到错误或提供状态信息时，就返回这个代码。如果ErrCode的值为0,则使用Win32ErrorCode属性。
           ErrorSeverity   表明如果启动服务时遇到错误，如何处理
           Interactive   表明是否可以显示一个对话框。只适用于Win32服务
           Name   服务的名称，即服务在SCM中的名称。如果要用SC.EXE或Net.exe来控制一个服务，必须指定服务的名称，而不是DisplayName指定的名称。
           Param   启动时的参数列表。用SC.exe来启动服务后，即可在SCP中指定参数，也可以从命令行中设置参数。
           ParamCount   传递个服务的参数个数
           Password   用于设置口令。只适合于不使用LoaclSystem账号的服务
           ServiceStartName   用于设置服务的账号名称，格式：域名/用户名
           ServiceThread   这是服务内部的线程，用于处理命令和请求
           ServiceType   服务的类型，可以设为：stWin32（Win32服务），stDevice（设备驱动程序）或stFileSystem（文件系统服务）
           Status     服务的当前状况(running,stopped,paused,stop   pending等）
           Terminated   表明内部的线程是否终止
           WaitHint   服务等待控制命令或状态请求的时间。如果在规定的时间内没有响应，则SCM认为服务出错
           Win32ErrCode   当发生错误或ErrCode属性的值为0时，包含一个系统定义的错误代码

事件介绍：
            AfterInstall：安装服务之后调用的方法；
            AfterUninstall：服务卸载之后调用的方法；
            BeforeInstall：服务安装之前调用的方法；
            BeforeUninstall：服务卸载之前调用的方法；
            OnContinue：服务暂停继续调用的方法；
            OnExecute：执行服务开始调用的方法；
            OnPause：暂停服务调用的方法；
            OnShutDown：关闭时调用的方法；
            OnStart：启动服务调用的方法；
            OnStop：停止服务调用的方法；
            LogMessage()函数用于发送一个消息到NT的事件日志种。
            ReportStatus()函数用于发送服务的状态信息到SCM.

如何限制系统服务和桌面程序只运行一个
源文: http://hi.baidu.com/sqldebug/blog/item/58a764624a44d74eeaf8f863.html

program FleetReportSvr;

uses
  SvcMgr, Forms, SysUtils, Windows,
  SvrMain in 'SvrMain.pas' {FleetReportService: TService},
  AppMain in 'AppMain.pas' {FmFleetReport}；

{$R *.RES}

const
  CSMutexName = 'Global\Services_Application_Mutex';
var
  OneInstanceMutex: THandle;
  SecMem: SECURITY_ATTRIBUTES;
  aSD: SECURITY_DESCRIPTOR;
begin
  InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
  SetSecurityDescriptorDacl(@aSD, True, nil, False);
  SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
  SecMem.lpSecurityDescriptor := @aSD;
  SecMem.bInheritHandle := False;
  OneInstanceMutex := CreateMutex(@SecMem, False, CSMutexName);
  if (GetLastError = ERROR_ALREADY_EXISTS)then
  begin
    DlgError('Error, Program or service already running!');
    Exit;
  end;
  if FindCmdLineSwitch('svc', True) or
    FindCmdLineSwitch('install', True) or
    FindCmdLineSwitch('uninstall', True) then
  begin
    SvcMgr.Application.Initialize;
    SvcMgr.Application.CreateForm(TSvSvrMain, SvSvrMain);
    SvcMgr.Application.Run;
  end
  else
  begin
    Forms.Application.Initialize;
    Forms.Application.CreateForm(TFmFmMain, FmMain);
    Forms.Application.Run;
  end;
end.

在系统服务和桌面程序之间共享内存
源文: http://hi.baidu.com/sqldebug/blog/item/58a764624a44d74eeaf8f863.html

用于创建内核对象的函数几乎都有一个指向SECURITY_ATTRIBUTES结构的指针作为其参数，在使用CreateFileMapping函数的时候，通常只是为该参数传递NULL，这样就可以创建带有默认安全性的内核对象。
    默认安全性意味着对象的管理小组的任何成员和对象的创建者都拥有对该对象的全部访问权，而其他所有人均无权访问该对象。可以指定一个ECURITY_ATTRIBUTES结构，对它进行初始化，并为该参数传递该结构的地址。
   它包含的与安全性有关的成员实际上只有一个，即lpSecurityDescriptor。当你想要获得对相应的一个内核对象的访问权（而不是创建一个新对象）时，必须设定要对该对象执行什么操作。如果想要访问一个现有的文件映射内核对象，以便读取它的数据，那么调用OpenfileMapping函数：通过将FILE_MAP_READ作为第一个参数传递给OpenFileMapping，指明打算在获得对该文件映象的访问权后读取该文件，   该函数在返回一个有效的句柄值之前，首先
   执行一次安全检查。如果（已登录用户）被允许访问现有的文件映射内核对象，就返回一个有效的句柄。但是，如果被拒绝访问该对象，将返回NULL。

constructor TPublicVars.Create(ANew: Boolean);
var
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
inherited Create;
{ 创建一个任何用户都可以访问的内核对象访问权 }
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
FMapFile := CreateFileMapping($FFFFFFFF, @SecMem, PAGE_READWRITE, 0, CSharedMemSize, CSharedMemName);
FMapFile := OpenFileMapping(File_Map_All_Access, False, CSharedMemName);
if (FMapFile = 0) then
begin
    raise Exception.Create(SysErrorMessage(GetLastError));
    OutputDebugString(PChar(SysErrorMessage(GetLastError)));
end
else
begin                                   // 成功
    FShareMem := MapViewOfFile(FMapFile, File_Map_All_Access, 0, 0, CSharedMemSize);
    OutputDebugString(PChar(SysErrorMessage(GetLastError) + ',Handle=' + IntToStr(Handle)));
end;
end;

destructor TPublicVars.Destroy;
begin
UnmapViewOfFile(FShareMem);
CloseHandle(FMapFile);
inherited;
end;

constructor TPublicVars.Create(ANew: Boolean);
var
SecMem: SECURITY_ATTRIBUTES;
aSD: SECURITY_DESCRIPTOR;
begin
inherited Create;
{ 创建一个任何用户都可以访问的内核对象访问权 }
InitializeSecurityDescriptor(@aSD, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@aSD, True, nil, False);
SecMem.nLength := SizeOf(SECURITY_ATTRIBUTES);
SecMem.lpSecurityDescriptor := @aSD;
SecMem.bInheritHandle := False;
FMapFile := CreateFileMapping($FFFFFFFF, @SecMem, PAGE_READWRITE, 0, CSharedMemSize, CSharedMemName);
FMapFile := OpenFileMapping(File_Map_All_Access, False, CSharedMemName);
if (FMapFile = 0) then
begin
    raise Exception.Create(SysErrorMessage(GetLastError));
    OutputDebugString(PChar(SysErrorMessage(GetLastError)));
end
else
begin //成功
    FShareMem := MapViewOfFile(FMapFile, File_Map_All_Access, 0, 0, CSharedMemSize);
    OutputDebugString(PChar(SysErrorMessage(GetLastError) + ',Handle=' + IntToStr(Handle)));
end;
end;

destructor TPublicVars.Destroy;
begin
UnmapViewOfFile(FShareMem);
CloseHandle(FMapFile);
inherited

在服务中使用COM组件

在服务中调用COM组件不能像在桌面程序中直接创建，在每次创建之前先调用CoInitialize(nil)，释放的时候调用CoUninitialize。例如：调用ADO组件

var
  Qry: TADOQuery;
begin
  CoInitialize(nil);
  Qry := TADOQuery.Create(nil);
  try
    ...
  finally
    Qry.Free;
    CoUninitialize;
  end;
end;

本文链接

DELPHI: TTreeView 中禁止双击事件展开或关闭节点.

2010-07-07T07:04:00Z

作者: 陆岛工作室

这个问题有很多人问过我了. 在DELPHI里如何来禁止双击TTreeView节点时,避免让TTreeView自动地去执行Windows默认的展开或关闭节点的事件.而又能让点击TTreeview 节点前面的展开符时有用,即点展开符时能关闭或展开节点,

其实我们只要判断双击事件的位置就行了,那就是我们只要知道是否是双击在节点 TreeNode 的文字上.而不是点击在节点前的展开符上.知道了这个原理,实现起来就方便了.

现在我把代码贴出来. 让大家参考一下.

// 先定义一个变量,用来保存是否可以关闭或展开节点.

var
  AllowDBClickEvent: Boolean;

// Treeview的OnClick事件中来判读点击的位置是否在节点的文本区内. 如果是,那就不能响应展开或关闭节点.
// 同时要关闭节点的 HasChildren, 否则... 你可以试试效果.

procedure TMainWin.Treeview1Click(Sender: TObject);
var
  P: TPoint;
  R: TRect;
  Node: TTreeNode;
begin
  AllowDBClickEvent := True;
  GetCursorPos(P);
  P := tvTables.ScreenToClient(P);
  Node := tvTables.GetNodeAt(P.X, P.Y);
  if (Node<>nil) and Node.HasChildren then
  begin
    R := Node.DisplayRect(True);
    if PtInRect(R, P) then
      AllowDBClickEvent := False;
  end;
end;

// 在TreeView的OnCollapsing 与 OnExpanding 加入以下代码
// 而且必须加入 AllowDBClickEvent := True; 重新定义值, 否则... 你可以试试效果.
// 同上面判断节点的 HasChildren值一样.这一句不加的话,在双击完成后,再点节点的展开符时. AllowDBClickEvent 值没有更新,有可能会不响应展开或关闭节点的事件.

procedure TMainWin.Treeview1Collapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);
begin
  AllowCollapse := AllowDBClickEvent;
  AllowDBClickEvent := True;
end;

procedure TMainWin.Treeview1Expanding(Sender: TObject; Node: TTreeNode; var AllowExpansion: Boolean);
begin
  AllowExpansion := AllowDBClickEvent;
  AllowDBClickEvent := True;
end;

本文链接

管理好ORACLE数据表的几个建议

2010-03-29T16:40:00Z

原文地址:http://soft.ccw.com.cn/programing/database/htm2008/20080701_456158.shtml

ORACLE数据库中，表是最基本的内容。可以说，表设计的好坏直接跟数据库的性能相关。所以，在设计表的时候，除了要遵循其固有的数据库准则之外，还需要看个人的数据库管理经验。下面我就把这些经验分享一下，或许对大家有所帮助。

一、表该存放在哪里?

我们都知道，在ORACLE数据库中，使利用空间这个概念来管理表对象的。在数据库创建的时候，数据库中已经建立了一些表空间。那么当我们新建立表的时候，这个新表的位置该放在什么地方呢?这就好像吃饭时的坐的位置一样，是有讲究的。一般来说，我们在新建表的时候，至少要遵循如下建议：

一是在数据库创建的时候，在数据库中已经有了一个SYSTEM的表空间。一般情况下，这个表空间中，只包含数据字典及Oracle系统对象。如果我们将我们的表建立在这个空间上的话，那是要降低数据库的性能的。所以，一般我们是不建议用户把表格建立在这个空间上。但是，若我们不只一个人维护数据库，如有八个人共同设计数据库系统时，如何才能保证其他用户不在SYSTEM表空间中建立数据库表格呢?最好的办法就是通过权限控制。如我们可以给每个数据库设计人员指定一个默认的表空间，让他们只能在这个表空间中建立表格。如此的话，就能防止他们在SYSTEM表空间中建立自己的数据表格，从而对数据库的运行性能产生不良影响。所以，若给每个用户设置默认表空间的话，那么用户在建立具体的表时，不用具体指定表空间了。

二是我们在为某个应用设计数据库的时候，最好先对表的空间进行规划。一般情况下，不要把数据表随意的分散到不同的表空间中去。如我们在为一个ERP系统设计数据库的时候，若把采购部门相关的表跟销售部门相关的表放到两个不同的表空间中去，这是不明智的做法。这么处理的话，会降低某些数据库管理和维护操作的效率，如数据的备份与恢复操作;而且，也无法集中管理属于某个特定应用的数据。所以，我们一般建议，在规划数据库表空间的时候，把相同应用的表放在同一个表空间中去。如果要区分不同部门或者不同模块的表的话，我们可以在表的命名上动脑子。如我们在设计ERP系统的数据库中，可以根据其应用模块的不同，在前面加上前缀来进行识别。如跟系统基本配置相关的表，我们可以用AD为前缀;而跟销售部门相关的表，我们可以加上SA前缀等等。如此的话，这些表具体是属于哪个模块的，就一清二楚了。完全没有必要为此设置不同的表空间。这是ORACLE数据库初学者经常会犯的错误。主要是对ORACLE表空间的定义不是很熟悉所导致的。

二、对预计存储数量比较大的表时，要给与额外的重视。

有些表非常的大。我们这边说的大，不一定是说结构复杂，而是指在这个表格中，预期会存储比较多的数据。为了提高对这个表格的处理效率，我们在事先要做出一定的安排。否则的话，后续对这些大表进行查询、插入等操作的话，速度会很慢。所以，我们就有必要在数据库设计的时候，先预先估计一下表的数据存储量，把一些数据量大的表格，做一些额外的设置。如在ERP软件的数据库设置中，一般来说，产品数据与物料清单数据这两个表的数据量会比较大;而从长远看的话，销售订单、采购订单、生产订单、记账凭证等这种单据类相关的表格其数据量也会比较大。一年两年可能感觉不出来，但是，到十年后，这个纪录数量就会很庞大。而像ERP系统这种大型的信息化管理项目，用个几十年时很正常的事情。而且，为了记录的完整性，也不建议用户把以前的数据删除。所以，为这种应用进行数据库设计的时候，要充分考虑这些大表的性能问题。

具体的来说，设计大表的时候，可以考虑遵循如下的建议。

一是不要为大表设置存储的限制。在ORACLE数据库中，可以为每张表格设置存储配额限制。如此的话，表最大容量就不能超过这个限制。对于一些数据容量比较小的表格，这么设置时合理的，可以提高空间的利用率。但是，若数据量比较大的话，就不建议事先设置表的存储空间了。如ERP系统的销售订单表，其刚开始可能记录量很小，第一年预计只有1G的记录容量，但是，估计在十年后，这个记录容量就会达到10G了。在这种情况下，我们怎么来给其设置存储空间呢?一开就设置10G空间，这也是不合理的。而且，设置存储空间，就意味着有可能产生存储碎片，从而影响到数据查询的效率。所以，在数据库表的设计过程中，若某些应用的表可能会有比较大的数据容量时，建议不要对其存储空间做出任何的限制。

二是要为这大表分配足够的临时空间。如我们使用ERP系统时，要查询产品资料信息。我们都知道，产品信息的话，有些企业这个纪录数非常的庞大。而且在查询时，我们还会经常的进行排序操作。如有时候会按照产品编码对查询出来的数据进行排序。当记录少的话，还好;但是，当记录多的话，这个排序动作，要求具有比较大的临时存储空间。所以，当某个表预计会有很大的记录数量的时候，我们就要给其分配足够多的临时空间。临时空间的存储参数设置取决于临时表空间的默认储存参数设置。我们可以更改这些参数，以达到我们对要求。若没有给大表分配足够多的临时空间的话，则排序的动作将会很慢，而且很可能不成功。

三是要考虑将表与表的索引分离存放。大表所对应的索引通常也比较大。一般来说，索引的数量是随着表记录的数量增加而增加，两者是接近于一个正比例的关系。所以，通常表的记录容量大的时候，索引数量也会很庞大。针对这种情况，我们考虑突破我们上面讲的表空间的规则定义。而考虑把表和他的索引分别存储于不同的表空间中，甚至在条件允许的情况下，分别存储于不同的硬盘中。这么做的好处是什么呢?最大的好处是让索引比较容易的获得所需要的连续的存储空间，从而提高输入输入的效率。通俗的说，就是可以提高数据的查询效率。如不这么处理的话，查询大容量的记录的话，数据库可能需要花费30秒;而如此设计的话，就可能把时间缩短为10秒。这是一个很明显的性能改善。

三、如何给表命名?

上面我在讲如何为表分配存储空间的时候，已经讲到过这方面的问题。下面，我就将对这个问题进行详细的描述，以帮助数据库管理员掌握一套好的数据库命名规则。

首先，毋庸置疑的，在为标命名的时候，要遵循ORACLE数据库的基本命名规则，如不能以数字开头为表命名，如不能利用数据库的关键字为表命名，如表的名字不能重复等等。这些是最基本的要求，就不用我多费口舌了。除了要遵循这些基本的命名规则外，在实际工作中，为了数据库后续的维护等方面出发，我们还是要遵循一些额外的规则。这些规则跟ORACLE定义的规则不同。我们所讲的规则没有约束力，可以说，只是业界的一些共识而已。你若不怎么处理，ORACLE数据库也不会说你错误，只是后续维护的时候，会比较麻烦而已。

一是在对数据库命名的时候，最好能跟体现表的分类关系。如最常见的，我们在设计数据库的时候，表都是按系统的具体模块来区分的，如根据前端系统要求的不同，数据库的表大致可以分为系统基本配置表、销售模块表、采购模块表、报表模块表等等。我们可以根据这些模块的不同，分别给与不同的前缀来区分。这么做的好处是很明显的。如一看到表最大名字，就可以知道这个表是属于哪个应用的、哪个模块的，这无疑可以提高数据库设计与前台软件开发的效率。同时，数据库中默认的排序规则是按名字来排序的，所以，为表格设置类别前缀的话，可以把同一类的表格排在一起，方便我们察看。

二是对表格命名的时候，要考虑可读性，而不能随便阿狗阿猫的乱取名字。最常见的是，那些刚学数据库的人，在表命名的时候，如要建几张测试表，就会随便命名如TEST1，TEST2之类的。虽然这只是测试，但是，也不符合我们的命名过则。要做测试的话，那就以TEST开头，然后后面加上具体要测试的内容。如此的话，我们才可以通过表的名字知道该表具体的用途。而不用打开表去看里面具体的结构或者注释才能知道我们需要的信息。所以，在设计表的名字的时候，还要关注一下其的可读性。

本文链接

ORACLE 与 SQL Server 的区别(转)

2010-03-29T16:00:00Z

原文地址不详....

Oracle 与SQL SERVER概念
-----------------------------------------------------
·Oracle的服务和数据库相当于 MS SQL的数据库服务；
·Oracle的服务= 后台进程+相关内存
·数据库= 数据文件的集合
Oracle的服务完全可以与数据库文件脱离开来；Oracle中的Schema与MS SQL中的数据库。
Schema“方案”是一个用户所拥有所有对象的集合。
“对象”包括表、视图、实例化视图、序列、过程、函数、程序包、同义词。

Oracle类似于MSSQL的数据库大致过程如下：
·建立数据库表空间（相当于MSSQL的数据库的数据文件）
·建立临时表空间（相单于MSSQL的数据库的事务日志文件）
·建立用户，它的缺省空间和临时表空间是刚建立的两个表空间
·给用户授权，最起码得角色权限是Connect的角色
·以该用户登陆，创建自己的表、视图、实例化视图、序列、过程、函数、程序包、同义词等。

关于Oracle Manager Server与MS SQL的Enterprise manager
-----------------------------------------------------
DBA Studio工具提供了与MS SQL的Enterprise manager同样的功用，但应该说两者有很大的区别。
对于一般是用来说，DBA Studio工具已经足够了。但这里有必要对Oracle Manager Server解释一下：

〉它是Oracle管理分布式数据库的服务，注意她是服务。
〉它缺省并不安装
〉它需要有自己管理所需要的资料库。在某个数据库中需要建立相应的用户
〉它的登陆需要身份验证，注意这里的身份验证，与管理所需要的资料库的用户不是一个概念，也不是数据库中的SYS,system；
它的默认用户是oem_temp sysman
> 使用她，在管理端要启动Manager Server服务和智能代理服务(OracleAgent)，被管理的数据库服务器要启动智能代理服务(oracleagent).

关于Oracle的SYS,system的用户与MSSQL的Master比较
------------------------------------------------
MSSQL的Master数据库储存了当前数据库服务的一些配置信息，如数据库设备、字符集、数据文件、登陆帐号、拥有的数据库、整个服务参数配置等信息。
Oracle的sys存储了Oracle服务或者实例的信息及所有用户的数据字典信息。
Oracle的system用户拥有数据字典是视图信息，有了这些视图，我们查询数据库的信息就特别方便。缺省情况下，system用户拥有DBA系统角色权限，
而sys不仅拥有DBA的权限还拥有sysdba的权限。

DBA\SYSDBA系统角色的区别：
首先说明一下oracle服务的创建过程：创建实例、启动实例、创建数据库（SYSTEM表空间是必需的）
其次启动过程：实例启动、装载数据库、打开数据库

Oracle中新的数据库对象：实例化视图、快照、序列、程序包、同义词、抽象的数据类型
--------------------------------------------------------------------------------
·实例化视图又称显形图：实例化说明它有自己的存储空间；视图：说明它的数据源于其他表数据。
·实例化视图中的数据，设置为隔一段时间更新数据，更新的模式可以定义为完全更新和增量更新。
·快照基本上同实例化视图，只不过数据来源不同，快照数据来源于远程数据库，而实例化视图来源于本地数据表
·序列，相当于MSSQL中的identify列，它是一个数字顺序列表
·程序包：它是过程、函数、全局变量的集合；它封装了私有变量、私有过程和私有函数。如：DBMS_OUT包
·同义词：是对数据库中的对象的别名，同义词可以是全局的也可以是私有的（属于某个用户的）如：tab，col等
·抽象的数据类型：类似于C中的结构体或Pascal记录类型。

Oracle数据库连接和 Mssql远程连接
---------------------------------------------
两者都是为了实现分布式数据库的操作，两者都能实现分布式事务

Oracle回滚断和MSSQL的数据库事物日志文件
-----------------------------------------------
回滚段提供了事务回滚需要使用的数据变化以前的映象，这些映象是按条目储存的，如果这些条目过少，一个事务等待另一个事务的几率
增大，就会影响数据库的性能。缺省安装时，提供一个系统回滚段它在system表空间。
为了提高性能，system表空间不应储存有任何数据字典信息以外的信息。
MSSQL数据库事务日志文件功能类同于回滚段，只不过它是同特定的数据库密切相关的。

关于数据表的管理
-----------------

超大型数据表的管理：
oracle和MsSQL都提供了一种“把数据文件及其索引存放在一个特定的数据文件或表空间里”方法
Oracle将表及索引分区储存，即按字段值的范围进行分区存储。
·Oracle索引组织表和Sqlserver簇索引表：两者的数据存放顺序都是按照索引值的顺序存放的
·无事务回滚概念的表，对这种表的操作不存在事务的概念；ORacle提供了建表参数nologging,使对该表的操作不参与事务的回滚。
·索引：oracle提供了多种MSSQL没有的索引类型，如：位图索引等

外连接
=------------------------------------

·MSSQL支持两种形式表之间连接
（1）从SYSBASE继承来的形式：
1)字段1*=字段2（左连接）
2)字段1=*字段2（右连接）
3)没有这种形式的全外连接语法
（2）标准的外连接语法：
1)left[outer] join on 逻辑表达式
2)right[outer] join on 逻辑表达式
3)full[outer] jion (全外连接) on 逻辑表达式
·Oracle不支持标准的外连接语法，也没有全外连接（这是他的缺陷）。
1)字段1=字段2(+)（左连接）
2)字段1(+)=字段2（右连接）
·使用外连接语句的用处
(1)不想因为表连接而使主表数据行丢失
(2)查找某条记录在表A存在，而在B表不存在，按常规做法用not in(select...查询语句)语法。
使用not in 最大的缺点就是速度慢，原因是每行都去做select查询语句；而使用如下语句则会更好：
select tu_company.* from TU_company left
join TU_Comp_agent on
TU_company.id=tu_comp_agent.compCode where TU_comp_agent.id is null;

触发器
=====================
·MSSQL仅有表的触发器，而且触发时机不够丰富，如插入触发器不区分单条插入还是多条插入；也不区分插入前触发还是插入后触发。碰到
多条数据的插入，需要使用游标处理每条插入的数据。

·Oracle提供的触发器不仅有基于表的触发器，而且还有其它类型的，例如数据库计的触发器：数据库的启动、数据库关闭。对于表级的触发器
区分单条插入还是多条插入，也区分插入前触发还是插入后触发

表数据复制
-------------
·库内数据复制
·MSSQL
Insert into 复制表名称 select 语句(复制表已经存在)
select 字段列表 into 复制表名 from 表（复制表不存在）
·Oracle
Insert into 复制表名称 select 语句(复制表已经存在)
create table 复制表名称 as select 语句(复制表不存在)
·文本文件转入，转出的批量处理
·MSSQL
BCP命令行程序
·Oracle
SQLLDR命令行程序

多表更新、删除
-------------------
一条更新语句是不能更新多张表的，除非使用触发器隐含更新，这里的意思是说：根据其他表数据更新你要更新的表。
·MSSQL
update a set 字段1=B表子段表达式，字段2=B表子段表达式，。。。。from B where 逻辑表达式

·ORACLE
update a set 字段1=（Select子段表达式 from B where ...），字段2=（Select子段表达式 from B where ...），...from B where 逻辑表达式
就以上问题来看假如A需要多个子段更新，MSSQL更简练！

关于存储过程或函数中使用的临时表
---------------------------------
两者都有这个功能。临时表最主要的好处是，操作不留任何痕迹、不产生日志，所以速度快。
·MSSQL
Create table #表名(...),或者select 字段表达式列表 INTo #表名称 FRom 表名称前加#，这些临时表都是旨在一个数据库连接会话期间有效。

·ORACLE
create [global] temporary table，加上[global]就是全局的临时表(所有数据库连接会话都是可见的)，否则为私有（在一个数据库连接会话期间有效）。

动态执行SQL语句
------------------
·在存储过程中的参数中传递一个表名或者在过程体力动态生成一个SQL语句。
MSSQL:
declare @count int
declare @Sql nvarchar(200)
set @sql=N'select count(*) from sysobjects'
exec sp_executesql @sql,N'@i int output',@count output

ORACLE:
(1)程序包DBMS_SQL,执行一个语句的过程：
打开游标（OPen_cursor,对于非查询语句，无此过程）
分析语句（parse）
绑定变量（bind_variable）
执行语句(execute)
关闭游标(close_cursor,对于排序查询语句，无此过程)
(2)Execute immediate ls_SQL

数据库备份和恢复
-----------------------------------------------
MSSQL:
（1）数据库导入导出DTS工具，如果数据源和目的都是MSSQL则可以完全复制数据库的结构（表、视图、索引、触发器、规则、默认、存储过程、自定义函数、表数据等）
（2）数据库备份和还原命令：
BackUp database
Restore database
导出的数据文件还可以压缩，数据库备份和还原方式可以是增量和完全的。
（3）数据库的附加attach
只要数据库的原始数据和日志文件没有破坏，就可以使用命令：SP_ADDACH_DB.这种情况有时候回出现问题：比方说你见了登陆帐号，
不是使用缺省的登陆帐号SA，由于登陆帐号的信息存放在master数据库中，所以使用原来建立的账号就等不上，需要以下后部工作。
ORACLE:
（1）导入导出工具：Exp工具、Imp工具
导入导出的参数很多
（2）冷备份或者脱机备份，备份的时候数据库是停止的
备份所有的数据文件、日志文件、控制文件
（3）热备份或者联机备份
数据库处在archivelog模式，注意缺省情况下都是archivelog恢复时可以选择完全恢复、时间点恢复、SCN点恢复、用户自由干预的
CANCEL恢复可以说是它的热备份功能是非常强大。
（3）RMAN恢复管理期

本文链接

Windows7新的Taskbar 在 Delphi 2010 中的编程应用

2010-03-28T11:03:00Z

原文: http://blog.csdn.net/wr960204/archive/2009/10/13/4662735.aspx

一提到Taskbar相关,首先就想到ITaskBarList不同版本接口.到shlobj单元一看,果然增加了ITaskbarList3,ITaskbarList4两个新版本的接口.
老办法CreateComObject(CLSID_TaskbarList)就行了.返回的是一个ITaskBarList接口.看具体的操作系统,返回的是你操作系统所能支持的最高版本的ITaskBarList.

TaskBar 的进度条
设计一个窗口

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShlObj, ActiveX, ComObj, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox1: TCheckBox;
    CheckBox4: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
    FPos : Int64;
    FMax : Int64;
    FTaskBarList : ITaskbarList4;
    function SetProgressState():Integer;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  SetProgressState();
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTaskBarList := CreateComObject(CLSID_TaskbarList)  as ITaskbarList4;
  FPos := 0;
  FMax := 200;
  SetProgressState();
end;

function TForm1.SetProgressState: Integer;
begin
  Result := TBPF_NOPROGRESS;
  if CheckBox1.Checked then
    Result  := Result or TBPF_INDETERMINATE;
  if CheckBox2.Checked then
    Result  := Result or TBPF_NORMAL;
  if CheckBox3.Checked then
    Result  := Result or TBPF_ERROR;
  if CheckBox4.Checked then
    Result  := Result or TBPF_PAUSED;
  FTaskBarList.SetProgressState(Handle, Result);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (FPos < FMAX) then
     Inc(FPos, 10)
  else
     FPos := 0;
  FTaskBarList.SetProgressValue(Handle, FPos, FMax);
end;

end.

运行看看效果.

不定的:进度颜色的边缘是渐变的
正常的:就是绿色的进度条.

出错的:就是红色的进度条.

暂停的:就是黄色的进度条

TaskBar 的覆盖图标
就是可以再任务栏图标上再覆盖一个小图标,可以用表示状态之类的
新建一个窗口.放置一个ImageList,添加几个icon.再放一个Timer,我们用定时器来不停地变换覆盖图标.如果你的图标设置的足够好,还可以模拟动画效果啊.

看到我的程序图标右下角的小图标了吗.就是这个样子了.

在TaskBar上添加按钮

新版迅雷在Windows7上运行的时候会在缩略图上添加三个按钮.
可以实现任务的添加,下载,暂停等功能.

我们也可以仿照一个.
新建一个窗口

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ShlObj, ActiveX, ComObj, ExtCtrls, StdCtrls, ImgList;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FTaskBarList: ITaskbarList4;
    btnIcon : TIcon;
    Fbtns: array [0 .. 2] of TThumbButton;
  protected
    procedure WndProc(var Message: TMessage); override;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin

  ZeroMemory(@Fbtns, SizeOf(TThumbButton) * length(Fbtns));
  for I := Low(Fbtns) to High(Fbtns) do
  begin
    Fbtns[I].dwMask := THB_ICON or THB_TOOLTIP or THB_FLAGS;
    Fbtns[i].hIcon := btnIcon.Handle;
    Fbtns[I].dwFlags := THBF_ENABLED;
    Fbtns[I].iId := I;
    Fbtns[I].szTip := 'ABCD';
  end;
  // 这里什么图也没给,出现的按钮都是没有图标的
  FTaskBarList.ThumbBarAddButtons(Handle, length(Fbtns), @Fbtns);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FTaskBarList := CreateComObject(CLSID_TaskbarList) as ITaskbarList4;
  FTaskBarList.HrInit();
  btnIcon := TIcon.Create;
  btnIcon.LoadFromFile('c:\AquaValue2.ico');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  btnIcon.Free;
end;

procedure TForm1.WndProc(var Message: TMessage);
begin
  inherited;
  case Message.Msg of
    WM_COMMAND:
      begin
        case HiWord(Message.WParam) of
          THBN_CLICKED:
            begin
              ShowMessage(Format('你按了按钮[id=%d]', [LoWord(Message.WParam)]));
            end;
        end;
      end;
  end;
end;

end.

运行起来.按一下按钮.效果如下图:

但是现在还有个问题困扰了我半天.就是MSDN上说点击了按钮会受到WM_COMMAND消息.我也在WndProc中做了处理.但是不论怎样都收不到.正要放弃的时候突然灵光一闪.会不会是在调试状态运行和实际运行有啥区别呢?
于是找到编译好的EXE文件双击执行.哈哈,一切OK.虽然不知道是什么问题引起的.但是肯定和VCL或者Delphi的IDE调试环境有关.我又用C#和VC分别验证了一下.他们在调试状态下就没有这个问题.这只是一个小麻烦问题不大.呵呵.
新的ITaskBarList接口还有其他的一些方法.不过最常用的都是前面的几个.都很简单.有了前面的基础这些试一下就知道怎么用了.

注意哦,你的程序除非是Only for Windows7的.否则要判断一下操作系统版本号.再决定是否调用新的TaskBar功能.

本文链接

博客园_陆岛工作室

分享：桌面背景收藏夹程序；方便你设置与管理桌面图片。

DevExpress VCL v2011 vol 1.6 下载地址

JAVA语言之基础篇

IdTcpServer 部分总结 (用户掉线的检测方法，控制用户量等）

DELPHI 编写服务程序的几点总结。

推荐自己做的一个网络流量监控工具! 实用美观, 喜欢的就下载.

DELPHI: TTreeView 中禁止双击事件展开或关闭节点.

管理好ORACLE数据表的几个建议

ORACLE 与 SQL Server 的区别(转)

Windows7新的Taskbar 在 Delphi 2010 中的编程应用