这个Delphi7精简版是我前段时间边学习NSIS边打包制作的。在制作的过程我主要还是学习了NSIS打包工具的使用，在这之前我从来没用打包工具制作过安装包。所以在网上看了点技术资料自己慢慢摸索着做的，打包工具有好多种，我用的是非常有名的NSIS。简单的安装包制作并不难，下次我写一下详细的教程以帮助菜鸟，因为感觉这方面的资料也不是很多。学会了用打包工具制作安装包，以后我有时间会多制作一些绿色的、精简的、纯净的软件。

　　我知道很多人都喜欢用Delphi 7，我也不例外，这版本最经典了。这个Delphi7完美精简版是我根据Borland Delphi 7.0制作，仅5.46MB！免注册，包含了Delphi基本组件和ADO组件，实现了Delphi的基本功能，安装很简单，卸载也很干净，希望大家会喜欢！当然了，精简版的Delphi 7只备临时之需，开发小程序还是没有问题的（因为我集成了很多常用的组件），比如你在网吧或者其它没有安装Delphi的场所，而你刚好要用Delphi写个小程序。

　　安装过程截图：

　　Delphi在Windows 7下的使用说明。这个Delphi7精简版经我测试完全可以在Windows 7下正常使用。但是要注意一点，最好是不要把它安装在C盘，因为Windows 7的C盘默认有权限控制，普通用户运行Delphi将无法生成Project。所以最好安装在除C盘以外的盘符，当然你默认安装在C盘也没有关系，给予它管理员权限就行了。

　　本站会员下载Delphi7完美精简版 — 注册为本站会员即可下载，若已注册请登陆。

　　上个星期五在虚拟实验室Windows Server 2003里安装全新的Delphi 7.0企业版，安装方法没什么好说的，都安装过不知道多少遍了。可是这一次安装比较奇怪，安装完成之后启动Delphi7，居然显示“Can’t load package d:\delphi7\Bin\dclite70.bpl.Access violation at address……”，如下图：

　　以前安装同样的Delphi7没有这个问题的，而且我的Windows 2003是干净的，怎么会出现这个问题的呢？网上一搜，找到解决方法：

　　1、右击“我的电脑”。单击“属性”;
　　2、在“系统属性”中单击“高级”;
　　3、在“性能”中单击“设置”;
　　4、在“性能选项”中单击“数据执行保护”;
　　5、单击“添加”。选择Delphi7安装目录，然后到Bin目录下选择Delphi32.exe。

　　应用重启Delphi即可。全是Window2003的Data Execution Prevention（DEF数据执行保护）造成的。

　　那么，什么是数据执行保护 (DEP) ？

　　引用数据执行保护 (DEP) 是 Microsoft Windows XP Service Pack 2 (SP2) /Windows2003支持的一种处理器功能，它禁止在标记为数据存储的内存区域中执行代码。此功能也称作“不执行”和“执行保护”。当尝试运行标记的数据页中的代码时，就会立即发生异常并禁止执行代码。这可以防止攻击者使用代码致使数据缓冲区溢出，然后执行该代码。数据执行保护 (DEP) 有助于防止病毒和其他安全威胁造成破坏，它们的攻击方法是从只有 Windows 和其他程序可以使用的内存位置执行恶意代码。
　　也就是说，这个DEF数据执行保护是MS为了防范其系统中不知哪处的漏洞而被攻击者利用来制造数据缓冲区溢出而达到攻击入侵的目的的。而默认是执行保护的，所以给Delphi7造成这个错误。

　　应该说上面的回答已经很完整了，我也没什么好补充的。可是还有一个遗留的问题，就是为什么以前我在Windows 2003上安装没有这个问题呢？我一想，原因就是我以前用的Windows 2003不是原版的纯净系统，是被优化处理过的，把数据执行保护给“处理”掉了。而我现在的Windows 2003系统是Windows.Server.2003.R2.Ent.With.Sp2.CHS.VOL.MSDN，原版纯净的，所以系统的数据执行保护功能正常，才会导致Delphi的以上错误。

