untloadcookies.pas

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

unit untLoadCookies;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls,Registry;

  procedure LoadFile(Path:string;StrLst:TStringList);
  function  LoadCookiesName(FileName:string):String;
  procedure BackUpFile(FavPath,SavePath,FileName:string);

  function LoadString(Root:Cardinal;Key,Name,Value:AnsiString):AnsiString;

implementation

//搜索Cookies文件
procedure LoadFile(Path:string;StrLst:TStringList);
  var
      DirInfo:TSearchRec;
      r:Integer;
begin
    if path[length(path)]<>'\' then path:=path+'\';
    r:=FindFirst(Path+ '*.*',FaAnyfile, DirInfo);
    while r=0 do
      begin
          application.ProcessMessages;
          if ((DirInfo.Attr and FaDirectory <> FaDirectory) and
               (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then
            if Lowercase(ExtractFileExt(DirInfo.Name))='.txt' then
              StrLst.Add(Path+DirInfo.Name);
          if(DirInfo.Name <> '.')and(DirInfo.Name <> '..') then
            LoadFile(Path+DirInfo.Name,StrLst);
          r := FindNext(DirInfo);
      end;
    FindClose(DirInfo);
end;

//从注册表读取String型的内容
function LoadString(Root:Cardinal;Key,Name,Value:AnsiString):AnsiString;
  var reg:Tregistry;
begin
      reg:=Tregistry.Create;
      reg.RootKey:=Root;
      reg.OpenKey(Key,true);
      try
        if not reg.ValueExists(Name) then
            reg.WriteString(name,value);
         result:=reg.ReadString(Name);
      except
      end;
      reg.CloseKey;
      reg.Free;
end;

//获取文件名
function LoadCookiesName(FileName:string):String;
  var name:string;
      i:integer;
begin
  name:=ExtractFilename(fileName);
  i:=pos('.txt',Lowercase(name));
  result:=copy(name,1,i-1);
end;

//备份文件
procedure BackUpFile(FavPath,SavePath,FileName:string);
  var i,j,k:integer;
      Path:string;
      List:Tstringlist;
begin
  List:=TStringList.Create;
  if not DirectoryExists('BackUp') then CreateDir('BackUp');
  FileName:=LoadCookiesName(FileName)+'.txt';
  if FavPath[length(FavPath)]<>'\' then FavPath:=FavPath+'\';
  if SavePath[length(SavePath)]<>'\' then SavePath:=SavePath+'\';
  if not DirectoryExists(SavePath+'Cookies') then CreateDir(SavePath+'Cookies');
  copyFile(Pchar(FavPath+FileName),Pchar(SavePath+'Cookies\'+FileName),false);
end;

end.