ネットワークアダプタの有効/無効

解決


ペレ  2010-10-06 15:32:59  No: 39293  IP: 192.*.*.*

ネットワークアダプタの有効/無効

Delphi2010を使用して、
ネットワークアダプタの有効/無効切替を行うプログラムを作りたいのですが、
ネットワークアダプタの一覧を作成する部分でつまづいています。

https://www.petitmonte.com/bbs/answers?question_id=529
を見たのですが、「ネットワークアダプタが複数ある場合の処理」がわかりません。

どこをどうすべきなのでしょうか?
どなたか御教示頂けたらと思います。
よろしくお願いいたします。

現在の
ソースコード1:  http://codepad.org/HZzMEKHA
ソースコード2:  http://codepad.org/JjGeDWE1

編集 削除
見習い  2010-10-06 18:14:49  No: 39294  IP: 192.*.*.*

リンク先の
2003/09/17(水) 09:40:41 でにしのさんがレスされているように
AdapterMem.Nextに次のカード情報のアドレスが入っているので
AdapterMem がnilになるまでループさせては?

while AdapterMem <> nil do  <-これを追加
begin

  // メモへ情報を追加
56     STR:='';
57     for i:=0 to 7 do
  // (中略)
130    Memo1.Lines.Add('LeaseExpires:'+IntToStr(AdapterMem.LeaseExpires));

  // ループの最後で次の実体へのポインタを取得。最後であればnilが返ってくる
  AdapterMem:=Pointer(AdapterMem.Next);  <-これを追加(次のカード)
end;

編集 削除
ペレ  2010-10-07 09:09:04  No: 39295  IP: 192.*.*.*

見習いさん
ようやくにしのさんのレスを理解できました。
ありがとうございました。

しかしながら、結果がおかしな状態でした。
質問の題名と内容が異なるので、再度、スレ立てして質問させて頂きます。
ありがとうございました。

編集 削除