Классический форум-трекер
canvas not supported
Нас вместе: 4 079 408

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


Страницы:   Пред.  1, 2, 3 
 
RSS
Начать новую тему   Ответить на тему    Торрент-трекер NNM-Club -> Безопасность -> Разное (остальные программы по безопасности)
Автор Сообщение
SlimRG ®
Стаж: 6 лет 5 мес.
Сообщений: 212
Ratio: 4,783
Поблагодарили: 1257
100%
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 скачавших)
[NNMClub.to]_Dr.Web CureIt! Updater 21.01.2017 by SlimRG.torrent
 Торрент: Платиновая раздача  Зарегистрирован
 
Скачать


Примагнититься
 Зарегистрирован:   23 Янв 2017 06:19:54
 Размер:   2,01 MB  (
 Рейтинг:   4,9 (Голосов: 178)
 Поблагодарили:   555
 Проверка:   Оформление проверено модератором 23 Янв 2017 23:51:37
Как cкачать  ·  Как раздать  ·  Правильно оформить  ·  Поднять ратио!  
gafz
Стаж: 11 лет 6 мес.
Сообщений: 274
Ratio: 10,406
100%
ukraine.gif
Преемник не пашет, а сабж работает. Спасибо за Ваш труд, SlimRG ®!
Показать сообщения:   
Начать новую тему   Ответить на тему    Торрент-трекер NNM-Club -> Безопасность -> Разное (остальные программы по безопасности) Часовой пояс: GMT + 3
Страницы:   Пред.  1, 2, 3
Страница 3 из 3