试着写了一个简单的网络映射程序-CSDN博客

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Button1: TButton;
    Data_Year: TComboBox;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    NetSource: TNetResource;
    ErrInfo   :   Longint;
begin
    With NetSource DO
      begin
          dwType := RESOURCETYPE_ANY;
          lpLocalName   :=   Pchar('Z:');   //网络驱动器编号
          Case Data_year.ItemIndex Of
               0:lpRemoteName := PChar('\\111.111.111.2\xx08$');
               1:lpRemoteName := PChar('\\111.111.111.2\xx07$');
               2:lpRemoteName := PChar('\\111.111.111.2\xx06$');
               3:lpRemoteName := PChar('\\111.111.111.2\xx05$');
               4:lpRemoteName := PChar('\\111.111.111.2\xx$');
          End;
          lpProvider := '';
       WNetCancelConnection2(pchar(lpLocalName), CONNECT_UPDATE_PROFILE, True);//先断开原有的
       ErrInfo := WNetAddConnection2(NetSource,'',Pchar('user'),CONNECT_UPDATE_PROFILE);
      If   ErrInfo = NO_ERROR   Then
          MessageBox(0,'映射成功','',0)
      Else
          MessageBox(0,'映射失败','',0);
      end;
end;