　　通过几次的尝试，我发现可以完美注册Delphi7.0，包括去除启动画面里的“Unregistered”字。

　　这里我提供两个注册机与一个补丁(在最下面下载)，使用方法如下：

　　1. Run setup.exe and start installing…

　　2. When it's time to enter the serial/key, use the included keygen.exe…

　　3. Uncheck *Install InterBase Client* when asked about it…

　　4. After the installation and before starting the software, overwrite dent.slip into your installed directory
with the one provided…

　　5. Enjoy!

　　有点计算机英语基础的应该都看得懂吧？我解释一下。

　　1、首先运行Delphi7的安装程序Setup.exe；

　　2、当要输入注册码时，运行附件包里的注册机keygen.exe；

　　3、不勾选*Install InterBase Client*，也就是不安装InterBase客户端；

　　4、安装完成在启动Delphi之前，复制附件包里的dent.slip到Delphi7的安装目录进行覆盖；

　　5、这时启动Delphi7时就不会有任何关于要注册的对话框出现，启动画面里也没有了“Unregistered”。

　　Delphi7注册机与补丁打包下载：

　　本站会员点击下载 — 注册为本站会员即可下载，若已注册请登陆。

非常值得一看的Delphi关于Win32下的底层编程，我看了几篇，发现很多还看不懂，要努力喽！

《Delphi下深入Windows核心编程》内容简介：

　　《Delphi下深入Windows核心编程》是一本介绍Windows核心技术及高级技巧的专着。从系统内核编程出发，使用大量的例子帮助读者理解这些编程技术，讲述了线程同步及隐藏、系统钩子深入分析、读写物理磁盘的关键技术、读写物理内存和其他进程内存的核心技术、Windows 9x下调用16位实模式和保护模式代码的核心技术、直接读写端口技术、可执行文件加壳的技巧、PE结构分析、Ring0的实现、Windows API截取技术、屏幕取词技术等方面的内容。全书对热点源代码进行了深入剖析和讲解，同时本书汇聚了作者利用Soft-ICE跟踪调试经验，作者多年的编程心得和技巧一览无遗。随书附送的光盘提供了书中涉及的程序源代码。本书可对Windows核心编程感兴趣者提供帮助，亦可供广大编程人员及各大专院校师生参考。

《Delphi下深入Windows核心编程》书籍目录：

