srchini.pas

来自「《Delphi开发人员指南》配书原码」· PAS 代码 · 共 18 行

unit SrchIni;

interface

uses Registry;

var
  SrchIniFile: TRegIniFile;

implementation

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