procedure TForm1.Button1Click(Sender: TObject);
var r:tregistry;
    str1,str2:string;
    i:integer;
begin
r:=r.Create;
r.RootKey:=HKEY_LOCAL_MACHINE;
str1:='SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{153423AE-453543C6-9A7A-F72D194275B1}\EnableDHCP';
r.OpenKey(str1,false);
i:=r.Readinteger('EnableDHCP');
if i=1 then edit1.Text:='1';
if i=0 then edit1.Text:='0';
r.CloseKey;
r.Destroy;
end;思路:根据注册表项EnableDHCP判断网卡状态(动态或静态),运行时出错,请高手指点!
是否有更简单的方法能判断出动态或静态呢?