DelphiReg的问题..在线等..答完给分 ( 积分: 50 )

delphi如何使用api删除一个项..<br>比如是HKEY_LOCAL_MACHINE下的SOFTWARE/test

编译选项中&nbsp;Use&nbsp;Debug&nbsp;DCUS&nbsp;打勾，跟进去看看就知道了。

谢谢啦..我已经找到代码了..<br><br>function&nbsp;LastPos(Needle:&nbsp;Char;&nbsp;Haystack:&nbsp;String):&nbsp;integer;<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;for&nbsp;Result&nbsp;:=&nbsp;Length(Haystack)&nbsp;downto&nbsp;1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;Haystack[Result]&nbsp;=&nbsp;Needle&nbsp;then&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Break;<br>end;<br><br>//删除项<br>function&nbsp;RegDelKey(RootKey:&nbsp;HKEY;&nbsp;Name:&nbsp;String):&nbsp;boolean;<br>var<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SubKey:&nbsp;String;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;n:&nbsp;integer;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;hTemp:&nbsp;HKEY;<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;False;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;n&nbsp;:=&nbsp;LastPos('/',&nbsp;Name);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;n&nbsp;&gt;&nbsp;0&nbsp;then<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SubKey&nbsp;:=&nbsp;Copy(Name,&nbsp;1,&nbsp;n&nbsp;-&nbsp;1);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;RegOpenKeyEx(RootKey,&nbsp;PChar(SubKey),&nbsp;0,&nbsp;KEY_WRITE,&nbsp;hTemp)&nbsp;=&nbsp;ERROR_SUCCESS&nbsp;then<br>begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SubKey&nbsp;:=&nbsp;Copy(Name,&nbsp;n&nbsp;+&nbsp;1,&nbsp;Length(Name)&nbsp;-&nbsp;n);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Result&nbsp;:=&nbsp;(RegDeleteKey(hTemp,&nbsp;PChar(SubKey))&nbsp;=&nbsp;ERROR_SUCCESS);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;RegCloseKey(hTemp);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>end;

接受答案了.