untfileinfo.pas

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

//  untFileInfo单元
//  作用:备份URL文件
//  版本:1.0.0.0
//  作者:林仕君
//  日期:2004.9.20

unit untFileInfo;

interface
uses
  Windows, Messages, SysUtils,StrUtils,Inifiles,Classes,Registry;

  function LoadURL(FileName:string):String;
  function LoadURLName(FileName:string):String;
  procedure DirPath(Filename:string;StrLst:TStringList);
  function PathName(FavPath,FileName:String):string;

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

implementation

//从URL文件中取得指向的网址
function LoadURL(FileName:string):String;
  var url:TInifile;//Url文件为Ini文件类型
begin
  //实例化
  url:=TIniFile.Create(FileName);
  try
    //返回URL文件中取得指向的网址
    result:=url.ReadString('InternetShortcut','URL','http://moufer.51.net/');
  finally
    url.Free;
  end;
end;

//取得URL文件的文件名(去除*url后缀)
function LoadURLName(FileName:string):String;
  var name:string;
      i:integer;
begin
  name:=ExtractFilename(fileName);
  i:=pos('.url',Lowercase(name));
  result:=copy(name,1,i-1);
end;

//获取一个完整路径的各个级别的文件夹名称
procedure DirPath(Filename:string;StrLst:TStringList);
  var i,j,k:integer;
begin
  i:=pos('\',filename);
  StrLst.Add(copy(Filename,1,i-1));
  k:=1;
  while (i>0) do
    begin
      j:=posex('\',Filename,i+1);
      if j=0 then break;
      StrLst.Add(copy(Filename,i+1,j-i-1));
      i:=j;
      inc(k);
    end;
end;

function PathName(FavPath,FileName:String):string;
  var list:TStringList;
      i,j,k:Integer;
begin
  if FavPath[length(FavPath)]<>'\' then FavPath:=FavPath+'\';
  List:=TStringList.Create;
  DirPath(FavPath,List);
  i:=pos(List.Strings[List.Count-1],FileName);
  j:=Length(FileName);
  k:=Length(List.Strings[List.Count-1]);
  result:=copy(FileName,i+k+1,j-i-1);
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;


end.