commini.pas

学校班级教学管理系统 DELPHI7下的

unit CommINI;

interface
uses
  IniFiles, Dialogs;
  procedure WriteIni(FileName,Main,Key,Values :String);StdCall;//写Ini文件
  function ReadIni(FileName,Main,Key :String):String;StdCall;  //读Ini文件
  procedure DeleteIni(FileName,Main,Key:String);StdCall;       //删除Ini文件
implementation


procedure WriteIni(FileName,Main,Key,Values :String);
var
  WIni :TINIFile;
begin
  WIni :=TINIFile.Create(FileName);
  try
    WIni.WriteString(Main,Key,Values);
  except
    ShowMessage('写入配置文件错误!');
  end;
  WIni.Destroy;
end;

function ReadIni(FileName,Main,Key :String):String;
var
  RIni :TINIFile;
begin
  RIni :=TINIFile.Create(FileName);
  try
    Result :=RIni.ReadString(Main,Key,'');
  except
    ShowMessage('读取配置文件出错!');
  end;
  RIni.Destroy;
end;

procedure DeleteIni(FileName,Main,Key:String);
var
  DIni :TINIFile;
begin
  DIni :=TINIFile.Create(FileName);
  try
    DIni.DeleteKey(Main,Key);
  except
    ShowMessage('删除配置文件错误!');
  end;
  DIni.Destroy;
end;

end.