第1章　DLL与数据共导
　　1．1　关于DLL
　　　　1．1．1　DLL的结构
　　　　1．1．2　DLL数据作用范围
　　1．2　内存映像
　　　　1．2．1　创建映射档
　　　　1．2．2　打开映射文件
　　　　1．2．3　映射到本进程中
　　　　1．2．4　关闭内存映像
　　　　1．2．5　两个EXE文件共享内存数据块
　　　　1．2．6　两个DLL文件共享内存数据块
　　1．3　16位和32位进程间传送消息
　　　　1．3．1　全局原子实现资料共享
　　　　1．3．2　WM_COPYDATA消息实现进程间数据共享
第2章　钩子原理
　　2．1　钩子原理
　　　　2．1．1　挂钩函数
　　　　2．1．2　钩子链
　　　　2．1．3　脱钩
　　2．2　消息及DLL的注入
　　　　2．2．1　自定义消息截取
　　　　2．2．2档或串井口读写监视钩子
　　23　Shell钩子
　　　　2．3．1　实现钩子
　　　　2．3．2　注册钩子
　　　　2．3．3　实现步骤
　　　　2．3．4　完整代码
　　24　鼠标键盘钩子
　　　　2．4．1　效果不错的鼠标钩子
　　　　2．4．2　鼠标键盘的动作记录与回放
　　　　2．4．3　黑客常用工具——键盘钩子
　　　　2．4．4　非DLL键盘监视的两种方法
第3章　系统内核
　　3．1　内核对象
　　3．2　进程
　　　　3．2．1　进程在内存的结构
　　　　3．2．2　进程列举
　　　　3．2．3　Windows NT/2000下列举进程的方法
　　　　3．2．4　进程模块的列举
　　　　3．2．5　终止进程
　　　　3．2．6　创建进程并监视进程运行
　　3．3　进程隐藏深入剖析
　　　　3．3．1　进程隐藏原理
　　　　3．3．2　Windows 9x下进程的伪隐藏
　　　　3．3．3　用叁级跳实现真隐藏
　　　　3．3．4　Windows NT/2000进程远程写入实现深度隐藏
　　3．4　线程
　　　　3．4．1　线程的优先级
　　　　3．4．2　线程的挂起和继续
　　　　3．4．3　执行线程
　　　　3．4．4　线程同步
　　　　3．4．5　列举本进程的所有线程
　　3．5　Windows NT/2000的性能数据库
　　　　3．5．1　性能数据库的对象、计数器及实例
　　　　3．5．2　浏览性能数据库
第4章　低层操作
　　4．1　中断
　　4．2　内嵌汇编
　　　　4．2．1　汇编入口与退出
　　　　4．2．2　使用汇编
　　　　4．2．3　嵌入汇编程序
　　4．3　Ring0特权及埠直接IO
　　　　4．3．1　Ring0特权的获取
　　　　4．3．2　关于VxD
　　　　4．3．3　Windows 9x下的时间变速（变速齿轮）
　　4．4　端日读写驱动PortTalk
　　　　4．4．1　PortTalk与Delphi的界面
　　　　4．4．2　Windows NT/2000下的时间变速（变速齿轮）
　　4．5　Thunk机制
　　　　4．5．1　Flat Thunk（直接替换）
　　　　4．5．2　Generic Thunk（通用替换）
第5章　磁盘读写
第6章　回收站和IE
第7章　高级应用
第8章　PE结构分析
第9章　内存管理
第10章　API Hook及屏幕取词

《Delphi下深入Windows核心编程》PDF电子书下载

《Delphi下深入Windows核心编程》原书光盘代码下载

　　今天在用Delphi精简版编程的时候出现了错误的提示File not found: 'Tlhelp32.dcu'。唉…谁叫我用的是精简版呢？！怎么解决呢？去下一个完整版的Delphi7喽！不行啊，实习单位里的电脑网速巨慢，一百五六十M的安装包不知道要下到何年何月。看看我的解决方法：

　　首先下载Tlhelp32.dcu，去哪里下载呢？找了好久都没找到，后来我在Google里输入“Tlhelp32.dcu Download”，就OK了！下载地址在这里：　

http://download.prow.pwszjar.edu.pl/index.php?sort=type&path=Delphi7_Personal/Install/program%20files/Borland/Delphi7/Lib/

　　这个老外的网站真好，上面有Delphi7所有的库文件，可以分个下载。

　　下载下来之后有两种方法把控件导入，

一、把下载下来的Tlhelp32.dcu放入Delphi精简版的Lib目录。

二、打开菜单Tools->Environment Options，然后在Library选项卡中的Library Path中加入该控件的路径。

　　简单吧？以此类推，Delphi中出现所有情况的[File not found: '*.dcu']都可以用这种方法解决。

<%
Dim Jpeg ””//声明变量

Set Jpeg = Server.CreateObject(“Persits.Jpeg”) ””//调用组件

Jpeg.Open Server.MapPath(“aaa.JPG”) ””//源图片位置

Jpeg.Canvas.Font.Color = &H000000 ””//水印字体颜色

Jpeg.Canvas.Font.Family = “宋体” ””//水印字体

Jpeg.Canvas.Font.Size = 14 ””//水印字体大小

Jpeg.Canvas.Font.Bold = False　””//是否粗体，粗体用：True

Jpeg.Canvas.Font.BkMode = &HFFFFFF ””//字体背景颜色

Jpeg.Canvas.Print 10, 10, “不败顽童工作室” ””//水印文字，两个数字10为水印的xy座标

