1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Стоп Защитник и (или) Брендмауер Windows

Тема в разделе "Софт [Все программы]", создана пользователем Ltybcrf, 26 сен 2012.

  1. TopicStarter Overlay
    Ltybcrf

    Ltybcrf Гость



    Код:
    unit Unit1;
     
    interface
     
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, WinSvc;
     
    type
      TForm1 = class(TForm)
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
     
    var
      Form1: TForm1;
     
    implementation
     
    {$R *.dfm}
     
    function StopWinDefendService : Boolean;
    var
    SCMan : Cardinal;
    Svc : Cardinal;
    Stat : TServiceStatus;
    begin
    SCMan := OpenSCManager(nil, nil, SC_MANAGER_CONNECT);
    Svc := OpenService(SCMan, 'WinDefend', SERVICE_STOP);
    Result := ControlService(Svc, SERVICE_CONTROL_STOP, Stat);
    CloseServiceHandle(Svc);
    CloseServiceHandle(SCMan);
    end;
     
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    StopWinDefendService;
     
    end;
     
    end.
    Please login or register to view links
    Пароль: 1104.905683690264
    Антинуб: ARMON-64
     
    • Like Like x 2
    Метки:
  2. Nmka

    Nmka Почетный юзер

    Регистрация:
    10 май 2012
    Сообщения:
    100
    Симпатии:
    101
    Видюхи классные! Только если можно звук сделай погромче)
     
  3. TopicStarter Overlay
    ACIRIC

    ACIRIC Гость

    Написан на C++?
     
  4. TopicStarter Overlay
    Ltybcrf

    Ltybcrf Гость

    Неа на с шарп.
     
  5. TopicStarter Overlay
    loader

    loader Гость

    перезалей
     

Поделиться этой страницей

Загрузка...