n3u_inifileio.pas

来自「右键菜单实现文件加密」· PAS 代码 · 共 51 行

unit N3U_INIFileIO;

interface

uses IniFiles,Classes,Variants,StrUtils,Forms,SysUtils;

 procedure ReadINI(NodeName:string;var ResultList:TStringList);
 function GetINIValue(NodeName:string;KeyName:string;Default:String=''): string;
 procedure SetINIValue(NodeName:string;KeyName:string;Value:string);
 procedure DeleteAll(NodeName:string);
 var
  IniFile : TIniFile;
  INIFilename  :string;
implementation


procedure ReadINI(NodeName:string;var ResultList:TStringList);
begin
  IniFile.ReadSection(NodeName,ResultList);
end;

function GetINIValue(NodeName:string;KeyName:string;Default:String=''): string;
begin
  Result := IniFile.ReadString(NodeName,    KeyName,   Default);
end;
procedure SetINIValue(NodeName:string;KeyName:string;Value:string);
begin
  IniFile.WriteString(NodeName,KeyName,Value);
end;
procedure DeleteAll(NodeName:string);
 var
  i: Integer;
  FilesList:TStringList;
begin
  FilesList := TStringList.Create;
  try
    IniFile.ReadSection('File',FilesList);
    for i := 0 to FilesList.Count -1 do
      IniFile.DeleteKey('File',FilesList.Strings[i]);
  finally
    FilesList.Free;
  end;
end;
initialization
  INIFilename := 'E:\EncryptFile\EncryptMenu\' + 'EncrypFile.INI';//ExtractFilePath(Application.ExeName)
  IniFile := TIniFile.Create(INIFilename);

finalization
  IniFile.Free;
end.