Loading.pas

unit Loading;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, sLabel,
  Vcl.Imaging.GIFImg, Vcl.ExtCtrls, acPNG, Vcl.ComCtrls;

type
  TFormLoading = class(TForm)
    sLabelFX1: TsLabelFX;
    ImageDialing: TImage;
    LabelState: TLabel;
    LabelVer: TLabel;
    ProgressBar: TProgressBar;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
  private
    UpdateLog:TStringList;          //Ëîã îáíîâëåíèÿ
    procedure ULog(Value:string);
  public
    class procedure SplashShow;
    class procedure SplashClose;
    procedure UpdateApp;
    procedure RunApp;
    procedure UpdateLoading(UpdateState:Integer);
  end;

var
  FormLoading: TFormLoading;
  aLink:string;
  procedure SetLoadState(str:string);

implementation
 uses Main, Main.CommonFunc;

{$R *.dfm}


procedure TFormLoading.ULog(Value:string);
begin
 UpdateLog.Insert(0, DateTimeToStr(Now)+': '+Value+' with _> "'+SysErrorMessage(GetLastError)+'"');
 if not DirectoryExists(ExtractFilePath(Application.ExeName)+'Logs') then CreateDir(ExtractFilePath(Application.ExeName)+'Logs');
 if DirectoryExists(ExtractFilePath(Application.ExeName)+'Logs') then
  begin
   try
    UpdateLog.SaveToFile(ExtractFilePath(Application.ExeName)+'Logs\'+LogName);
   except

   end;
  end;
end;

procedure TFormLoading.UpdateLoading(UpdateState:Integer);
begin
 if UpdateState > 0 then
  begin
   ProgressBar.Position:=UpdateState;
   ProgressBar.State:=pbsNormal;
   SetLoadState('Çàãðóçêà îáíîâëåíèé...');
  end
 else
  begin
   ProgressBar.Position:=1;
   ProgressBar.State:=pbsError;
   SetLoadState('Íåò ñîåäèíåíèÿ');
  end
end;

procedure TFormLoading.RunApp;
begin
 WinExec(PAnsiChar(AnsiString(ExtractFilePath(Application.ExeName)+InternalExe)), SW_NORMAL);
end;

class procedure TFormLoading.SplashClose;
begin
 if Assigned(FormLoading) then FormLoading.Close;
end;

class procedure TFormLoading.SplashShow;
begin
 FormLoading:=TFormLoading.Create(nil);
 FormLoading.Repaint;
 FormLoading.Show;
 Application.ProcessMessages;
 SetLoadState('Çàïóñê...');
end;

procedure TFormLoading.UpdateApp;
var TryInc:Integer;
begin
 LabelVer.Caption:='New';
 SetLoadState('Çàãðóçêà îáíîâëåíèé...');
 ULog('Íà÷àòî îáíîâëåíèå');
 ProgressBar.Show;
 Application.ProcessMessages;
 aLink:='';
 try
  aLink:=ParamStr(1);
 except
  begin
   aLink:='';
   ULog('except aLink:=ParamStr(1)');
  end;
 end;
 if aLink = '' then
  begin
   ULog('aLink = "", Exit');
   MessageBox(Application.Handle, 'Â ïàðàìåòðàõ çàïóñêà íå óêàçàíà ññûëêà íà ôàéë îáíîâëåíèé!', 'Îøèáêà', MB_ICONERROR or MB_OK);
   Exit;
  end;

 StopUpdate:=False;
 TryInc:=1;
 while (not Application.Terminated) and (not StopUpdate) and (TryInc < 10) do
  begin
   SetLoadState('Çàãðóçêà. Ïîïûòêà ¹'+IntToStr(TryInc));
   if FileExists(UpdateFile) then
    begin
     ULog('DeleteFile(UpdateFile) = '+IntToStr(Ord(DeleteFile(UpdateFile))));
    end;
   Application.ProcessMessages;
   ULog('GetInetFile(aLink, UpdateFile)');
   if GetInetFile(aLink, UpdateFile) then Break;
  end;

 Application.ProcessMessages;
 if StopUpdate then
  begin
   ULog('Îáíîâëåíèå îòìåíåíî, Exit');
   SetLoadState('Îáíîâëåíèå îòìåíåíî');
   ProgressBar.State:=pbsError;
   Application.ProcessMessages;
   Sleep(3000);
   Exit;
  end;

 if Application.Terminated then Exit;
 ULog('Çàêðûòèå êîíôëèêò. ïðîãðàìì...');
 SetLoadState('Çàêðûòèå êîíôëèêò. ïðîãðàìì...');
 WinExec(PAnsiChar(AnsiString('taskkill /f /im '+UpdateExe)), SW_HIDE);

 //Çàêðûâàåì çàïóùåííûå ïðîãðàììû AsterLine
 ULog('Çàêðûâàåì AsterLine...');
 SetLoadState('Çàêðûâàåì AsterLine...');
 SendNotifyMessage(HWND_BROADCAST, WM_MSGCLOSE, 0, 0);
 //Ïîäîæä¸ì ïîêà çàâåðøàòñÿ ðàáî÷èå ïðîãðàììû AsterLine.exe
 Sleep(3000);
 //Óáèâàåì âðó÷íóþ, åñëè ÷òî
 ULog('taskkill /f /im '+InternalExe);
 WinExec(PAnsiChar(AnsiString('taskkill /f /im '+InternalExe)), SW_HIDE);
 Sleep(2000);

 //Óäàëÿåì ðàáî÷èé ôàéë (òîò, êîòîðûé çàìåíÿåì)
 ULog('Îáíîâëåíèå ôàéëîâ... 1/3 DeleteFile(ExtractFilePath(Application.ExeName)+InternalExe)');
 SetLoadState('Îáíîâëåíèå ôàéëîâ... 1/3');
 if FileExists(ExtractFilePath(Application.ExeName)+InternalExe) then
  while not DeleteFile(ExtractFilePath(Application.ExeName)+InternalExe) do
   begin
    case MessageBox(Application.Handle, PChar('Íå ñìîã óäàëèòü ôàéë "'#13#10+ExtractFilePath(Application.ExeName)+InternalExe+'"'#13#10'Ïîâòîðèòü ïîïûòêó?'), PWideChar(AppDesc+' - Âíèìàíèå'), MB_ICONWARNING or MB_YESNOCANCEL) of
     ID_CANCEL:Exit;
     ID_NO:Break;
    end;
   end;
 ULog('Îáíîâëåíèå ôàéëîâ... 2/3 if FileExists(ExtractFilePath(Application.ExeName)+InternalExe) then Exit');
 SetLoadState('Îáíîâëåíèå ôàéëîâ... 2/3');
 if FileExists(ExtractFilePath(Application.ExeName)+InternalExe) then
  begin
   MessageBox(Application.Handle, 'Ïðîèçîøëà îøèáêà ïðè îáíîâëåíèè ïðîãðàììû.'+#13#10+'Íå ñìîã óäàëèòü ôàéë.', PWideChar(AppDesc+' - Âíèìàíèå'), MB_ICONWARNING or MB_OK);
   Exit;
  end;
 ULog('Îáíîâëåíèå ôàéëîâ... 3/3 CopyFile(PWideChar(UpdateFile), PWideChar(ExtractFilePath(Application.ExeName)+InternalExe), True)');
 SetLoadState('Îáíîâëåíèå ôàéëîâ... 3/3');
 if not CopyFile(PWideChar(UpdateFile), PWideChar(ExtractFilePath(Application.ExeName)+InternalExe), True) then
  begin
   MessageBox(Application.Handle, 'Ïðîèçîøëà îøèáêà ïðè îáíîâëåíèè ïðîãðàììû.'+#13#10+'Íå ñìîã ñêîïèðîâàòü ôàéë.', PWideChar(AppDesc+' - Âíèìàíèå'), MB_ICONWARNING or MB_OK);
   Exit;
  end;
 //Çàïóñêàåì íîâóþ âåðñèþ
 ULog('Ñîçäàíèå ÿðëûêà '+ExtractFilePath(Application.ExeName)+InternalExe);
 SetLoadState('Ñîçäàíèå ÿðëûêà');
 CreateShortcut(ExtractFilePath(Application.ExeName)+InternalExe);
end;

procedure SetLoadState(str:string);
begin
 if not Assigned(FormLoading) then Exit;
 FormLoading.LabelState.Caption:=str;
 FormLoading.Update;
 FormLoading.Refresh;
end;

procedure TFormLoading.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 StopUpdate:=True;
 CanClose:=True;
end;

procedure TFormLoading.FormCreate(Sender: TObject);
begin
 UpdateLog:=TStringList.Create;
 sLabelFX1.Caption:=AppDesc;
 LabelVer.Caption:=GetAppVersionStr;
 Color:=ColorDarker(GetAeroColor);
end;

procedure TFormLoading.FormPaint(Sender: TObject);
begin
 Canvas.Pen.Color:=ColorDarker(Color, 60);
 Canvas.Rectangle(0, 0, ClientWidth, ClientHeight);
end;

procedure TFormLoading.FormShow(Sender: TObject);
begin
 SetForegroundWindow(Handle);
end;

end.