程序代码如下：

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

type

  TfrmMain = class(TForm)

    btnConnect: TButton;

    btnDisconnect: TButton;

    edtLocal: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    edtRemote: TEdit;

    procedure btnConnectClick(Sender: TObject);

    procedure btnDisconnectClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  frmMain: TfrmMain;

implementation

{$R *.dfm}

 

procedure TfrmMain.btnConnectClick(Sender: TObject);

var

    NetShare :NETRESOURCE;

begin

    NetShare.dwType := RESOURCETYPE_DISK;

    NetShare.lpLocalName := PAnsiChar(edtLocal.Text);

    NetShare.lpRemoteName := PAnsiChar(edtRemote.Text);

    NetShare.lpProvider :='';

    WNetAddConnection2(NetShare, '', '', CONNECT_UPDATE_PROFILE);

end;

 

procedure TfrmMain.btnDisconnectClick(Sender: TObject);

var

    strLocalName : PChar;

begin

    strLocalName:=PAnsiChar(edtLocal.Text);

    WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,False);

end;

 

end.

保存文件，然后按F9键运行程序，程序运行的初始画面如图6-18所示。

在“本地虚拟盘”对应的文本框中输入一个有效的本地虚拟盘，在“网络共享目录”对应的文本框中输入一个有效的网络共享目录，如图6-19所示。

               

图6-18  程序运行的初始画面                    图6-19  输入参数

单击“连接”按钮可以映射虚拟盘，单击“断开”按钮可以断开虚拟盘。

上一页  [1] [2]