1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Отключить Сетевой Адаптер

Тема в разделе "Delphi - программирование", создана пользователем Cambur, 4 янв 2015.

  1. Cambur

    Cambur Active Member

    Репутация:
    0
    Регистрация:
    20 июн 2010
    Сообщения:
    27
    Симпатии:
    0
    всё тупо ...работает
    Windows Xp
    Устройство ( PCI\VEN_10EC ) - можно посмотреть в свойствах адаптера
    devcon.exe - незатейливо скачивается с и-нета

    Edit1.text := ' PCI\VEN_10EC';
    Edit2.text := ' devcon.exe ';
    Edit3.text := ' devcon.exe ';

    Код:
    unit Unit1;
    
    interface
    
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls, ShellAPI;
    
    type
    TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    
    var
    Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    ShellExecute(Self.Handle, 'open',PChar(edit3.Text),PChar(' disable '+edit1.Text), nil, SW_SHOWNORMAL);
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
    ShellExecute(Self.Handle, 'open',PChar(edit3.Text),PChar(' enable '+edit1.Text), nil, SW_SHOWNORMAL);
    end;
    
    end.
     
Загрузка...

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