Как програмно включить\выключить сетевой адаптер

[SeRhy]

Здравствуйте,
подскажите пожалуйста как програмно включить\выключить сетевой адаптер.
Зарание спасибо

[bitSoft]

Сообщение от SeRhy

Здравствуйте,
подскажите пожалуйста как програмно включить\выключить сетевой адаптер.
Зарание спасибо

http://www.delphisources.ru/forum/showthread.php?t=122

[SeRhy]

Оно то хорошо, но где взять модуль SetupAPI.dcu

[bitSoft]

Сообщение от SeRhy

Оно то хорошо, но где взять модуль SetupAPI.dcu

Google...

http://files.codes-sources.com/fichi...f=SetupApi.pas

And from Koders
http://www.koders.com/delphi/fid4B03...s=SetupAPI.pas

[raxp]

http://www.koders.com/delphi/fid4B03...aspx?s=network
там-же и все остальные.

[W0LF]

Посоветую еще такой способ:
devcon

В WinExec или ShellExecute запускаешь "devcon enable pci\ven_10ec" для включения сетевой карты, или "devcon disable pci\ven_10ec" для отключения...
P.S.: у меня pci\ven_10ec для моей видеокарты, для вашей можно посмотреть в Диспетчере устройств, в свойствах сетевой карты... Или найти в реестре.

[SeRhy]

Скомпилировал. не находит файл windowsversion.inc. Что ето за файл?

[raxp]

...там-же на koders есть все-что в uses-ах к модулю ...скопом можно еще взять JDK, но там много лишнего (но все-же полезного)

[SeRhy]

Все нашёл. На етот раз выбивает что незарегистрированая переменная TAccessApplication1 тут:

type
  TForm1 = class(TForm)
    Button1: TButton;
    Ping1: TPing;
    Timer1: TTimer;
    AccessApplication11: TAccessApplication1;
    procedure ChangeIP(IP:string);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;