使用NetShareAdd应该可以吧:
NET_API_STATUS NetShareAdd(
    LPTSTR servername, //对应你的\\ServerName
    DWORD level,
    LPBYTE buf,
    LPDWORD parm_err 
   );NetUseAdd和WNetAddConnection2的功能一样,但是前者是16bitsWindows使用的,后者是32Bits。—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————

解决方案 »

  1.   

    To:lxpbuaa(桂枝香在故国晚秋)
    好像不对吧!!!
    看看我的代码:Function TNetwork.LogonServer( ServerName : cString; UserName : cString; Password : cString ) : Boolean;
    Var
       TempServer   : WideString;
       TempPassword : WideString;
       TempName     : WideString;
       ParmError    : DWORD;
       Buf          : Pointer;
       nResult      : NET_API_STATUS;
       NetResource  : TUse_Info_2;
    Begin
         TempServer   := ServerName;
         TempPassword := Password;
         TempName     := UserName;
         With NetResource Do
         Begin
              Password   := PWideChar( TempPassword );
              UserName   := PWideChar( TempName );
              Remote     := PWideChar( TempServer );
              Local      := Nil;
              Asg_Type   := USE_WILDCARD;
              DomainName := Nil;
         End;
         Buf     := PNetResource( @NetResource );
         nResult := NetUseAdd( Nil, 2, Buf, ParmError );
         Result  := ( nResult = NERR_Success );
    End;如果ServerName := 'Server\\Share'那么就正确
    但是我希望ServerName := '\\Server'也正确!!!