unit uGlobal;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Forms, TypInfo, IniFiles;typeTConfigBase = class(TPersistent)privateFFileName: string;procedure Load(AIniFile: TIniFile); overload;procedure Save(AIniFile: TIniFile); overload;protectedfunction GetSectionName: string; virtual;procedure LoadProperty(PropInfo: PPropInfo; const Section: string; IniFile: TIniFile); virtual;procedure SaveProperty(PropInfo: PPropInfo; const Section: string; IniFile: TIniFile); virtual;publicprocedure Load(AFileName: string); overload;procedure Save(AFileName: string); overload;end;TLiveUpdate = class;TApp = class(TConfigBase)privateFAppName: string;FVersion: string;FShowMsg: Boolean;FProductID: Integer;FWindowState: TWindowState;FLiveUpdate: TLiveUpdate;protectedfunction GetSectionName: string; override;publicconstructor Create;destructor Destroy; override;publishedproperty AppName: string read FAppName write FAppName;property Version: string read FVersion write FVersion;property ShowMsg: Boolean read FShowMsg write FShowMsg;property ProductID: Integer read FProductID write FProductID;property WindowState: TWindowState read FWindowState write FWindowState;property LiveUpdate: TLiveUpdate read FLiveUpdate write FLiveUpdate;end;TLiveUpdate = class(TConfigBase)privateFAvailabled: Boolean;FAutoUpdate: Boolean;FUpdatePeriod: Integer;FLastUpdateDate: TDateTime;protectedprocedure LoadProperty(PropInfo: PPropInfo; const Section: string; IniFile: TIniFile); override;procedure SaveProperty(PropInfo: PPropInfo; const Section: string; IniFile: TIniFile); override;publicconstructor Create;publishedproperty Availabled: Boolean read FAvailabled write FAvailabled;property AutoUpdate: Boolean read FAutoUpdate write FAutoUpdate;property UpdatePeriod: Integer read FUpdatePeriod write FUpdatePeriod;property LastUpdateDate: TDateTime read FLastUpdateDate write FLastUpdateDate;end;function App: TApp;implementationvarFApp: TApp;function App: TApp;
beginif FApp = nil thenFApp := TApp.Create;Result := FApp;
end;{ TConfigBase }function TConfigBase.GetSectionName: string;
beginResult := ClassName;if Result[1] = 'T' thenResult := Copy(Result, 2, Length(Result) - 1);
end;procedure TConfigBase.Load(AFileName: string);
varIniFile: TIniFile;
beginif not FileExists(AFileName) then Exit;IniFile := TIniFile.Create(AFileName);tryLoad(IniFile);finallyIniFile.Free;end;
end;procedure TConfigBase.Load(AIniFile: TIniFile);
varI, Count: Integer;PropInfo: PPropInfo;PropList: PPropList;Section: string;
beginCount := GetTypeData(ClassInfo)^.PropCount;if Count = 0 then Exit;GetMem(PropList, Count * SizeOf(Pointer));trySection := GetSectionName;GetPropInfos(ClassInfo, PropList);for I := 0 to Count - 1 dobeginPropInfo := PropList^[I];if (PropInfo <> nil) and IsStoredProp(self, PropInfo) and (PropInfo^.SetProc <> nil) thenLoadProperty(PropInfo, Section, AIniFile);end;finallyFreeMem(PropList);end;
end;procedure TConfigBase.LoadProperty(PropInfo: PPropInfo; const Section: string;IniFile: TIniFile);
varPropType: PTypeInfo;Obj: TObject;
beginPropType := PropInfo^.PropType^;if (PropType^.Kind <> tkClass) and (not IniFile.ValueExists(Section, string(PropInfo^.Name))) then Exit;case PropType^.Kind oftkClass:beginObj := GetObjectProp(self, PropInfo);if Assigned(Obj) and (Obj is TConfigBase) thenTConfigBase(Obj).Load(IniFile);end;tkInteger, tkChar, tkWChar:SetOrdProp(Self, PropInfo, IniFile.ReadInteger(Section, string(PropInfo.Name), PropInfo^.Default));tkString, tkLString, tkUstring, tkWString:SetStrProp(Self, PropInfo, IniFile.ReadString(Section, string(PropInfo.Name), ''));tkEnumeration:SetEnumProp(Self, PropInfo, IniFile.ReadString(Section, string(PropInfo.Name), ''));tkSet:SetSetProp(Self, PropInfo, IniFile.ReadString(Section, string(PropInfo.Name), ''));tkFloat:SetFloatProp(Self, PropInfo, IniFile.ReadFloat(Section, string(PropInfo^.Name), 0));end;
end;procedure TConfigBase.Save(AFileName: string);
varIniFile: TIniFile;
beginif AFileName = '' then Exit;IniFile := TIniFile.Create(AFileName);trytrySave(IniFile);except on E: Exception doOutputDebugString(PChar(Format('Exceptoin: save to file %s fail, err: %s', [AFileName, E.Message])));end;finallyIniFile.Free;end;
end;procedure TConfigBase.Save(AIniFile: TIniFile);
varI, Count: Integer;PropInfo: PPropInfo;PropList: PPropList;Section: string;
beginSection := GetSectionName;Count := GetTypeData(ClassInfo)^.PropCount;if Count > 0 thenbeginGetMem(PropList, Count * SizeOf(Pointer));tryGetPropInfos(ClassInfo, PropList);for I := 0 to Count - 1 dobeginPropInfo := PropList^[I];if (PropInfo <> nil) and IsStoredProp(self, PropInfo) and (PropInfo^.GetProc <> nil) thenSaveProperty(PropInfo, Section, AIniFile);end;finallyFreeMem(PropList);end;end;
end;procedure TConfigBase.SaveProperty(PropInfo: PPropInfo; const Section: string;IniFile: TIniFile);
varPropType: PTypeInfo;Obj: TObject;
constFormat_d = '%d';
beginPropType := PropInfo^.PropType^;case PropType^.Kind oftkClass:beginObj := GetObjectProp(self, PropInfo);if Assigned(Obj) and (Obj is TConfigBase) thenTConfigBase(Obj).Save(IniFile);end;tkInteger, tkChar, tkWChar:IniFile.WriteInteger(Section, string(PropInfo^.Name), GetOrdProp(Self, PropInfo));tkString, tkLString, tkUstring, tkWString:IniFile.WriteString(Section, string(PropInfo^.Name), GetWideStrProp(Self, PropInfo));tkEnumeration:IniFile.WriteString(Section, string(PropInfo^.Name), GetEnumName(PropType, GetOrdProp(Self, PropInfo)));tkSet:IniFile.WriteString(Section, string(PropInfo^.Name), GetSetProp(Self, PropInfo));tkFloat:IniFile.WriteFloat(Section, string(PropInfo^.Name), GetFloatProp(Self, PropInfo));end;
end;{ TApp }constructor TApp.Create;
beginFFileName := ChangeFileExt(ParamStr(0), '.ini');FWindowState := wsNormal;FLiveUpdate := TLiveUpdate.Create;Load(FFileName);
end;destructor TApp.Destroy;
beginSave(FFileName);inherited Destroy;
end;function TApp.GetSectionName: string;
beginResult := 'System';
end;{ TLiveUpdate }constructor TLiveUpdate.Create;
beginFAvailabled := True;FAutoUpdate := True;FUpdatePeriod := 7;FLastUpdateDate := Now;
end;procedure TLiveUpdate.LoadProperty(PropInfo: PPropInfo; const Section: string;IniFile: TIniFile);
beginif PropInfo^.Name = 'LastUpdateDate' thenFLastUpdateDate := IniFile.ReadDateTime(Section, string(PropInfo^.Name), Now)elseinherited;
end;procedure TLiveUpdate.SaveProperty(PropInfo: PPropInfo; const Section: string;IniFile: TIniFile);
beginif PropInfo^.Name = 'LastUpdateDate' thenIniFile.WriteDateTime(Section, string(PropInfo^.Name), GetFloatProp(Self, PropInfo))elseinherited;
end;end.

procedure TForm1.FormCreate(Sender: TObject);
beginApp.AppName := 'RttInfo';App.Version := GetFileVersion(ParamStr(0));
end;procedure TForm1.FormDestroy(Sender: TObject);
beginApp.Free;
end;