用Delphi實現虛擬盤映射

本實例演示如何映射和斷開網絡虛擬盤
　　
　　向窗體上添加兩個TLabel組件兩個TEdit組件和兩個TButton組件設計完成的主界面如圖所示
　　 　
　　 圖 主界面
　　
　　首先添加連接按鈕的響應代碼在其中調用WNetAddConnection函數根據用戶輸入的本地虛擬盤和網絡共享目錄來映射虛擬盤響應代碼如下
　　
　　procedure TfrmMainbtnConnectClick(Sender: TObject);
　　var
　　NetShare :NETRESOURCE;
　　begin
　　NetSharedwType := RESOURCETYPE_DISK;
　　NetSharelpLocalName := PAnsiChar(edtLocalText);
　　NetSharelpRemoteName := PAnsiChar(edtRemoteText);
　　NetSharelpProvider :=;
　　WNetAddConnection(NetShare CONNECT_UPDATE_PROFILE);
　　end;
　　
　　然後添加斷開按鈕的響應代碼在其中調用WNetCancelConnection函數斷開用戶輸入的本地虛擬盤響應代碼如下
　　
　　procedure TfrmMainbtnDisconnectClick(Sender: TObject);
　　var
　　strLocalName : PChar;
　　begin
　　strLocalName:=PAnsiChar(edtLocalText);
　　WNetCancelConnection(strLocalNameCONNECT_UPDATE_PROFILEFalse);
　　end;
　　
　　程序代碼如下
　　
　　unit Unit;
　　
　　interface
　　
　　uses
　　
　　Windows Messages SysUtils Variants Classes Graphics Controls Forms
　　
　　Dialogs StdCtrls;
　　
　　type
　　
　　TfrmMain = class(TForm)
　　btnConnect: TButton;
　　btnDisconnect: TButton;
　　edtLocal: TEdit;
　　Label: TLabel;
　　Label: 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 TfrmMainbtnConnectClick(Sender: TObject);
　　
　　var
　　NetShare :NETRESOURCE;
　　begin
　　NetSharedwType := RESOURCETYPE_DISK;
　　NetSharelpLocalName := PAnsiChar(edtLocalText);
　　NetSharelpRemoteName := PAnsiChar(edtRemoteText);
　　NetSharelpProvider :=;
　　WNetAddConnection(NetShare CONNECT_UPDATE_PROFILE);
　　end;
　　
　　procedure TfrmMainbtnDisconnectClick(Sender: TObject);
　　
　　var
　　strLocalName : PChar;
　　begin
　　strLocalName:=PAnsiChar(edtLocalText);
　　WNetCancelConnection(strLocalNameCONNECT_UPDATE_PROFILEFalse);
　　end;
　　
　　end
　　
　　保存文件然後按F鍵運行程序程序運行的初始畫面如圖所示
　　
　　在本地虛擬盤對應的文本框中輸入一個有效的本地虛擬盤在網絡共享目錄對應的文本框中輸入一個有效的網絡共享目錄如圖所示
　　 　
　　 圖 程序運行的初始畫面
　　
　　 圖 輸入參數
　　
　　單擊連接按鈕可以映射虛擬盤單擊斷開按鈕可以斷開虛擬盤
From:http://tw.wingwit.com/Article/program/Delphi/201311/24685.html