unit UntMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls,FileCtrl, ImgList;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ListView1: TListView;
    Label2: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    Btn_BackUp: TBitBtn;
    Btn_Cancel: TBitBtn;
    SBar: TStatusBar;
    Btn_LoadURL: TButton;
    Label3: TLabel;
    EdtFavPath: TEdit;
    ImageList1: TImageList;
    procedure Btn_CancelClick(Sender: TObject);
    procedure Btn_LoadURLClick(Sender: TObject);
    procedure Btn_BackUpClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ListView1CustomDrawItem(Sender: TCustomListView;
      Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FavoritesPath:string;

implementation
  uses untLoadFav,untFileInfo,untBackUp;
{$R *.dfm}

procedure TForm1.Btn_CancelClick(Sender: TObject);
begin
  close;
end;

//載入URL文件
procedure TForm1.Btn_LoadURLClick(Sender: TObject);
  var i:integer;
      StrLst:TStringList;
      FileName:String;
      LstItem:TListItem;
begin
  listview1.Clear;
  StrLst:=TStringList.Create;
  LoadFile(EdtFavPath.Text,StrLst);
  for i:=0 to StrLst.Count -1 do
    begin
      application.ProcessMessages;
      FileName:=StrLst.Strings[i];
      LstItem:=listview1.Items.Add;
      LstItem.Caption:=LoadURLName(FileName);//文件名
      LstItem.SubItems.Add(LoadURL(FileName));//文件指向的URL
      LstItem.SubItems.Add(FileName); //文件位置
      LstItem.SubItems.Add(PathName(EdtFavPath.Text, FileName)); //文件內部位置
      SBar.Panels[0].Text:='正在載入:'+LoadURLName(FileName);
    end;
  SBar.Panels[0].Text:='IE收藏夾總共有'+
                       Inttostr(Listview1.Items.Count)+'個Internet快捷方式.';
end;

//備份URL文件
procedure TForm1.Btn_BackUpClick(Sender: TObject);
  var i:integer;
begin
  if (listview1.Items.Count>0) and (edit1.Text<>'') then
    begin
      Btn_BackUp.Enabled :=false;
      Btn_Cancel.Enabled :=false;
      Btn_LoadURL.Enabled :=false;
      for i:=0 to listview1.Items.Count -1 do
        begin
          application.ProcessMessages;
          //調用自定義備份函數BackUp
          BackUpFile(EdtFavPath.Text,Edit1.Text,listview1.Items.Item[i].SubItems.Strings[2]);
          Sbar.Panels[0].Text :='正在備份：...'+
                            listview1.Items.Item[i].SubItems.Strings[2];
        end;
      Btn_BackUp.Enabled :=true;
      Btn_Cancel.Enabled :=true;
      Btn_LoadURL.Enabled :=true;
      Sbar.Panels[0].Text :='備份完畢.';
      messagebox(handle,'備份完畢！  ','提示',0+64);
    end
  else if listview1.Items.Count=0 then
    messagebox(handle,'無文件進行保存！ ','提示',0+32)
  else if edit1.Text='' then
    messagebox(handle,'請輸入保存路徑！ ','提示',0+32);
end;

//選擇備份路徑
procedure TForm1.BitBtn1Click(Sender: TObject);
   var Dir:string;
begin
   if SelectDirectory('Select a directory','',Dir) then
      Edit1.Text:=Dir;
   form1.SetFocus;
end;

procedure TForm1.FormCreate(Sender: TObject);
  var Key:string;
begin
  Key:='\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
  //利用LoadString函數從注冊表中獲取IE收藏夾路徑
  FavoritesPath:=LoadString(HKEY_CURRENT_USER,Key,'Favorites','');
  EdtFavPath.Text :=FavoritesPath;
  //調用載入URL事件
  Btn_LoadURLClick(nil);
  edit1.Text:=extractFilepath(application.ExeName)+'BackUp\';

end;

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  //ListView顯示風格
  if odd(item.Index) then
    item.ListView.Canvas.Brush.Color:=$00FEF4E7
  else
    item.ListView.Canvas.Brush.Color:=$00F7F8F9;
end;

end.