急! 急! 急! 请问如何破解CVI的OCX控件?(200分)

请问有人破解了CVI的OCX控件了吗?CVI程序我有CRACK,但我在DELPHI中使用这些控件,发现没有破解.

自已顶一下!

procedure SetGlobalEnvironment(const Name, Value: string);
var
R : DWORD;
begin

with TRegistry.Createdo
begin

try
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('System/CurrentControlSet/Control/Session Manager/Environment',True) then
begin

WriteString(Name,Value);
SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,Integer(Pchar('Environment')));
end;

finally
Free;
end;

end;

end;

话题2155324的标题是： 如何在Delphi中修改环境变量？急！ (100分)
分类：系统相关 gogogogogogo (2003-09-04 10:04:00)
在Delphi中怎么修改Windows的环境变量？并能不重启机器就立即生效？
哪位大虾能指点一下，最好能有几行代码参考一下，不胜感激！急！

angelgekko (2003-09-04 10:09:00)
要修改些什么，具体点好吗？

pihome (2003-09-04 10:19:00)
procedure SetGlobalEnvironment(const Name, Value: string);
begin

with TRegistry.Createdo

try
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('System/CurrentControlSet/Control/Session Manager/Environment',True) then

begin

WriteString(Name,Value);
SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,Integer(Pchar('Environment')));
end;

finally
Free
end;

end;



kirinma (2003-09-04 10:20:00)
1、改注册表
2、使用windows API

gogogogogogo (2003-09-04 10:28:00)
我想在Delphi程序中修改‘我的电脑(右键)-->属性-->高级-->环境变量-->系统变量’中的变量值，并要不重启机器就立即生效，谢谢！

gogogogogogo (2003-09-04 10:32:00)
toihome,谢谢，可以不重启就立即生效吗？

pihome (2003-09-04 10:36:00)
是的，你可以马上试试效果

gogogogogogo (2003-09-04 10:56:00)
pihome大哥，我做个小程序已试成功了，但还是麻烦问一下，这样的效果就和重启过机器是一样吗？因为我以前手工修改过后，值是变了，但就是没效果，只有重启机器后才有效果，我要完全在我的应用环境中测试成功可能还要一两天，晚一两天给分，望大家别介意。如果各位有要补充的，在下侧耳聆听，好的建议，一样给分，谢谢！

pihome (2003-09-04 11:01:00)
和你在 ‘我的电脑(右键)-->属性-->高级-->环境变量-->系统变量’ 中修改并保存 的效果是一样的

gogogogogogo (2003-09-05 13:42:00)
多人接受答案了。


kirinma-10,pihome-90,的回答最终被接受。

话题1303905的标题是： SetEnvironmentVariable??? (100分)
分类：系统相关 刘芳 (2002-09-03 15:28:00)
想把自己应用程序的路径加到环境变量Path中，下面的语句没有报错，可就是不生效？
if (SetEnvironmentVariable('Path', PChar(ExtractFilePath(application.ExeName)))
<> true) then

showmessage(SysErrorMessage(GetLastError()));


darnis (2002-09-03 15:51:00)
你那个调用应该已经成功了。
SetEnvironmentVariable 设置的只是你当前应用的环境变量。
不信，你随后调用。
GetEnvironmentVariable 来看你的环境变量已经设置成了你的应用的。

var
v: Pchar;
begin

getMem(v,255);
try
if (SetEnvironmentVariable('Path', PChar(ExtractFilePath(application.ExeName)))
<> true) then

showmessage(SysErrorMessage(GetLastError()));
GetEnvironmentVariable('Path',v,255);
showmessage(v);
finally
freemem(v);
end;

end;

这是WIN32 Programmer's Reference 的说明的。
The SetEnvironmentVariable function sets the value of
an environment variable for the current process.



刘芳 (2002-09-03 15:57:00)
那我如何才能把它保存下来呢？

darnis (2002-09-03 16:08:00)
你的要求 ，我不知道怎么实现，，
在WIN32 Programmer's Reference里可以找到 SetEnvVariable 正是可以实现你的要求的
API，但是确不知道该引用哪个单元，，
在DFW里搜索到一个相关主题：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1136142
结果是，Delphi 不支持 SetEnvVariable ，
另人失望。 你看看那个主题文章对你有没有帮助。。


darnis (2002-09-03 16:25:00)
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1242554
讨论得更详细一些。

twos (2002-09-03 17:49:00)
procedure SetGlobalEnvironment(const Name, Value: string);
var
RWORD;
begin

with TRegistry.Createdo

try
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('System/CurrentControlSet/Control/Session Manager/Environment',True) then
begin

WriteString(Name,Value);
SendMessage(HWND_BROADCAST,WM_SETTINGCHANGE,0,Integer(Pchar('Environment')));
end;

finally
Free
end;

end;



zhaqiong (2002-10-11 12:27:00)
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1341056

刘芳 (2002-10-12 13:21:00)
谢谢 zhaqiong Oracle 全部搞定!


twos-60,zhaqiong-40,的回答最终被接受。

谢谢两位,我试一下,稍后给分!