delphi 如何断开网络和连接网络

来源：百度知道 编辑：UC知道 时间：2024/05/22 05:00:29
delphi 如何断开网络和连接网络

就想防火墙一样 点断开 就断开了 再点开启有开启了

求代码

下载一个MS的程序 DevCon 放到程序目录下，然后用delphi执行 cmd -c devcon disable *DEV_8136* 就可以关闭 型号为8136的网卡

可不可以用delphi通过启用与禁用网络连接来实现。

宽带连接吗？局域网连接？不行就禁用网卡再打开

unit uNetworkConnection;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, ActiveX,
ComObj, Contnrs, TntWideStrUtils;
const CLSID_ConnectionManager: TGUID =
'{BA126AD1-2166-11D1-B1D0-00805FC1270E}'; IID_INetConnectionManager:
TGUID = '{C08956A2-1CD3-11D1-B1C5-00805FC1270E}';
type NETCONMGR_ENUM_FLAGS = (NCME_DEFAULT); NETCON_STATUS = (
NCS_DISCONNECTED, NCS_CONNECTING, NCS_CONNECTED, NCS_DISCONNECTING,
NCS_HARDWARE_NOT_PRESENT, NCS_HARDWARE_DISABLED,
NCS_HARDWARE_MALFUNCTION, NCS_MEDIA_DISCONNECTED, NCS_AUTHENTICATING,
NCS_AUTHENTICATION_SUCCEEDED, NCS_AUTHENTICATION_FAILED,
NCS_INVALID_ADDRESS, NCS_CREDENTIALS_REQUIRED ); NETCON_MEDIATYPE = (
NCM_NONE, NCM_DIRECT, NCM_ISDN, NCM_LAN, NCM_PH