用Delphi实现WINDOWS中本地连接的启用和禁用

时间:2010-01-30 08:19:41  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:sp;  New Develop   : 2004-4-8*   Description :*       这是一个禁用、启用网卡的例子,实际上通过shell可以控制整个界面,参考的网上资料*       需要先引用 Microsoft Shell Controls And Automation(Shell32.dll)对应delphi声明 Shell32_TLB.pas*   Exp...
  正文:(*******
*   CopyRight (c) By 姚佩云 2004
*   All Right Reserved
*   Email : i_rock_1001@163.com www.jynx.com.cn
*   Date    :
*       New Develop   : 2004-4-8
*   Description :
*       这是一个禁用、启用网卡的例子,实际上通过shell可以控制整个界面,参考的网上资料
*       需要先引用 Microsoft Shell Controls And Automation(Shell32.dll)对应Delphi声明 Shell32_TLB.pas
*   Export  :
*       GetNetLinkList
*       ExcNetLinkMenu
*   首发大富翁(www.delphibbs.com)blog,转载请保留
********)

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Shell32_TLB, StdCtrls, Menus;

type
TForm1 = class(TForm)
Button1: TButton;
ComboBox1: TComboBox;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.dfm}


{++

Routine Description:

    取本机所有网络链接列表

Arguments:

    OUT list - 取得的网络链接列表

Return Value:

    BOOLEAN - 执行是否成功

--}


function GetNetLinkList(var list:TStrings):BOOLEAN;
var
Shell:TShell;
ControlPanel:Folder;
Item:FolderItem;
i:integer;
begin
  
  Result:= FALSE;
  if list = nil then
  exit;
  
  Shell:=TShell.Create(Application);
  if Shell = nil then
  exit;
  
  ControlPanel:=Shell.NameSpace(ssfCONTROLS);
  for i:=0 to ControlPanel.items.Count -1 do
  begin
    Item:=ControlPanel.items.Item(i);
    if (Item.Name = '网络和拨号连接') then  //如果是英文的windows则Name也需是英文的
        begin
      ControlPanel:=Folder(Item.GetFolder);
      break;
    end;
  end;
  
  for i:=0 to ControlPanel.items.count-1 do
  begin
    Item:= ControlPanel.items.Item(i);
    List.Add(Item.Name);
  end;
  FreeAndNil(shell);
  
  Result:= TRUE;
end;


{++

Routine Description:

    执行 本地网络链接 的菜单命令(包括禁用、启用)

Arguments:

    IN AdapterName - 网络链接名称
    IN MenuName - 菜单名称

Return Value:

    BOOLEAN - 执行是否成功

--}


function ExcNetLinkMenu(const AdapterName,MenuName:String):BOOLEAN;
var
Shell:TShell;
ControlPanel:Folder;
Item:FolderItem;
i,j:integer;
Verb:FolderItemVerb;
begin
  
  Result:= FALSE;
  
  Shell:=TShell.Create(Application);
  if Shell = nil then
  exit;
  
  ControlPanel:=Shell.NameSpace(ssfCONTROLS);
  for i:=0 to ControlPanel.items.Count -1 do
用Delphi实现WINDOWS中本地连接的启用和禁用》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12614.html


关键字:

关于《用Delphi实现WINDOWS中本地连接的启用和禁用》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td