网上有很多关于用DELPHI来建立IIS的虚拟目录的例子，但都是需要加载类库，我这里则采用写注册表的方式来实现，方法简单，主要是不需要加入类的复杂过程，唯一的不同是需要重启电脑后才能生效。

开发技术指南» 文章正文

引言：网上有很多关于用DELPHI来建立IIS的虚拟目录的例子，但都是需要加载类库，我这里则采用写注册表的方式来实现，方法简单，主要是不需要加入类的复杂过程，唯一的不同是需要重启电脑后才能生效。

·从一个lnk(快捷方式)取得该快捷方式的指向exe(可执行档)? »显示摘要«

摘要：unit unit1; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; type tform1 = class(tform) button1: tbutton; procedure button1click(sender: ......

·《qq列表精灵》源代码分析！公布 »显示摘要«

摘要：软件名称：《qq列表精灵》下载地址：http://redyunlong.51.net/redlegend/download.php 该软件是本人在2002年根据“腾讯qq”的“oicq2000.cfg”文件的漏洞，制作的可以更改，编辑，删除登陆列表的程序，并且可以里面的信息得到自动登陆的密码。发现漏洞：我们在一台电脑登陆过qq之后，下次启动q......

用DELPHI通过写注册表来实现建立IIS的虚拟目录！

网上有很多关于用delphi来建立iis的虚拟目录的例子,但都是需要加载类库,我这里则采用写注册表的方式来实现,方法简单,主要是不需要加入类的复杂过程,唯一的不同是需要重启电脑后才能生效.代码如下:

【程序编程相关:针对 DB2 Universal Dat】

procedure tform1.button1click(sender: tobject); 【推荐阅读:DB2 for z/OS: DB2 通用】

【扩展信息:使用 DB2 数据移动实用工具中的文件类】

var

regodbc:tregistry;

registertemp : tregistry;

syspath: array [0..255] of char;

begin

regodbc:=tregistry.create; //访问注册表

regodbc.rootkey:=hkey_local_machine;

regodbc.openkey(\system\controlset001\services\w3svc\parameters\virtual roots,true);

getsystemdirectory(syspath,255);

if regodbc.valueexists(/fire) then

begin

suimessage1.text:=本机web已存在名为fire的虚拟目录.+#13#10+请将此fire删除或重命名.;

suimessage1.icontype:=suistop;

suimessage1.buttoncount:=1;

suimessage1.caption:=错误;

... 下一页

·两个字符串分割函数引出的奇怪问题 »显示摘要«

摘要：下面两个函数均是对于一个字符串将其以某个分割符分开： function splitstrtoarray(const tstring, tsplit: string): tstringlist; //以后成为方法1，这也是《delphi超级猛料》中提到的算法 var t_str, t_item: widestring; t_index, t_len: integer; t_strlist: tstr......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：