从版转过来就遇到一个问题,请教!

我怎么用程序实现删除注册表中一个项!  
   
  1、  
  以下是我做的注册表删除代码:(filename是子键名)  
          DllReg   :=   TRegistry.Create;  
          try  
              //打开SharedDlls注册表  
              DllReg.RootKey   :=   HKEY_LOCAL_MACHINE;  
              DllReg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\SharedDLLs',false);  
                          if   DllReg.DeleteKey(filename)   then  
                                  showmessage('ok');  
          finally  
              DllReg.Free;  
          end;  
   
  2、还有，怎么将鼠标变成沙漏形  
  我这样子不行Form1.Cursor   :=   crDefault;  
   
   
  谢谢！！  
   
  问题点数：20、回复次数：4Top

1 楼smilelhh（blue）回复于 2002-09-30 14:36:14 得分 0

我是刚从PB版转过来的  
   
  Form1.Cursor   :=   crHourGlass;这样子不能实现沙漏形。Top

2 楼CloneCenter（复制中心）回复于 2002-09-30 14:38:21 得分 20

DeleteKey   是删除项；DeleteValue   是删除键。  
   
  Screen.Cursor   :=   crHourGlass;Top

3 楼smilelhh（blue）回复于 2002-09-30 14:45:22 得分 0

Screen.Cursor   :=   crHourGlass;可以实现。  
  谢。  
  但我用DeleteKey   是删除项如上不能实现呀总是返回false  
  Top

4 楼smilelhh（blue）回复于 2002-09-30 14:49:22 得分 0

Ok好了，  
   
  谢谢   CloneCenter(复制中心)   (Top

相关问题

• dllreg
• 删除
• crhourglass
• deletekey
• 注册表
• 实现
• cursor

• 帖主：smilelhh
• CloneCenter

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载