untmain_iecookies.pas

驱动备份顾名思义就是备份操作系统的各个硬件的驱动程序

unit untMain_IECookies;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ListBox1: TListBox;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    SBar: TStatusBar;
    lbl_CookiesPath: TLabel;
    Button4: TButton;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CookiesPath:string;

implementation
  uses untLoadCookies;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
  var Key:string;
begin
  Key:='\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders';
  //调用LoadString函数从注册表中获取Cookies路径
  CookiesPath:=LoadString(HKEY_CURRENT_USER,Key,'Cookies','');
  lbl_CookiesPath.Caption :=CookiesPath;
  //调用"载入"按钮事件,载入Cookies文件至listbox1
  Button4Click(nil);
  edit1.Text:=extractFilepath(application.ExeName)+'BackUp\';
end;

procedure TForm1.Button4Click(Sender: TObject);
  var List:TStringList;
begin
  //载入Cookies文件
  listbox1.Clear;
  List:=TStringLIst.Create;
  LoadFile(lbl_CookiesPath.Caption,list);
  listbox1.Items:=List;
  list.Free;
  SBar.Panels[0].Text:='总共搜索到'+inttostr(listbox1.Count)+'条Cookies记录.';
end;

procedure TForm1.Button1Click(Sender: TObject);
   var Dir:string;
begin
   //选择备份文件夹
   if SelectDirectory('Select a directory','',Dir) then
      Edit1.Text:=Dir;
   form1.SetFocus;
end;

//备份Cookies文件
procedure TForm1.Button2Click(Sender: TObject);
  var i:integer;
begin
  if (edit1.Text<>'')and (listbox1.Count<>0) then
    begin
      for i:=0 to listbox1.Items.Count -1 do
        begin
          application.ProcessMessages;
          sBar.Panels[0].Text:='正在备份:'+LoadCookiesname(listbox1.Items.Strings[i]);
          BackUpFile(lbl_CookiesPath.Caption,edit1.Text,listbox1.Items.Strings[i]);
        end;
      sBar.Panels[0].Text:='备份完毕.';
      messagebox(handle,'备份完毕！ ','提示',0+64);
    end
  else if listbox1.Count =0 then
    messagebox(handle,'无内容备份！ ','提示',0+32)
  else if edit1.Text ='' then
    messagebox(handle,'请输入备份路径！ ','提示',0+64);
end;

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

end.