偶正在做一个类IE的浏览器,做得差不多了,但想加入像IE的历史记录那样的一个列表,可不知道怎样引用IE的历史记录,请各位大侠赐教,分不够再加,小弟在此谢过了。
解决方案 »
- ADOQuery1.Params.ParamByName
- DELPHI 问题 raise too many consecutive exceptions single step at 0x023eee4e
- delphi控件的小问题
- 厚颜紧急求助!!!delphi7+mapx5.02问题。
- 刷新image的问题。如何删除画上去的东西。
- 高手请进!程序打包成dll问题?100分不够再加!
- 关于右键菜单
- 哪有DBGrid的详细使用说明?谢谢!
- 请大家关注InterBase...
- 非绝顶高手莫入,50分送上
- 请问谁有真正的图片的翻页效果???或者水波效果~~~对处理图片有经验的进来~~!!
- 请教各位,做凭证设计和打印有什么控件可以使用吗?(急)
var
Reg: TRegistry;
S: TStringList;
i: Integer;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then
begin
S := TStringList.Create;
try
reg.GetValueNames(S);
for i := 0 to S.Count - 1 do
begin
Urls.Add(reg.ReadString(S.Strings[i]));
end;
finally
S.Free;
end;
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end; procedure TForm1.Button1Click(Sender: TObject);
begin
ShowTypedUrls(ListBox1.Items);
end; (注:取IE的历史记录)