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

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

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

　　安装Delphi7的时候你是否在寻找注册码呢？找到注册码安装完成之后Delphi的启动画面是否还是有“Unregistered”的字样呢？如下图：

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

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

　　今天分析了明小子注入工具的源代码，发现他用的是NMHTTP控件来实现域名转IP的。我把源代码分离了出来：

　　获取系统当前进程名和进程ID，注意在编写本单元时，应注意引用"TLHelp32"单元"use TLHelp32"。

Delphi获取系统进程和进程ID，ListBox实现：

　　计算机的东西真的太多了，学不过来，而我却喜欢什么都学。暑假里学过一些Delphi，回学校后因为前一个月没带电脑又没学。后一个月（10月）有了笔记本，可是因为学校开设的课程里有Linux，所以一直在学Linux，还有就是浙江黑盟的建设。真是忙不过来了，现在我打算重新开始学习Delphi，接下来的学习以LINUX和Delphi为主，乱七八糟的对以后工作用处不大的就暂且不学了。

Delphi获取Windows系统目录源代码：

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
win_dir,sys_dir:array[0..255] of char;
begin
getwindowsdirectory(@win_dir,40);
getsystemdirectory(@sys_dir,40);
edit1.Text :=win_dir;
edit2.text :=sys_dir;
end;

forcedirectories函数用于创建一个DIR参数指定的但系统中不存在的文件夹；
rmidir函数用于删除一个参数指定的子目录。