Jpeg.Save Server.MapPath(“aaa_05.jpg”) ””//生成有水印的新图片及保存位置

Set Jpeg = Nothing ””//注销组件，释放资源

Response.Write “<img src=aaa_05.jpg>” ””//在该页显示生成水印后的图片
%>

二、生成缩略图

<%
Dim Jpeg ””//声明变量

Set Jpeg = Server.CreateObject(“Persits.Jpeg”) ””//调用组件

Jpeg.Open Server.MapPath(“aaa.JPG”) ””//原图位置

Jpeg.Width = Jpeg.OriginalWidth/4 ””//设图片宽度为原图的四分之一

Jpeg.Height = Jpeg.OriginalHeight/4 ””//设图片高度为原图的四分之一

Jpeg.Sharpen 1, 130 ””//设定锐化效果

Jpeg.Save Server.MapPath(“aaa_small.jpg”) ””//生成缩略图位置及名称

Set Jpeg = Nothing ””//注销组件，释放资源

Response.Write “<img src=aaa_small.jpg>” ””//在该页显示生成缩略图
%>
aspjpeg组件高级使用方法介绍

aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。

这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括：
图片缩略
图片水印
安全码技术
图片切割
图片合并
数据库支持
更多不常用的方法介绍
以及相关的一些实用技术

aspjpeg唯一点不足的就是输出方式比较单一。在这里，我们主要谈将图片处理保存后再调用的这种输出方法。另外，本人比较懒，所以有些代码仍然引用于原文档，不懂的地方偶会加以解释！

学过vb或者.net的同志肯定一看就明白了。刷子来着。呵呵。

一、图片缩略

<%
Set Jpeg = Server.CreateObject(“Persits.Jpeg”) 调用组件
Path = Server.MapPath(“images”) & “\clock.jpg” 待处理图片路径
Jpeg.Open Path 打开图片
高与宽为原图片的1/2
Jpeg.Width = Jpeg.OriginalWidth / 2
Jpeg.Height = Jpeg.OriginalHeight / 2
保存图片
Jpeg.Save Server.MapPath(“images”) & “\clock_small.jpg”
%>
<IMG SRC=”images/clock_small.jpg”> 查看处理的图片
二、图片水印

<%
Set Jpeg = Server.CreateObject(“Persits.Jpeg”)
Jpeg.Open Server.MapPath(“images/dodge_viper.jpg”)
开始写文字
Jpeg.Canvas.Font.Color = &H000000”” white 颜色
Jpeg.Canvas.Font.Family = “Courier New” 字体
Jpeg.Canvas.Font.Bold = True 是否加粗
Jpeg.Canvas.Print 10, 10, “Copyright (c) XYZ, Inc.”
打印坐标x 打印坐标y 需要打印的字符
以下是对图片进行边框处理
Jpeg.Canvas.Pen.Color = &H000000”” black 颜色
Jpeg.Canvas.Pen.Width = 2 画笔宽度
Jpeg.Canvas.Brush.Solid = False 是否加粗处理
Jpeg.Canvas.Bar 1, 1, Jpeg.Width, Jpeg.Height
起始X坐标 起始Y坐标 输入长度 输入高度
Jpeg.Save Server.MapPath(“images/dodge_viper_framed.jpg”) 保存
%>

三、安全码

安全玛的道理和加水印差不多，很多朋友问我要具体的代码技术，在这里我就写出来和大家分享，一般人我还不告诉他。呵呵。

<%
生成安全码的函数 www.wuyouw.com
function make_randomize(max_len,w_n) max_len 生成长度，w_n：0 可能包含字母，1：只为数字
randomize
for intcounter=1 to max_len
whatnext=int((1-0+1)*rnd+w_n)
if whatnext=0 then
upper=122
lower=97
else
upper=57
lower=48
end if
strnewpass=strnewpass & chr(int((upper-lower+1)*rnd)+lower)
next
make_randomize=strnewpass
end function
%>

生成安全码的图片。当然你要预先准备一张背景图哦

