“

”

　　然后添加 断开 按钮的响应代码，在其中调用

WNetCancelConnection2 函数断开

用户输入的本地虚拟盘，响应代码如下：

procedure TfrmMain.btnDisconnectClick(Sender: TObject);

　

var

　　

strLocalName : PChar;

　

begin

　　

strLocalName:=PAnsiChar(edtLocal.Text);

　 　

WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,False)

;

end;

　　程序代码如下：

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

　

TfrmMain = class(TForm)

　

btnConnect: TButton;