首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

读取IE收藏夹内网址的信息

(加入日期: 2001-07-20 )

打印文章】【字体:

分享到:
procedure TForm1.ToolButton1Click(Sender: TObject);  
label  
Write;  
var  
Favorites:String;  
Search:TSearchRec;  
begin  
Favorites:=GetFavoritesPath;  
if Favorites='' then  
begin  
MessageBox(Handle,'访问收藏夹主键错误!','提示信息',MB_OK);  
exit;  
end;  
Memo1.Clear;  
with Search,Memo1.Lines do  
begin  
if FindFirst(Favorites+'*.url',0,Search)=0 then  
begin  
Write:  
Add(GetFavoritesUrl(Favorites+Name));  
SetLength(Name,Length(Name)-4);  
Add(Name);  
if FindNext(Search)=0 then  
goto Write;  
end;  
end;  
end;  

function TForm1.GetFavoritesPath:String;  
var  
reg:TRegistry;  
begin  
Result:='';  
reg:=TRegistry.Create;  
with reg do  
begin  
RootKey:=HKEY_USERS;  
if OpenKey('.DEFAULT\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders',false)=true then  
Result:=ReadString('Favorites')+'\';  
CloseKey;  
Free;  
end;  
end;  

{function TForm1.GetFavoritesUrl(FavoritesFile: String): String;  
begin  
with TIniFile.Create(FavoritesFile)do  
begin  
Result:=ReadString('InternetShortcut','URL','');  
Free;  
end;  
end;}  

function TForm1.GetFavoritesUrl(FavoritesFile: String): String;  
var  
i:integer;  
begin  
Result:='';  
with TStringList.Create do  
begin  
LoadFromFile(FavoritesFile);  
i:=IndexOf('[InternetShortcut]');  
if i=-1 then  
exit;  
Result:=Strings[i+1];  
System.Delete(Result,1,4);  
Free;  
end;  
end;

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章