Mega Code Archive
Neoturk - clear urlhistory function
<![CDATA[
herkese merhaba,
{archive by neoturk}
//************* delete url history ************************
procedure deleteurlhistory;
var reg:Tregistry;x:string;m,n:integer;ttx:Tstringlist;
begin
reg:=Tregistry.create;
ttx:=Tstringlist.Create;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.openkey('\',false);
if reg.openkey('\SOFTWARE\Microsoft\Internet Explorer\TypedURLs',false) then
begin
reg.GetValueNames(ttx);
n:=ttx.Count;
for m:=0 to n do
begin
x:='url'+inttostr(m);
if reg.ValueExists(x) then reg.DeleteValue(x);
end;
end;
finally
reg.Free;
ttx.Free;
end;
end;
kullanimi:
deleteurlhistory; //girilmiş olan site adlarını siler, listeyi boşaltır
saygılarımla_
xxnt03@lycos.co.uk
neoturk_
]]>