//  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.