Delphi访问共享

var NetSource: TNetResource; Error: LongInt; a: Cardinal; begin with NetSource do begin dwType := RESOURCETYPE_ANY; lpLocalName := 'Z:'; lpRemoteName := '\192.168.2.4rc'; lpProvider := ''; end; // case WNetAddConnection3(Handle, NetSour

var

  NetSource: TNetResource;

  Error: LongInt;

  a: Cardinal;

begin

  with NetSource do

  begin

    dwType  := RESOURCETYPE_ANY;

    lpLocalName := 'Z:';

    lpRemoteName := '\192.168.2.4rc';

    lpProvider := '';

  end;

//  case  WNetAddConnection3(Handle, NetSource, '','', CONNECT_UPDATE_PROFILE) of

//WNetAddConnection3 带有密码输入框  WNetAddConnection2 没有

 case WNetAddConnection3(Handle, NetSource, '', '', CONNECT_UPDATE_PROFILE or CONNECT_INTERACTIVE) of

   NO_ERROR: ShowMessage('成功') ;

   ERROR_ACCESS_DENIED: showmessage('访问被拒绝');

   ERROR_ALREADY_ASSIGNED:ShowMessage('设备参数中指定的lpLocalName已经连接。');

   ERROR_BAD_DEV_TYPE:ShowMessage('设备类型和资源类型不匹配。');

   ERROR_BAD_DEVICE:ShowMessage('在lpLocalName指定的值是无效的');

   ERROR_BAD_NET_NAME: ShowMessage('中指定的值lpRemoteName参数无效或无法找到。');

   ERROR_BAD_PROFILE :ShowMessage('用户配置文件的格式不正确')   ;

   ERROR_CANNOT_OPEN_PROFILE :ShowMessage('统无法打开用户配置文件来处理持久连接。');

   ERROR_DEVICE_ALREADY_REMEMBERED: ShowMessage('一个条目中指定的设备lpLocalName已经在用户概要。') ;

   ERROR_EXTENDED_ERROR:ShowMessage('一个特定于网络错误发生。为了描述的错误,使用WNetGetLastError函数。');

   ERROR_INVALID_PASSWORD:ShowMessage('指定的密码是无效的。');

   ERROR_NO_NET_OR_BAD_PATH:ShowMessage('操作无法进行,因为不是一个网络组件没有启动或指定的名称不能用。');

   ERROR_NO_NETWORK:ShowMessage('网络不存在.');

   ERROR_SESSION_CREDENTIAL_CONFLICT: //这里为第二次输入冲突 但是共享文件夹已经可以访问无需密码了，所以这里 不提示

 else

幸福女淘宝客

幸福女淘宝客是一款用php来开发的淘宝分享购物网站，它包含文章、产品系统、金币兑换、金币抢拍、团购、店铺管理系统、订单系统等功能。没有最强大 只有更强大 目前功能最强大的淘宝客系统支持qq 微博登陆 支持关键词搜索淘宝商品支持绑定微博账号发布支持手机访问客户端可以从appcan直接生成安装http://localhot/install 想重新安装 请删除 /config/install.lock安

下载

   ShowMessage('其他意外終止!');

 end;

以上，也可以用客户端和服务端 之间通讯传输文件，就不用考虑这么多了

映射网络资源到本地驱动器 网上摘抄

function MapNetworkDrive(const handle : THandle; const uncPath : string) : string;

 //returns mapped drive ("z:") on success 

 //or uncPath on failure / cancel

 var

   cds : TConnectDlgStruct;

   netResource : TNetResource;

 begin

   result := uncPath;

   ZeroMemory(@netResource, SizeOf(TNetResource)) ;

   netResource.dwType := RESOURCETYPE_DISK;

   netResource.lpRemoteName := PChar(uncPath) ;

   cds.cbStructure := SizeOf(TConnectDlgStruct) ;

   cds.hwndOwner := handle;

   cds.lpConnRes := @netResource;

   cds.dwFlags := CONNDLG_PERSIST;

   if WNetConnectionDialog1(cds) = NO_ERROR then

   begin

     result := Chr(-1 + Ord('A') + cds.dwDevNum) + DriveDelim;

   end;

 end;

使用：MapNetworkDrive(Handle, '')