手机看片日韩国产一区二区,精品国产免费第一区二区三区日韩,免费a级猛片在线观看

　　本實(shí)例演示如何映射和斷開網(wǎng)絡(luò)虛擬盤。

　　向窗體上添加兩個(gè)TLabel組件、兩個(gè)TEdit組件和兩個(gè)TButton組件，設(shè)計(jì)完成的主界面如圖1所示。

　　圖1 主界面

　　首先添加“連接”按鈕的響應(yīng)代碼，在其中調(diào)用WNetAddConnection2函數(shù)，根據(jù)用戶輸入的本地虛擬盤和網(wǎng)絡(luò)共享目錄來映射虛擬盤，響應(yīng)代碼如下：

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;

　　然后添加“斷開”按鈕的響應(yīng)代碼，在其中調(diào)用WNetCancelConnection2函數(shù)斷開用戶輸入的本地虛擬盤，響應(yīng)代碼如下：

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;

　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鍵運(yùn)行程序，程序運(yùn)行的初始畫面如圖2所示。

　　在“本地虛擬盤”對(duì)應(yīng)的文本框中輸入一個(gè)有效的本地虛擬盤，在“網(wǎng)絡(luò)共享目錄”對(duì)應(yīng)的文本框中輸入一個(gè)有效的網(wǎng)絡(luò)共享目錄，如圖3所示。

圖2 程序運(yùn)行的初始畫面

圖3 輸入?yún)?shù)

單擊“連接”按鈕可以映射虛擬盤，單擊“斷開”按鈕可以斷開虛擬盤。

------分隔線----------------------------

?分享到??

精彩推薦

看看啦

用Delphi實(shí)現(xiàn)虛擬盤映射