procedure TForm1.Button1Click(Sender: TObject);
var
adresler: TStrings;
i: integer;
begin
adresler := TStringlist.create;
with TRegistry.Create do
begin
RootKey := HKEY_CURRENT_USER;
if KeyExists('Software\Microsoft\Internet Explorer\TypedURLs\') then
OpenKey('Software\Microsoft\Internet Explorer\TypedURLs\',false);
GetvalueNames(adresler);
if adresler.Count > 0 then begin
for i := 0 to adresler.Count - 1 do begin
deletevalue(adresler.Strings[i]);
end;
end;
CloseKey;
adresler.Free;
end;
end;
Not: registry unit ini eklemeyi unutmayalım.