程序打包(100分)

在做安装程序时，我要在注册表中记录一些东西，这个东西与程序的安装路径有关，但程序的路径是可能用户自己选的，这样怎么在做安装程序时在注册表中写呀
我用的是Delphi6中自带的那个做的安装程序，是D版的
还有它为什么不支持汉字呀。写的汉字总是乱码，有没有办法改变它

这个问题交给专门的安装程序就可以搞定了,
不要用delphi6中自带的那个,不是正式版,
你可以用免费的: inno setup(推荐)找个汉化版就可以了
或者wise 收费的
还有很多

在網上大把這種軟件，，樓主可以SO一下。。真的。。

在安装程序里设个键值[INSTALLDIR]。。用脚本也可以。。
下列函数允许你访问注册表，读、创建和删除注册表项，和为卸载建立注册表相关参数。
CreateCreateInstallationInfo
为你安装的程序创建一个应用程序信息项和一个每应用程序路径项。
CreateRegistrySet
创建在资源窗格的注册表入口文件夹中指定注册表入口的一组或所有组。
DeinstallSetReference
指定在卸载进程开始前要检测的参考文件。
DeinstallStart
创建应用程序卸载项和设置该项下的[UninstallString]值。
InstallationInfo
根据公司名、产品名和产品版本号来创建注册表项。
MaintenanceStart
通过创建注册表项来激活卸载功能。
RegDBConnectRegistry
打开到一个远程注册表的连接。
RegDBCreateKeyEx
在注册表中创建一项。也允许你将一个类对象和一个注册表项联系起来（仅对高级用户）。
RegDBDeleteKey
从注册表中删除指定项。
RegDBDeleteValue
从一个指定注册表项中删除一个值。
RegDBDisConnectRegistry
关闭到一个远程注册表的连接。
RegDBGetAppInfo
在一个应用程序信息项下检索一个值。
RegDBGetItem
在每应用程序路径项或应用程序卸载项下检索值。
RegDBGetKeyValueEx
从注册表的一项中检索一个值。
RegDBKeyExist
检测注册表项的存在。
RegDBQueryKey
对一项的子项和值名进行排队。
RegDBSetAppInfo
设置应用程序信息项下的一个值。
RegDBSetDefaultRoot
设置开关键。
RegDBSetItem
在每应用程序路径项或应用程序卸载项下赋值。
RegDBSetKeyValueEx
设置注册表入口。
SetInstallationInfo
指定CreateInstallationInfo使用的公司和产品信息。
（够了把）[]

就这么点事情，还需要打包，直接在程序运行时协注册表不就得了

installshield