Dr.Web CureIt! Updater 21.01.2017 by SlimRG [Ru]

-- а) Скачивать самую новую Dr.Web CureIt! в нужную вам папку
-- б) Сразу (без скачивания)* запускать программу

* Сам .exe она скачивает с офф. сайта, НО во временную папку
** Программа может подвисать, - это нормально, просто ждите, она не зависла!
*** Самой программе НЕ нужны права администратора, а вот для запуска Dr.Web - она попросит

Код: выделить все unit Unit1; {$mode objfpc}{$H+} interface uses   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,   ComCtrls, httpsend, ShellApi, Windows; type   { TForm1 }   TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Label1: TLabel;     ProgressBar1: TProgressBar;     SaveDialog1: TSaveDialog;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { private declarations }   public     { public declarations }   end; var   Form1: TForm1;   Adr: String;   Stre: TMemoryStream; implementation {$R *.lfm} { TForm1 } function RunAsAdmin(const Handle: Hwnd; const Path, Params: string): Boolean; var   sei: TShellExecuteInfoA; begin   FillChar(sei, SizeOf(sei), 0);   sei.cbSize := SizeOf(sei);   sei.Wnd := Handle;   sei.fMask := SEE_MASK_FLAG_DDEWAIT or SEE_MASK_FLAG_NO_UI;   sei.lpVerb := 'runas';   sei.lpFile := PAnsiChar(Path);   sei.lpParameters := PAnsiChar(Params);   sei.nShow := SW_SHOWNORMAL;   Result := ShellExecuteExA(@sei); end; procedure TForm1.Button1Click(Sender: TObject); begin   application.processmessages;   Form1.Label1.Caption:='Обождите...';   if saveDialog1.Execute   then   begin   Form1.ProgressBar1.Visible:=True;   Form1.ProgressBar1.Position:=75;   Form1.Button1.Enabled:=False;   Form1.Button2.Enabled:=False;   Form1.Update;   Adr:= SaveDialog1.FileName;   Stre:=TMemoryStream.Create;   HttpGetBinary('http://download.geo.drweb.com/pub/drweb/cureit/cureit.exe',Stre);   Stre.SaveToFile(Adr);   Stre.Free;   Adr:='';   Form1.ProgressBar1.Visible:=False;   Form1.ProgressBar1.Position:=0;   Form1.Button1.Enabled:=True;   Form1.Button2.Enabled:=True;   end   else   ShowMessage('Ошибка');   Form1.Label1.Caption:='Made by SlimRG'; end; procedure TForm1.Button2Click(Sender: TObject); begin   application.processmessages;   Form1.Label1.Caption:='Загрузка...';   Form1.ProgressBar1.Visible:=True;   Form1.ProgressBar1.Position:=75;   Form1.Button1.Enabled:=False;   Form1.Button2.Enabled:=False;   Form1.Update;   Stre:=TMemoryStream.Create;   HttpGetBinary('http://download.geo.drweb.com/pub/drweb/cureit/cureit.exe',Stre);   Stre.SaveToFile(SysUtils.GetEnvironmentVariable('TMP')+'\cureit.exe');   Stre.Free;   Adr:='';   Form1.Label1.Caption:='ЗАПУСК!!!';   Form1.Update;   RunAsAdmin(Handle, (SysUtils.GetEnvironmentVariable('TMP')+'\cureit.exe'), '');   Form1.ProgressBar1.Visible:=False;   Form1.ProgressBar1.Position:=0;   Form1.Button1.Enabled:=True;   Form1.Button2.Enabled:=True;   Form1.Label1.Caption:='Made by SlimRG';   Form1.Update; end; end.