通过读文件方式获得收藏夹中URL

1. {*******************************************************}
2. {                                                       }
3. {       通过读文件方式获得收藏夹中URL                   }
4. {                                                       }
5. {       版权所有 (C) 2008 QQ：3150379                   }
6. {                                                       }
7. {*******************************************************}
9. unit Unit1;
11. interface
13. uses
14.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
15.   Dialogs, StdCtrls, IniFiles, ShlObj;
17. type
18.   TForm1 = class(TForm)
19.     btn1: TButton;
20.     Memo1: TMemo;
21.     procedure btn1Click(Sender: TObject);
22.   private
24.   public
25.     { Public declarations }
26.   end;
28. var
29.   Form1: TForm1;
31. implementation
33. {$R *.dfm}
35. { TForm1 }
38. //------------------------------------------------------------------------------
39. // 通过读文件方式获得收藏夹中URL
40. //------------------------------------------------------------------------------
42. procedure TForm1.btn1Click(Sender: TObject);
43.   function GetFavoritesUrl(FavoritesFile: string): string;
44.   var
45.     MyIniFile: TInifile;
46.   begin
47.     MyIniFile := TInifile.Create(FavoritesFile);
48.     try
49.       Result := MyIniFile.ReadString('InternetShortcut', 'URL', '');
50.     finally
51.       MyIniFile.Free;
52.     end;
53.   end;
54. var
55.   Search: TSearchRec;
56.   pidl: PItemIDList;
57.   FavPath: array[0..MAX_PATH] of char;
58.   FavoritesPath: string;
59.   i, j: Integer;
60. begin
61.   SHGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl);
62.   SHGetPathFromIDList(pidl, @FavPath);
63.   FavoritesPath := Format('%s/', [FavPath]);
64.   Memo1.Clear;
65.   with Search, Memo1.Lines do
66.   begin
67.     i := FindFirst(FavoritesPath + '*.url', 0, Search);
68.     j := 1;
69.     while i = 0 do
70.     begin
71.       if (Search.Name <> '.') and (Search.Name <> '..') then
72.       begin
73.         Add(IntToStr(j) + '、' + Name);
74.         Add('    ' + GetFavoritesUrl(FavoritesPath + Name));
75.         SetLength(Name, Length(Name) - 4);
76.         i := FindNext(Search);
77.         j := j + 1;
78.       end;
79.     end;
80.   end;
81. end;
83. end.