怎么删除光驱使用记录

[2020WL]

想问一下怎么通过注册表彻底删除光驱的使用记录

[天行归来]

用TRegistry可以完成对注册表操作 以下代码未测试，你可以测试有问题改改。

function DeleKey(key: string): boolean;
var
  i: integer;
  tmp: TStrings;
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey(key,false) then
  begin
    tmp := TStringList.Create;
    reg.GetKeyNames(tmp);
    for i:=0 to tmp.Count-1 do
    begin
      reg.DeleteKey(tmp[i]);
    end;
    tmp.Free;
  end;
  reg.CloseKey;
  reg.Free;
end;

[2020WL]

引用 1 楼 天行归来的回复:

用TRegistry可以完成对注册表操作 以下代码未测试，你可以测试有问题改改。

function DeleKey(key: string): boolean;
var
  i: integer;
  tmp: TStrings;
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  if reg.OpenKey(key,false) then
  begin
    tmp := TStringList.Create;
    reg.GetKeyNames(tmp);
    for i:=0 to tmp.Count-1 do
    begin
      reg.DeleteKey(tmp[i]);
    end;
    tmp.Free;
  end;
  reg.CloseKey;
  reg.Free;
end;

有什么办法在不编程的情况下直接从注册表里删呢

[天行归来]

https://www.jb51.net/article/28171.htm

[lao_yunger]

绿色版的 优化大师 ，扫除注册表，再删除。