<%random_num=make_randomize(4,1) 生成4位数字的安全码
session(“random_num”)=random_num 为什么调用session，没有session的安全码是完全没有意义的。呵呵

Set Jpeg = Server.CreateObject(“Persits.Jpeg”) 调用组件
Jpeg.Open Server.MapPath(“infos/random_pic/random_index.gif”) 打开准备的图片
Jpeg.Canvas.Font.Color = &H006699
Jpeg.Canvas.Font.Family = “Arial Black”
Jpeg.Canvas.Font.Bold = false
Jpeg.Canvas.PrintText 0, -2, random_num
jpeg.save Server.MapPath(“infos/random_pic/random_index.bmp”) 保存
%>
<img src=”infos/random_pic/random_index.bmp” border=”0″ align=”absmiddle”>
自己做做看。呵呵。

四、图片切割

一直以来，对aspjpeg不了解的人以为是无法用它来进行切割的。
其实有这样的一个方法的
crop x1,y1,x2,y2
切割长方型左上角x坐标，y坐标 右下角x坐标 y坐标
下面我就做一个演示哈
Set Jpeg = Server.CreateObject(“Persits.Jpeg”)
jpeg.open server.MapPath(“/pic/1.gif”)
jpeg.width=70
Jpeg.Height = Jpeg.OriginalHeight*70 / jpeg.Originawidth
jpeg.crop 0,0,70,52 开始切割其实是把超过52象素的下部分去掉
jpeg.save server.MapPath(“/temp_pic/small_1.gif”) 保存
怎么样，很简单吧

五、图片合并

我们这里是要把logo图片加到dodge_viper.jpg图片上去
其实，图片合并的方法也可以用来动态打水印哦
Set Photo = Server.CreateObject(“Persits.Jpeg”)
PhotoPath = Server.MapPath(“images”) & “\dodge_viper.jpg”
Photo.Open PhotoPath
Set Logo = Server.CreateObject(“Persits.Jpeg”)
LogoPath = Server.MapPath(“images”) & “\clock.jpg”
Logo.Open LogoPath

Logo.Width = 70
Logo.Height = Logo.Width * Logo.OriginalHeight / Logo.OriginalWidth

Photo.DrawImage 0, 0, Logo

Photo.SendBinary 这里用了sendBinary的输出方法。当然，你也可以先保存更改后的dodge_viper.jpg，再输入也可以。我个人不大喜欢用sendBinary方法，在网速慢的时候容易出错。在速度方面也不怎样。呵呵。

六、数据库支持

这里不多说了。其实就是Binary方法，大家知道图片存进数据库只能存为二进制的文件的。所以代码就懒的写了。
七、更多方法介绍

Canvas.Line(Left, Top, Right, Bottom)
画一条直线
Canvas.Ellipse(Left, Top, Right, Bottom)
画出一个椭圆
Canvas.Circle(X, Y, Radius)
画出一个圆
Canvas.Bar(Left, Top, Right, Bottom)
画出一个长方形，上面有代码介绍了
Canvas.Font.ShadowColor
文字阴影颜色
Canvas.Font.ShadowXOffset As Long
阴影X坐标设定
Canvas.Font.ShadowYOffset As Long
Y坐标设定
Canvas.Font.BkMode As String
文字背景

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

今天给大家讲的是ASP给图片加水印的知识

ASP给图片加水印是需要组件的…常用的有aspjpeg和中国人自己开发的wsImage…前者有30天的免费…后者完全免费…当然我们要用国人的产品了..嘿嘿..

注册组件的方法:
命令提示符下输入”regsvr32 [Dll路径]” 就可以了         
图片添加水印无非就是获得图片大小,然后把水印写上去..ASP代码只是起个控制组件的作用.用代码来说明一切吧.

