高手,快救我!
为什不能删除TypedURLs键?
procedure TForm1.Button1Click(Sender: TObject);
var
DelUrl : TRegistry;
begin
DelUrl:=TRegistry.Create;
with DelUrl do
begin
RootKey:=HKEY_CURRENT_USER;
if OpenKey('Software\Microsoft\Internet Explorer\TypedURLs',False) then
begin
DeleteKey('TypedURLs')
end
else
begin
application.MessageBox('没有找到TypedURLs键','提示信息',Mb_ok);
end;
CloseKey;
Free;
end;
end;