Delphiで悪いが

reg = TRegIniFile.Create('Software\ORENO\APPLI');
reg.WriteInteger('Section', 'Ident', Value);
Value := reg.ReadInteger('Section', 'Ident', Default);
reg.Free;

ini = TIniFile.Create( ExtractPath(Application.Exename) + 'oreno_data.ini' );
ini.WriteInteger('Section', 'Ident', Value);
Value := ini.ReadInteger('Section', 'Ident', Default);
ini.Free;

工数ねぇ