我用DELPHI写了一个过程,怎么在点按钮时触发?

来源:百度知道 编辑:UC知道 时间:2024/06/03 21:08:31
procedure SetSystemEnvironmentVariable(const name, value: string);
var
rv: DWORD;
begin
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('SYSTEM\CurrentControlSet\Control\Session ' +
'Manager\Environment', False);
WriteString(name, value);
SendMessageTimeout(HWND_BROADCAST, WM_SETTINGCHANGE, 0, LParam
(PChar('Environment')), SMTO_ABORTIFHUNG, 5000, rv);
finally
Free
end.
end;

------------------------------------------------------------
这个过程,我应该在Button1Click事件里写什么来调用它呀?
不是uses SetSystemEnvironmentVariable('aa','aa');这样吗

SetSystemEnvironmentVariable('aa','aa');
就可以了

如果这个过程没有声明
把这个过程写在按钮事件的上面

应该是

一步登天的天才啊,过程都会写了,还不会调用?