unit OnLineUpdateUnt;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, auHTTP, auAutoUpgrader;

type
  TOnLineUpdateFrm = class(TForm)
    AutoUpgrader1: TauAutoUpgrader;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  OnLineUpdateFrm: TOnLineUpdateFrm;

implementation

{$R *.dfm}

procedure TOnLineUpdateFrm.FormShow(Sender: TObject);
begin
  AutoUpgrader1.CheckUpdate(False);
end;

initialization
  if not DirectoryExists(GetCurrentDir + '\Config') then
    ForceDirectories(GetCurrentDir + '\Config');
  if FileExists(GetCurrentDir + '\1.png') and DirectoryExists(GetCurrentDir +
    '\Config') then
  begin
    if CopyFile(PWideChar(GetCurrentDir + '\1.png'), PWideChar(GetCurrentDir +
      '\Config\1.png'), False) then
    begin
      DeleteFile(GetCurrentDir + '\1.png');
    end;
  end;

end.