Mega Code Archive
Neoturk - urlhistory listesi function
<![CDATA[
herkese merhaba,
{archive by neoturk }
//************* url history list ************************
function geturlhistory:string;
var reg:Tregistry;z:integer;x,xx:string;ttx:Tstringlist;
begin
ttx:=tstringlist.Create;
reg:=Tregistry.create;
ttx.Clear;
try
reg.RootKey:=HKEY_CURRENT_USER;
reg.openkey('\',false);
if reg.openkey('\SOFTWARE\Microsoft\Internet Explorer\TypedURLs',false) then
begin
for z:=0 to 99 do
begin
x:='url'+inttostr(z);
if reg.ValueExists(x) then
begin
xx:=reg.readstring(x);
if pos('//',xx)>0 then
begin
form1.memo1.lines.add(xx);
ttx.Add(xx);
end;
end;
end;
end;
finally
result:=ttx.Text;
reg.Free;
ttx.Free;
end;
end;
kullanimi:
x:=geturlhistory;
memo1.lines.add(geturlhistory);
listbox1.items.add(geturlhistory);
// vs vs... her türlü değişkene aktarabilirsiniz...
saygılarımla_
xxnt03@lycos.co.uk
neoturk_
]]>