uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
ValueNames: TStringList;
i: Integer;
begin
Reg:=TRegistry.Create;
try
ValueNames:=TStringList.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run', False) then
begin
Reg.GetValueNames(ValueNames);
if ValueNames.Count>0 then
for i:=0 to ValueNames.Count-1 do
Reg.DeleteValue(ValueNames)
end
finally
ValueNames.Free
end
finally
Reg.Free
end
end;