忘不了你的温柔刘冲mp3:通过读文件方式获得收藏夹中URL
来源:百度文库 编辑:中财网 时间:2024/05/03 09:25:21
通过读文件方式获得收藏夹中URL
分类: Delphi 2008-09-11 13:21 270人阅读 评论(0) 收藏 举报- {*******************************************************}
- { }
- { 通过读文件方式获得收藏夹中URL }
- { }
- { 版权所有 (C) 2008 QQ:3150379 }
- { }
- {*******************************************************}
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, IniFiles, ShlObj;
- type
- TForm1 = class(TForm)
- btn1: TButton;
- Memo1: TMemo;
- procedure btn1Click(Sender: TObject);
- private
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.dfm}
- { TForm1 }
- //------------------------------------------------------------------------------
- // 通过读文件方式获得收藏夹中URL
- //------------------------------------------------------------------------------
- procedure TForm1.btn1Click(Sender: TObject);
- function GetFavoritesUrl(FavoritesFile: string): string;
- var
- MyIniFile: TInifile;
- begin
- MyIniFile := TInifile.Create(FavoritesFile);
- try
- Result := MyIniFile.ReadString('InternetShortcut', 'URL', '');
- finally
- MyIniFile.Free;
- end;
- end;
- var
- Search: TSearchRec;
- pidl: PItemIDList;
- FavPath: array[0..MAX_PATH] of char;
- FavoritesPath: string;
- i, j: Integer;
- begin
- SHGetSpecialFolderLocation(Handle, CSIDL_FAVORITES, pidl);
- SHGetPathFromIDList(pidl, @FavPath);
- FavoritesPath := Format('%s/', [FavPath]);
- Memo1.Clear;
- with Search, Memo1.Lines do
- begin
- i := FindFirst(FavoritesPath + '*.url', 0, Search);
- j := 1;
- while i = 0 do
- begin
- if (Search.Name <> '.') and (Search.Name <> '..') then
- begin
- Add(IntToStr(j) + '、' + Name);
- Add(' ' + GetFavoritesUrl(FavoritesPath + Name));
- SetLength(Name, Length(Name) - 4);
- i := FindNext(Search);
- j := j + 1;
- end;
- end;
- end;
- end;
- end.
vb中如何通过文件名 获得文件地址
vb中如何通过文件名 获得文件地址
在asp中如何获得用户当前的URL?
怎样通过Web方式获得对方的网卡MAC地址?
我最好通过什么样的方式获得大专文凭?
如何通过电话的方式获得QQ币?
如何获得URL
获得URL指定字段
大学毕业后,已经获得学士学位,可否通过第二学历的方式获得CET-4证书。
在计算机中,各种"数据"是通过文件的方式来进行存储的对吗?
IE的收藏夹在电脑里那个文件中啊?
如何把收藏夹中的文件存到硬盘中?
谁知道收藏夹中网页文件的后缀是什么?
谁知道收藏夹中网页文件的后缀是什么??
怎么把自己电脑中的文件传到网上并获得URL?
在DELPHI中如何获得文件路径
如何获得视频文件的URL
如何获得Flash的URL
做完FLASH如何获得URL
网页编程中~如何获得某指定窗口当前的URL?~
IIS中利用主机头方式建立的二级域名重定向到其它URL,如何隐藏真实URL
与人第一次接触时,通过什么方式比较容易拉近距离,获得信赖和好感?
除了打电话可以获得Q币以外,还可以通过其他方式获得Q币吗?
如何通过函授的方式获得汽车评估师资格证书?