如何從系統收藏夾裏讀出每個URL位址快捷方式的具體位址？用文字檔案打開發現內容很難判斷，查了些資料說是INI格式，但看起來卻又不是，使用滑鼠右鍵 可以直接 從文檔裏讀出這個URL位址，從程式上實現 如何實現 讀每個檔然後獲取到它指向的位址呢？ ----------要知道自己有多笨，到DelphiK.Top來看看----------

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=23397 --- --<-<-<@

謝謝大大，可是我嘗試執行那段程式的時候會有不少錯誤的提示，請問您是否能幫我看看？ 另外不是本人不想搜索，只是因為在大陸，搜索速度很慢，所以不得已發了重複得帖子。 而且因為語言不是很通，所以在搜索辭彙上會有些誤差…… ----------要知道自己有多笨，到DelphiK.Top來看看----------

unit Unit6;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ShlObj;    type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    function GetIEFavourites(const favpath: string):TStrings;
var
  searchrec: TSearchrec;
  str: TStrings; 
  path, dir, filename: String; 
  Buffer: array[0..2047] of Char; 
  found: Integer; 
begin 
  str := TStringList.Create;
  //Get all file names in the favourites path 
  path := FavPath   '\*.url'; 
  dir := ExtractFilepath(path); 
  found := FindFirst(path, faAnyFile, searchrec); 
  while found = 0 do begin
    //Get now URLs from files in variable files 
    SetString(filename, Buffer, GetPrivateProfileString('InternetShortcut', 
  PChar('URL'), NIL, Buffer, SizeOf(Buffer), PChar(dir searchrec.Name))); 
    str.Add(filename); 
    found := FindNext(searchrec);
  end;       //unterordner finden 
  found := FindFirst(dir   '\*.*', faAnyFile, searchrec); 
  while found = 0 do begin 
    if ((searchrec.Attr and faDirectory) > 0) and (searchrec.Name[1]<>'.') then
    str.AddStrings(GetIEFavourites(dir   '\'   searchrec.name)); 
   found := FindNext(searchrec); 
  end; 
  FindClose(searchrec); 
  Result := str;
end;    procedure TForm1.Button1Click(Sender: TObject);
var pidl: PItemIDList;
  FavPath: array[0..MAX_PATH] of char; 
begin 
  SHGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl); 
  SHGetPathFromIDList(pidl, favpath); 
  ListBox1.Items := GetIEFavourites(StrPas(FavPath));
end;    end.

--- --<-<-<@