一:获得图片大小(这里是用象素值表示的.学PhotoShop的朋友都应该明白)
<%
set obj=server.CreateObject(“wsImage.Resize”) ””””调用组件
obj.LoadSoucePic server.mappath(“25.jpg”)       ””””打开图片,图片名字是25.jpg
obj.GetSourceInfo iWidth,iHeight
response.write “图片宽度:” & iWidth & “<br>”          ””””获得图片宽度
response.write “图片高度:” & iHeight & “<br>”          ””””获得图片高度
strError=obj.errorinfo
if strError<>”" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

二:添加文字水印

<%
set obj=server.CreateObject(“wsImage.Resize”)
obj.LoadSoucePic server.mappath(“25.jpg”) ””””装载图片
obj.Quality=75
obj.TxtMarkFont = “华文彩云”    ””””设置水印文字字体
obj.TxtMarkBond = false             ””””设置水印文字的粗细
obj.MarkRotate = 0       ””””水印文字的旋转角度
obj.TxtMarkHeight = 25    ””””水印文字的高度
obj.AddTxtMark server.mappath(“txtMark.jpg”), “带你离境”, &H00FF00&, 10, 70
strError=obj.errorinfo       ””””生成图片名字,文字颜色即水印在图片的位置
if strError<>”" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

三:添加图片水印

<%
set obj=server.CreateObject(“wsImage.Resize”)
obj.LoadSoucePic server.mappath(“25.jpg”)          ””””装载图片
obj.LoadImgMarkPic server.mappath(“blend.bmp”)    ””””装载水印图片
obj.Quality=75
obj.AddImgMark server.mappath(“imgMark.jpg”), 315, 220,&hFFFFFF, 70
strError=obj.errorinfo       ””””生成图片名字,文字颜色即水印在图片的位置
if strError<>”" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

其实给图片添加水印就这么简单.然后我在说下WsImage.dll组件的另外两个主要用法.包括:
剪裁图片,生成图片的缩略图.
还是以我得习惯,用代码加注释说明:
剪裁图片:

<%
set obj=server.CreateObject(“wsImage.Resize”)
obj.LoadSoucePic server.mappath(“25.jpg”)
obj.Quality=75
obj.cropImage server.mappath(“25_crop.jpg”),100,10,200,200    ””””定义裁减大小和生成图片名字
strError=obj.errorinfo
if strError<>”" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

详细注释:裁减图片用到了WsImage的CropImage方法.其中定义生成图片时候,100,10是左上角的裁减点,即离图片左边是100象素,顶端10象素.后两个200代表的是裁减的宽带和高和高度.

生成图片缩略图:

<%
set obj=server.CreateObject(“wsImage.Resize”)
obj.LoadSoucePic server.mappath(“25.jpg”)    ””””加载图片
obj.Quality=75
obj.OutputSpic server.mappath(“25_s.jpg”),0.5,0.5,3    ””””定义缩略图的名字即大小
strError=obj.errorinfo
if strError<>”" then
response.write obj.errorinfo
end if
obj.free
set obj=nothing
%>

详细说明:

产生缩略图共有四种导出方式：

(1) obj.OutputSpic server.mappath(“25_s.jpg”),200,150,0
200为输出宽，150为输出高，这种输出形式为强制输出宽高，可能引起图片变形。

(2) obj.OutputSpic server.mappath(“25_s.jpg”),200,0,1
以200为输出宽，输出高将随比列缩放。

(3) obj.OutputSpic server.mappath(“25_s.jpg”),0,200,2
以200为输出高，输出宽将随比列缩放。

(4) obj.OutputSpic server.mappath(“25_s.jpg”),0.5,0.5,3
第一个0.5表示生成的缩略图是原图宽的一半，即表示宽缩小比例。
第二个0.5表示生成的缩略图是原图高的一半，即表示高缩小比例。
宽高的缩小比例一致意味着将对原图进行比例缩小。宽高的缩放比例如果大于1，则对原图进行放大。

昨天晚上搞到12点半，早上起床继续增强优化，写了这个ASP批量水印工具，这种水印效果是我梦寐已久的，甚爽！

水印效果如下：

　　VBS编写的小程序，列举当前正在运行的进程，显示其PID、用户名及路径。

