怎么删除光驱使用记录

Question

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

Answer 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;

Answer 2

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