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判断网卡状态(动态或静态),运行时出错,请高手指点!
是否有更简单的方法能判断出动态或静态呢?
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判断网卡状态(动态或静态),运行时出错,请高手指点!
是否有更简单的方法能判断出动态或静态呢?
解决方案 »
- stringgrid问题。选中了某个单元格,但是滚动条不会自动移动到那一行
- 怎样向clientdataset动态建立字段
- masm和delphi混编的高手请过来看看
- 动态创建控件
- 大虾们快来啊,菜鸟有事相求!
- 读取DBGrid 数据问题?
- [急急急]如何将在DBGrid中显示出来的内容打印出来???
- 如何在服务中启动一个可执行程序?
- 真诚拜师,学习C/S结构程序设计方式.
- 一个基于FORM的程序,如何在某个Form里实现MDI
- 初学者菜鸟问题
- 哪位大侠帮我解释一下update users set PASSWORD=:PASSWORD where USERID=:USERID中=后面的值从哪里获得??
如果启动了可能就是动态的
这个选项应该指服务器端吧,若是自动获取IP,我想应该是指客户机的设置吧。
有其它的建议吗?