srchini.pas

《Delphi开发人员指南》配书原码

unit SrchIni;

interface

uses Registry;

var
  SrchIniFile: TRegIniFile;

implementation

initialization
  SrchIniFile := TRegIniFile.Create('\Software\DDG\DelSrch');
finalization
  SrchIniFile.Free;
  SrchIniFile := nil;
end.