Z
zanpen2001
Unregistered / Unconfirmed
GUEST, unregistred user!
设置了环境变量后，怎样才能使其生效？用下面的代码修改成功后，退出程序，
又变成原来的样子了，相当于没加，各位高手，有知道的请详加指点。
我用的系统是W2k，是不是这家伙背着我重启了一遍什么服务？如果是的话，怎样
在程序中重启W2k的服务？我查过资料了，好像很少，也很难，就请各位多费心吧
，我正在给公司的数据库写安装程序，是Sybase，安装过程中也要重启Sybase服
务的，当然，安装时也要用到设置环境变量。
procedure TForm1.Button5Click(Sender: TObject);
var
path_name,path,add_path
char;
begin
path_name:='path';
add_path :=';d:/temp';
getmem(path,255);
try
GetEnvironmentVariable(path_name,path,255);
SetEnvironmentVariable(path_name,strcat(path,add_path));
finally
freemem(path);
end;
end;
又变成原来的样子了，相当于没加，各位高手，有知道的请详加指点。
我用的系统是W2k，是不是这家伙背着我重启了一遍什么服务？如果是的话，怎样
在程序中重启W2k的服务？我查过资料了，好像很少，也很难，就请各位多费心吧
，我正在给公司的数据库写安装程序，是Sybase，安装过程中也要重启Sybase服
务的，当然，安装时也要用到设置环境变量。
procedure TForm1.Button5Click(Sender: TObject);
var
path_name,path,add_path
char;begin
path_name:='path';
add_path :=';d:/temp';
getmem(path,255);
try
GetEnvironmentVariable(path_name,path,255);
SetEnvironmentVariable(path_name,strcat(path,add_path));
finally
freemem(path);
end;
end;
]