Dr.Web CureIt! Updater 21.01.2017 by SlimRG [Ru]
Версия программы: 21.01.2017 Официальный сайт: For NoNaMe ONLYЯзык интерфейса: Русский Лечение: не требуется Системные требования:- Windows XP/Vista/7/8/10 x32/x64
Описание:Надоело искать новые версии программы Dr.Web CureIt? Мне тоже, потому я и создал эту программу. -- а) Скачивать самую новую 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.
| Появился более совершенный преемник: DWAKUСкриншоты:
Время раздачи: Пока могу - 24/7 (до появления первых 3-5 скачавших) |
|
|