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

一切若然 一切若然 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
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,键值还在啊,请问错在哪里啦?
...全文
评论 4
收藏 已收藏
分享
返回顶部
一切若然
Windows SDK/API 1,184 成员 22,326 内容