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

  • 内容
  • 评论
  • 相关

procedure TForm1.ToolButton1Click(Sender: TObject);  
label  
Write;  
var  
Favorites:String;  
Search:TSearchRec;  
begin  
Favorites:=GetFavoritesPath;  
if Favorites='' then  
begin  

http://www.gaodaima.com/65664.html读取IE收藏夹内网址的信息_Delphi

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;

欢迎大家阅读《读取IE收藏夹内网址的信息_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 读取IE收藏夹内网址的信息_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注