DELPHI有没有控制设置IP地址的函数或语句 ( 积分: 23 )

人

人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #1

DELPHI有没有控制设置IP地址,网关,DNS等的函数或语句?

 

人

人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #2

DELPHI有没有控制设置IP地址,网关,DNS等的函数或语句?

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #3

net命令

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #4

shellexecute(Handle, 'Open', PChar('netsh interface ip set address 本地连接 static ' + edtIP.Text +' ' + edtMask.Text + ' ' + edtGate.Text + ' 1'),nil,nil,sw_hide);

 

人

人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #5

具体是否这样用
如果我的IP地址是 192.168.0.7
网关是:192.168.0.2
DNS 是:192.168.0.2
shellexecute(Handle, 'Open', PChar('netsh interface ip set address 本地连接 static ' + '192.168.0.7'+ ' + '255.255.255.0' + '192.168.0.2' + ' 1'),nil,nil,sw_hide);

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #6

是的（注意空格）

 

人

人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #7

出错
Undeclared identifier :"shellexecute"
要不要在uses语句里加什么才能用

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #8

uses ShellAPI;

 

人

人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #9

可以运行但IP地址没有按预定的设置改变

 

X

xianguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #10

1、检查“网络连接”中是否有"本地连接"
2、IP地址与子网掩码、网关之间有空格
shellexecute(Handle, 'Open', PChar('netsh interface ip set address 本地连接 static 192.168.0.7 255.255.255.0 192.168.0.2 1'),nil,nil,sw_hide); //本地连接应换成实际的名称
3、你可以在命令行方式运行 netsh命令试试

 

人

人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-01

• #11

接受答案了.

 

人

人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-02

• #12

正确写法:
shellexecute(Handle, 'open', PChar('netsh'),pchar('interface ip set address 本地连接 static 10.10.0.31 255.255.255.0 10.0.0.6 1'),nil,sw_show);

shellexecute(Handle, 'open', PChar('netsh'),pchar('interface ip set dns 本地连接 static 10.0.0.7 primary'),nil,sw_show);