zoukankan      html  css  js  c++  java
  • Delphi 访问网上邻居

    ----Windows 下,使Windows 数(WNet
     
    现,WNet 的。
    ----Wnet
    有:WnetAddConnection , WnetAddConnection2 , WnetAddConnection3 ,
    WnetCancelConnection2
    等。 WnetAddConnection2WnetCancelConnection2 数。

    ----WNetAddConnection2
    Windows.pas 下:

    ----function WNetAddConnection2(var lpNetResource: TNetResource;lpPassword, lpUserName:

    ----PChar; dwFlags: DWORD): DWORD; stdcall;

    ----
    数,lpNetResouce 构,为:

    typedef  struct _NETRESOUCE{
        DWORD dwScope;  
        DWORD dwType;  
        DWORD dwDisplayType;
        DWORD dwUsage;
        LPTSTR lpLocalName;
        LPTSR  lpRemoteName;
        LPTSr  lpProvider;
    } NETRESOURCE;

    ----
    使dwType,lpLocalName,lpRemoteName,lpProvider 数。下:

    ----dwType :
    型,RESOURCETYPE_ANY( ),
    RESOURCETYPE_DISK(
    ) , RESOURCETYPE_PRINT源)。

    ----lpLocalName :
    备。

    ----lpRemoteName :
    名。

    ----lpProvider :
    商。空,知。

    ----WNetAddConnection2
    lpPassword 令。

    ----lpUserName
    名。dwFlags
    接(0 接,CCONNECT_UPDATE_PROFILE 接)。

    ----WnetCancelConnection2
    Windows .pas 下:

    ----function WNetCancelConnection2(lpName: PChar;
      dwFlags: DWORD; fForce: BOOL):DWORD; stdcall;

    ----lpName :
    器。

    ----dwFlags :
    上。

    ----fForce : True
    开,器;
    False
    败。



    ----
    Delphi File New ApplicationForm1 Button
    Button1 Click 码:
    procedure TForm1.Button1Click(Sender : TObject);
    var
      NetSource : TNetResource;
    begin
      with NetSource do
      begin
        dwType := RESOURCETYPE_ANY;
        lpLocalName := ‘X:';
        //

        lpRemoteName := ‘//hqServer/sys';
        //

        lpProvider := ‘';  
        //
    ,
         
    使lpRemoteName 值。
      end;
      WnetAddConnection2(NetSource,‘Password',‘Guest',
       //
    GuestPassword
      CONNECT_UPDATE_PROFILE);
       //

      //
    Windows
       
    X
      if MessageDlg(‘Are you sure to disconnect Drive ?',
     
      mtConfirmation, [mbYes, mbNo], 0) = mrYes
      then      
        //
    开,
         
    X
     WNetCancelConnection2( ‘X:', CONNECT_UPDATE_
    PROFILE, True);  
    end;
    end;
    ============================================================================================

     
     
     
     
    localname:本地磁盘号 如:Y: Z:
    remotename: 共享路径 如 ://server/share
    username : 用户名
    password: 密码
    function connectserver(localname: string; remotename: string; username: string; password: string): boolean;
    var
     NetSource: TNetResource; Errinfo: longint;
    begin
     with NetSource do begin
        dwType := RESOURCETYPE_ANY; //RESOURCETYPE_DISK
        lpLocalName := pchar(localname);
             // 将远程资源映射到此驱动器
        lpRemoteName := pchar(remotename);
            // 远程网络资 源
        lpProvider := '';
            // 必须赋值,如为空则使用lpRemoteName 的值。
     end;
     ErrInfo := WnetAddConnection2(NetSource, pchar(password), pchar(username), 0);
     result := (ErrInfo = NO_ERROR);
    end;
  • 相关阅读:
    webstorm11.0下载地址和webstorm11.0破解程序patcher.exe下载使用方法说明 前端IDE工具的利器
    20151224今天发现到的两篇关于CSS架构、可复用可维护CSS和CSS学习提升能有改变思想观念意识的文章 分别是CSS架构目标和说说CSS学习中的瓶颈
    GOF提出的23种设计模式是哪些 设计模式有创建形、行为形、结构形三种类别 常用的Javascript中常用设计模式的其中17种 详解设计模式六大原则
    HTML过滤器,用于去除XSS漏洞隐患。
    springboot的快速集成多数据源的启动器
    Springboot根据url后缀返回json或者xml或者html
    Springboot打包成War包并使其可以部署到Tomcat中直接运行
    数据脱敏工具类(包含手机号,银行卡号,邮箱,中文名称等)
    MySQL函数find_in_set介绍
    防止同一IP多次请求攻击
  • 原文地址:https://www.cnblogs.com/Values/p/3074288.html
Copyright © 2011-2022 走看看