熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> Delphi編程 >> 正文

用Delphi實現虛擬盤映射

2013-11-23 17:29:48  來源: 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
  • 上一篇文章:

  • 下一篇文章:
  • 推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.