　　点击下载此文件

Windows文件保护专家，源代码如下：

@echo off
rem Written by heroest
rem Feb 17th,2006
setlocal
color 0b
echo ===============================================================
echo.
echo Windows文件保护专家 v1.0
echo.
echo.
echo 说明：本程序可以有效的保护重要的文件不被删除或泄露。
echo 加入了删除文档的代码，可以删除那些被保护的文档
echo 版权没有，欢迎盗版!
echo ===============================================================
:start
echo.
echo 建立文件保护文件夹 c:\FileLocker
if not exist c:\FileLocker..\nul md c:\FileLocker..\
echo 欢迎使用windwos保护专家 v1.0,请选择选项（1,2,3,4,5,q）;
echo 1.读取加密的文档
echo 2.存储保密文档
echo 3.建立秘密存储文档
echo 4.删除保密文档
echo 5.删除FileLocker
echo q.推出
echo.
set /p choice=
if {%choice%}=={} goto start
if /i %choice%==1 goto djm
if /i %choice%==2 goto cjm
if /i %choice%==3 goto jjm
if /i %choice%==4 goto sjm
if /i %choice%==5 goto df
if /i %choice%==q goto quit
goto start
rem========================加入秘密文件夹==========================
:jjm
echo.
echo 准备建立秘密文件夹...
echo 请输入密码:
set /p pass2c=
if {%pass2c%}=={} goto jjm
echo 开始根据密码建立保密文件夹......
md "c:\FileLocker..\%pass2c%..\"
echo 建立了保护文件夹!
echo.
goto start
rem ======================“加入”部分结束=========================
rem
rem =====================存储数据部分==============================
:cjm
echo.
echo 准备存储保密档案...
echo 请输入密码：
set /p pass=
if {%pass%}=={} goto cjm
if exist c:\FileLocker..\%pass%..\nul goto noerror
echo 发生错误，未发现建立加密保护文件夹！
goto start
:noerror
md "%userprofile%\桌面\Ready2Lock"
echo 请将你需要保护的文件复制到桌面上的Ready2Lock文件夹内(被保存的文件不能含有文件夹）
echo 注意：开始保护后会删除原文件!
echo 按任意键开始保护文件.......
pause > nul
echo 开始保护到C:\FileLocker文件夹内.........
copy "%userprofile%\桌面\Ready2Lock\*.*" "c:\FileLocker..\%pass%..\"
echo 保护完成，删除原文件........
del "%userprofile%\桌面\Ready2Lock\*.*" /Q
rd "%userprofile%\桌面\Ready2Lock"
echo 所有保护完成!
ping 127.0.0.1 -n 3 >nul
cls
goto start
rem ==========================存储部分结束=======================
rem
rem ===========================读取数据部分======================
:djm
echo.
echo 准备读取保密文件...
echo 请输入密码：
set /p pass2=
if {%pass2%}=={} goto djm
if not exist c:\FileLocker..\%pass2%..\nul echo 发生错误或不存在保护文档 & goto djm
echo 开始读取被保护的数据.......
if not exist "%userprofile%\桌面\Unlocked\nul" md "%userprofile%\桌面\Unlocked"
copy "c:\FileLocker..\%pass2%..\*.*" "%userprofile%\桌面\Unlocked"
echo 已经解密到桌面上的Unlocked文件夹内.........
ping 127.0.0.1 -n 3 >nul
goto start
rem ========================读取数据部分结束=======================
rem
rem ========================删除目录部分===========================
rem 此部分特别感谢"猜猜鸟"教会了我新的知识，谢谢了！
rem 感谢"江山"的提供了宝贵的意见
rem 也感谢支持我的朋友们，没有你们的鼓励，小弟也不敢斗胆发表自己的作品
:sjm
echo.
echo.
echo 准备删除秘密文档.......
echo 请输入密码：
set /p pass2del=
if {%pass2del%}=={} goto sjm
echo 开始删除被保护文件夹
rmdir /s "c:\FileLocker..\%pass2del%..\" /Q
echo 已经删除被保护文件.......
goto start
rem ============================删除部分结束======================
rem
rem ===================Del FileLocker==============================
:df
echo.
echo 请删除之前确认FileLocker里面没有任何秘密文档.(y/n)
set /p yesorno=
if /i %yesorno%==y goto start2del
if /i %yesorno%==n goto sjm
goto df
:start2del
echo 开始删除FileLocker..........
rd "c:\FileLocker..\" >nul
if exist c:\FileLocker..\nul echo **删除失败，可能FileLocker里有别的秘密文档。**& goto fail
echo 成功删除!
:fail
ping 127.0.0.1 -n 3 >nul
goto start
rem ================Del Filelocker End====================
:quit
echo 感谢使用Windows文件保护专家 v1.0!
echo 按任意键退出本程序.
pause > nul
exit

　　放日志文章主要不是送给大家这个软件，而是阅读其中的源代码，我觉得可以学到不少批处理方面的知识。

　　程序不是我写的，版权归原作者所有。

　　1.点击下面网址进入JDK1.4下载页面：

　　http://java.sun.com/j2se/1.4.2/download.html

　　2.点击“Download J2SE SDK”：

　　3.“Accept”，Continue：

　　4.下面列出了各个平台下的JDK版本，其中Windows版有两种安装方式，一种是完全下载后再安装，一种是在线安装，我们选择第一种：

　　5.下载完成后，双击图标进行安装，安装过程中可以自定义安装目录等信息，例如我们选择安装目录为D:\jdk1.4。

配置JDK环境变量：

　　6.右击“我的电脑”，点击“属性”：

　　7.选择“高级”选项卡，点击“环境变量”：

　　8.在“系统变量”中，设置3项属性，JAVA_HOME,PATH,CLASSPATH(大小写无所谓),若已存在则点击“编辑”，不存在则点击“新建”：

　　9.JAVA_HOME指明JDK安装路径，就是刚才安装时所选择的路径D:\jdk1.4，此路径下包括lib，bin，jre等文件夹（此变量最好设置，因为以后运行tomcat，eclipse等都需要依靠此变量）；Path使得系统可以在任何路径下识别java命令，设为：

%JAVA_HOME%\bin;%JAVA_HOME%\jre\bin

　　CLASSPATH为java加载类(class or lib)路径，只有类在classpath中，java命令才能识别，设为：

.;%JAVA_HOME%\lib;%JAVA_HOME%\lib\tools.jar (要加.表示当前路径)

%JAVA_HOME%就是引用前面指定的JAVA_HOME。

　　10.“开始”－>“运行”，键入“cmd”：

　　11.键入命令“java -version”，出现下图画面，说明环境变量配置成功：

　　12.好了，打完收工。下面开始你的第一个java程序吧！

　　我把下面的REG注册表文件

Windows Registry Editor Version 5.00

[-HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\LicStorage]
[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG]
[-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates]

　　用这个工具转换一下，转换后的BAT批处理源代码为：

@ECHO OFF
> "%Temp%.\DefOpen.reg" ECHO Windows Registry Editor Version 5.00
>>"%Temp%.\DefOpen.reg" ECHO.
>>"%Temp%.\DefOpen.reg" ECHO [-HKEY_LOCAL_MACHINE\SOFTWARE\KasperskyLab\LicStorage]
>>"%Temp%.\DefOpen.reg" ECHO [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG]
>>"%Temp%.\DefOpen.reg" ECHO [-HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates]
START /WAIT REGEDIT /S "%Temp%.\DefOpen.reg"
DEL "%Temp%.\DefOpen.reg"

　　原理很简单吧！就是把这个注册表文件里的每一句写到当前用户的临时文件夹内变成DefOpen.reg，然后执行这个DefOpen.reg。

　　这样一来的话，我想把这个REG文件直接复制到临时目录然后执行不是更简单？！原理还是一样的。感觉有点傻了，这样把REG转换到BAT根本没有实际意义。