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

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

  1. Cambur

    Cambur Active Member

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

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

    Код (Text):
    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.
     
Загрузка...

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