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

Question

我怎么用程序实现删除注册表中一个项!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;
谢谢！！

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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