unit1.pas

《Delphi 7应用编程150例》源码（全）

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);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.btnConnectClick(Sender: TObject);
var
    NetR :NETRESOURCE;
    ErrInfo : Longint;
begin
  NetR.dwType := RESOURCETYPE_DISK;
  NetR.lpLocalName := PAnsiChar(edtLocal.Text);{本地虚拟盘}
  NetR.lpRemoteName := PAnsiChar(edtRemote.Text);{网络共享目录}
  NetR.lpProvider :='';
  ErrInfo := WNetAddConnection2(NetR, '', '', CONNECT_UPDATE_PROFILE);
  if ErrInfo = NO_ERROR then
  begin
    messagebox(0,'Net connection successful!','',0);
    edtLocal.Enabled:=false;
    edtRemote.Enabled:=false;
    btnConnect.Enabled:=false;
    btnDisconnect.Enabled:=true;
  end
  else
    messagebox(0,'ERROR: ','',0);
end;
procedure TfrmMain.btnDisconnectClick(Sender: TObject);
var
    ErrInfo : Longint;
    strLocalName : PChar;
begin
  strLocalName:=PAnsiChar(edtLocal.Text);
  ErrInfo:=WNetCancelConnection2(strLocalName,CONNECT_UPDATE_PROFILE,False);
  if ErrInfo = NO_ERROR then
  begin
    messagebox(0,'Net disconnection successful!','',0);
    edtLocal.Enabled:=true;
    edtRemote.Enabled:=true;
    btnConnect.Enabled:=true;
    btnDisconnect.Enabled:=false;
  end
  else
    messagebox(0,'ERROR','',0);
end;


procedure TfrmMain.FormCreate(Sender: TObject);
begin
    edtLocal.Enabled:=true;
    edtRemote.Enabled:=true;
    btnConnect.Enabled:=true;
    btnDisconnect.Enabled:=false;
end;

end.