Delphi怎么修改注册表?

来源：百度知道 编辑：UC知道 时间：2024/06/30 16:16:26
如题,delphi 怎么修改注册表 谢谢,

function ExecUsbUse(isUse: Integer): Boolean;
var
Reg: TRegistry;
begin
Result := false;
Reg := TRegistry.Create;
try
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('SYSTEM\CurrentControlSet\Services\UsbStor',false);
Reg.WriteInteger('start',isUse);
Result := true;
except
//
end;
finally
Reg.Free;
end;
end;