{**************************
RSS OnLoad script Ver1.0 by snowfox
**************************}
var
  inifn:TIniFile;
  i:integer;
  tmr:TTimer;
  
procedure tmrTimer(Sender: TObject);
begin
  RefreshRSS;
end;

begin
  try
    RefreshRSS;
    tmr:=TTimer.create(self);
    inifn:=TIniFile.create(SkinFileName);
    with inifn do
    try
      i:=ReadInteger('system','RSSRefreshInterval',60);
      if i>0 then
      begin
        tmr.Interval:=i*60000;
        tmr.OnTimer:=@tmrTimer;
        tmr.Enabled:=true;
      end;
    finally
      inifn.free;
    end;
    except
  
  end;
end.