环境变量

最新推荐文章于 2021-05-20 13:11:39 发布

芸芸芸芸

最新推荐文章于 2021-05-20 13:11:39 发布

阅读量1.5k

点赞数

文章标签： delphi path integer dos string 脚本

本文链接：https://blog.csdn.net/wujiangming/article/details/4813199

版权

我在做一个Delphi7的绿色版,用Inno setup 来做了一个绿化注册程序(初学),想在注册的时候把delphi的目录添加到系统环境变量path中,不重启立即生效.倒是找到相关的代码,不过是delphi的,没法在inno setup script中运行. 特请教对Inno setup script 熟悉的达人.
下面是我的CODE段代码:

var
FRootDir: string;

procedure _SetDelphiPath(aIsInstall: Boolean);
var
S_Path, s: string;
S1: string;
begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM/CurrentControlSet/Control/Session Manager/Environment', 'Path', S_Path) then
begin
if aIsInstall then
S1 := ExpandConstant('{src}/bin')
else
S1 := FRootDir + '/bin';

if pos(Uppercase(S1), Uppercase(S_Path)) = 0 then //还没有加入
begin
if aIsInstall then
begin
S_Path := S_Path + ';' + S1;
end;
end else
if not aIsInstall then
begin
StringChangeEx(S_Path, S1 + ';', '', True);
StringChangeEx(S_Path, S1, '', True);
end;

if aIsInstall then
S1 := ExpandConstant('{src}/Projects/bpl')
else
S1 := FRootDir + '/Projects/bpl';

if pos(Uppercase(S1), Uppercase(S_Path)) = 0 then //还没有加入
begin
if aIsInstall then
begin
S_Path := S_Path + ';' + S1;
end;
end else
if not aIsInstall then
begin
StringChangeEx(S_Path, S1 + ';', '', True);
StringChangeEx(S_Path, S1, '', True);
end;

RegWriteStringValue(HKEY_LOCAL_MACHINE, 'SYSTEM/CurrentControlSet/Control/Session Manager/Environment', 'Path', S_Path);
end;
end;

procedure DeinitializeUninstall();
begin
_SetDelphiPath(False);
end;

procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
FIsExists := False;
if CurUninstallStep = usUninstall then
begin
if RegQueryStringValue(HKEY_LOCAL_MACHINE, 'SOFTWARE/Borland/Delphi/7.0', 'RootDir', FRootDir) then
begin
StringChangeEx(FRootDir, '//', '/', True);
FRootDir := RemoveBackslash(FRootDir);
end;
end;
end;

procedure CurPageChanged(CurPageID: Integer);
var
SL: TStringList;
S1: string;
begin
if CurPageID = wpFinished then
begin
_SetDelphiPath(True);


//关键问题在下面的代码如何实现?
//SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,Integer(Pchar('Environment')));
//这是我找到的delphi里的方法,在inno setup script里该怎么写?或是有其它的方法?
end;
end;

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

回复次数： 17

dejoy
(燕青)
等　级：
2

#1楼得分：0回复于：2008-04-27 08:58:56

inno setup 中貌似有一个ChangesEnvironment属性,已经设为true,不过似乎不起作用,新建一个DOS窗口后查看Path还是没添加的.
Inno setup 肯定是能做到的,因为Delphi 7 Second Edition v7.2安装程序也是用它做的,它的安装完成后系统变量就立即生效了,但没它的inno script,不知是如何做的.

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

hongqi162
(失踪的月亮)
等　级：
14

更多勋章

#2楼得分：10回复于：2008-04-27 20:06:43

没弄过，帮顶了

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

hongqi162
(失踪的月亮)
等　级：
14

更多勋章

#3楼得分：10回复于：2008-04-27 20:09:05

你写一个bat然后调用这个bat可以么，很多安装程序都是这样做的

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

dejoy
(燕青)
等　级：
2

#4楼得分：0回复于：2008-04-28 14:35:26

引用 3 楼 hongqi162 的回复:
你写一个bat然后调用这个bat可以么，很多安装程序都是这样做的

BAT可以修改全局环境变量么?不行吧?再说BAT能使修改的变量立即生效吗？

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

suiyunonghen
(不得闲)
等　级：

#5楼得分：20回复于：2008-04-28 15:45:28

还要在InnoSetUp中SendMessage啊!
没试过这样使用!顶一顶,有机会验证一下看看.
建议楼主去找一份InnoSetUp的源代码把里面相应的部分修改一下,改成自己需要支持的脚本功能啊.

对我有用[0]
丢个板砖[0]
引用
举报
管理
TOP

dejoy
(燕青)
等　级：
2

#6楼得分：0回复于：2008-04-28 19:39:50

已解决~~~

原来是没有在正确的inno事件中调用.
正确的方法
设置ChangesEnvironment后,需要在正确的事件中调用,安装时需要在以下调用

procedure CurStepChanged(CurStep: TSetupStep);
begin
if CurStep = ssInstall then
_SetDelphiPath(True);

end;
卸载时需要在以下调用:
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
begin
if CurUninstallStep = usUninstall then
begin
_SetDelphiPath(False);
end;
end;

之前的
procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID = wpFinished then
.....
调用时inno已经通知刷新系统变量了,所以不起作用.要在通知刷新之前调用,经过试验前面两个事件时机结果正确.