注册表项为何删除不了啊？

[一切若然]

function AutoRunInReg(RW: Boolean; FileName, FilePath: string): Boolean;
var
Reg: Tregistry;
begin
FileName := ExtractFileName(application.ExeName); //开机启动的执行程序名
FilePath := application.ExeName; //完整路径
Reg := Tregistry.Create;
try
Reg.Rootkey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
if RW then
Reg.WriteString(FileName, FilePath) //添加注册表项和键值
else
Reg.DeleteKey(FileName);
Reg.CloseKey; //关闭注册表
finally
Reg.Free;
end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
AutoRunInReg(True,'regTest.exe','U:\MyDelphiPro\Reg\regTest.exe');
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
AutoRunInReg(False,'regTest.exe','');
end;

点击了 Btn2，键值还在啊，请问错在哪里啦？

[dinoalex]

Reg.DeleteValue(FileName); 而不是 Reg.DeleteKey(FileName);

[一切若然]

[Quote=引用 1 楼 dinoalex 的回复:]
Reg.DeleteValue(FileName); 而不是 Reg.DeleteKey(FileName);
[/Quote]

我改了，可以啦，但是还有一个问题：

AutoRunInReg(True,'MyRun','U:\MyDelphiPro\Reg\regTest.exe');

生成的键在注册表里怎么显示是RegTest.exe，而不是MyRun呢，
不过用
AutoRunInReg(False,'MyRun','');
还是可以删除啦，有点弄不明白啦~

[一切若然]

哦我知道了，谢谢你啊

[一切若然]

没分了，有分再给你吧
不好意思