博客园_陆岛工作室

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

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.shtmlORACLE数据库中，表是最基本的内容。可以说，表设计的好坏直接跟数据库的性能相关。所以，在设计表的时候，除了要遵循其固有的数据库准则之外，还需要看个人的数据库管理经验。下面我就把这些经验分享一下，或许对大家有所帮助。一、表该存放在哪里?我们都...

ORACLE 与 SQL Server 的区别(转)

2010-03-29T16:00:00Z

原文地址不详....Oracle 与SQL SERVER概念 ----------------------------------------------------- ·Oracle的服务和数据库相当于 MS SQL的数据库服务； ·Oracle的服务= 后台进程+相关内存 ·数据库= 数据文件的集合 Oracle的服务完全可以与数据库文件脱离开来；Oracle中...

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

2010-03-28T11:03:00Z

通过Delphi 2010 来实现 Windows 7 中 TaskBar 的一些新的功能

博客园_陆岛工作室

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

DevExpress VCL v2011 vol 1.6 下载地址

JAVA语言之基础篇

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

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

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

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

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

ORACLE 与 SQL Server 的区别(转)

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