高分悬赏!

tcjzy 2000-08-04 10:40:00
有谁能告诉我怎么读取 ie 里收藏夹成为popmenu

请提供原程序。
...全文
211 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
beach 2000-08-12
  • 打赏
  • 举报
回复
look
tcjzy 2000-08-09
  • 打赏
  • 举报
回复
alin 能不能提供原代码
mophy 2000-08-09
  • 打赏
  • 举报
回复
直接修改注册表也可以
mophy 2000-08-09
  • 打赏
  • 举报
回复
用alin的方法建立文件,放到c:\windows\Favorites 下面就可以了
alin 2000-08-09
  • 打赏
  • 举报
回复
//创建菜单
procedure Tfrm_MainForm.FindWebFavorites;
var
WindowDirChar:Array[0..MAX_PATH] of Char;
WindowDir :String;
Begin
GetWindowsDirectory(WindowDirChar,MAX_PATH); //我这里取的系统目录,准确的应在注册表中取得
WindowDir :=StrPas(WindowDirChar);
if WindowDir[Length(WindowDir)]<>'\' then WindowDir :=WindowDir +'\';
WindowDir :=WindowDir +'Favorites';
FavoritesMenuItem.Clear; //菜单
CreateFavoritesMenu(WindowDir,FavoritesMenuItem);
End;

//读取URL文件内容
function Tfrm_MainForm.GetUrlFileURL(FilePath,FileName:String):String;
Var
IniFile:TIniFile;
Begin
IniFile:=TIniFile.Create(FilePath+'\'+FileName);
Result :=IniFile.ReadString('InternetShortcut','URL','about:blank');
IniFile.Free;
End;

//以下是递归取得收藏的所有目录和URL
procedure Tfrm_MainForm.CreateFavoritesMenu(Const WorkDir:String;Var MenuItem:TMenuItem);
Var
SearchRec:TSearchRec;
FWorkDir:String;
SubMenuItem:TMenuItem;
begin
FWorkDir :=WorkDir;
if (FindFirst(FWorkDir +'\*.*', faDirectory,SearchRec)=0) then
begin
repeat
if (SearchRec.Attr and faDirectory = faDirectory) then
Begin
if (SearchRec.Name <>'.')and (SearchRec.Name <>'..') then
begin
SubMenuItem:=TMenuItem.Create(Self);
SubMenuItem.Caption :=SearchRec.Name;
MenuItem.Add(SubMenuItem); //子目录
CreateFavoritesMenu(FWorkDir+'\'+SearchRec.Name,SubMenuItem);
end;
end;
until FindNext(SearchRec) <> 0;
End;
FindClose(SearchRec);

if (FindFirst(FWorkDir +'\*.*', faDirectory,SearchRec)=0) then
begin
repeat
if (SearchRec.Attr and faDirectory <> faDirectory) then
Begin
SubMenuItem:=TMenuItem.Create(MenuItem);
SubMenuItem.Caption :=Copy(SearchRec.Name,1,Length(SearchRec.Name)-4);
if Length(SubMenuItem.Caption) >25 then
SubMenuItem.Caption :=Copy(SubMenuItem.Caption,1,25)+'...';
SubMenuItem.Hint :=GetUrlFileURL(FWorkDir,SearchRec.Name);
SubMenuItem.OnClick :=MenuItem_FaClick;
MenuItem.Add(SubMenuItem);
end;
until FindNext(SearchRec) <> 0;
End;
FindClose(SearchRec);

End;
//菜单单击事件处理
procedure Tfrm_MainForm.MenuItem_FaClick(Sender: TObject);
begin
// if ActiveMDIChild = nil then
// Action_NewExecute(nil);
// Tfrm_Explorer(WindowList.Items[GetChildFormListNumber(ActiveMDIChild.Tag)]).
WebBrowser.Navigate((Sender As TMenuItem).Hint);
end;

czq 2000-08-07
  • 打赏
  • 举报
回复
关注
alin 2000-08-07
  • 打赏
  • 举报
回复
TMENU的POP事件中完成上述过程,名字为菜单名,菜单HINT为URL地址,点击后引用HINT就可以了
alin 2000-08-07
  • 打赏
  • 举报
回复
先在注册表中找到Favorites目录所有位置(WINDOWS98和NT不是一样的),然后在该目录中查找所有的URL文件,其内容格式如下
[InternetShortcut]
URL=http://www.yes-xxx.com/
Modified=C0D16FDBC9FBBF015F
名称按文件名,URL地址就是其中内容
tingweb 2000-08-05
  • 打赏
  • 举报
回复
100?高分
目录中findfirst做递归
INI格式读取收藏家文件 到2个TSTRINGLIST
生成到动态菜单。。。。
tcjzy 2000-08-05
  • 打赏
  • 举报
回复
还是没明白,能详细点吗,最好能举列
华南虎哥 2000-08-04
  • 打赏
  • 举报
回复
我现在也在做,关注
① 系统环境:Windows/Mac ② 开发语言:Java ③ 框架:SpringBoot ④ 架构:B/S、MVC ⑤ 开发环境:IDEA、JDK、Maven、Mysql ⑥ JDK版本:JDK1.8 ⑦ Maven包:Maven3.6 ⑧ 数据库:mysql 5.7 ⑨ 服务平台:Tomcat 8.0/9.0 ⑩ 数据库工具:SQLyog/Navicat ⑪ 开发软件:eclipse/myeclipse/idea ⑫ 浏览器:谷歌浏览器/微软edge/火狐 ⑬ 技术栈:Java、Mysql、Maven、Springboot、Mybatis、Ajax、Vue等 2、适用人群:计算机,电子信息工程等专业的学习者等, 高分毕业设计项目,也可作为课程设计和期末大作业。本资源仅是代码的压缩包,该代码适合毕业设计、课程设计作业,所有源码均经过严格测试,可以放心下载使用。有任何使用问题欢迎随时与博主沟通,第一时间进行解答! 3、解压说明:本资源需要电脑端使用WinRAR、7zip、Bandizip等解压工具进行解压 4、最新计算机软件毕业设计选题大全 https://blog.csdn.net/weixin_45630258/article/details/135901374 5、系统的实现说明 摘 要 I 目 录 III 第1章 绪论 1 1.1选题动因 1 1.2背景与意义 1 第2章 相关技术介绍 3 2.1 MySQL数据库 3 2.2 Vue前端技术 3 2.3 B/S架构模式 4 2.4 ElementUI介绍 4 第3章 系统分析 5 3.1 可行性分析 5 3.1.1技术可行性 5 3.1.2经济可行性 5 3.1.3运行可行性 6 3.2 系统流程 6 3.2.1 操作信息流程 6 3.2.2 登录信息流程 6 3.2.3 删除信息流程 7 3.3 性能需求 7 第4章 系统设计 8 4.1系统整体结构 8 4.2系统功能设计 9 4.3数据库设计 9 第5章 系统的实现 20 5.1用户信息管理 20 5.2 图片素材管理 20 5.3视频素材管理 21 5.1公告信息管理 22 第6章 系统的测试 24 6.1软件测试 24 6.2测试环境 24 6.3测试测试用例 24 6.4测试结果 25

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