请问,谁会,请多多指教

在哪可以找到实现设置和取消文件夹共享的API函数 问题点数：20、回复次数：3Top

1 楼hmily1688（没什么好说的）回复于 2003-09-03 19:46:30 得分 0

上MSDN吧Top

2 楼Drate（小虫(好好学习,天天向上)）回复于 2003-09-03 20:04:44 得分 20

样在Delphi程序中设置共享文件夹？  
  1、设置HKEY_LOCAL_MACHINE  
   
  2、  
   
  SVRAPI.DLL里有  
   
  NetShareAdd;  
   
  NetShareDel;  
   
  NetShareGetInfo;  
   
  NetShareSetInfo;  
   
  NetShareAdd  
   
  The   NetShareAdd   function   shares   a   server   resource.  
   
  Security   Requirements  
   
  Only   members   of   the   Administrators   or   Account   Operators   local   group   or   those   with   Communication,   Print,   or   Server   operator   group   membership   can   successfully   execute   the   NetShareAdd   function.   The   Print   operator   can   add   only   Printer   queues.   The   Communication   operator   can   add   only   communication-device   queues.  
   
  Windows   NT/2000:   The   parameter   order   is   as   follows.  
   
  NET_API_STATUS   NetShareAdd(  
   
  LPWSTR   servername,  
   
  DWORD   level,  
   
  LPBYTE   buf,  
   
  LPDWORD   parm_err  
   
  );  
   
  Windows   95/98:   You   must   specify   the   size   of   the   information   buffer,   in   bytes,   using   the   cbBuffer   parameter.   The   Windows   NT/Windows   2000   parm_err   parameter   is   not   available   on   this   platform.   Therefore,   the   parameter   list   is   as   follows.  
   
  extern   API_FUNCTION  
   
  NetShareAdd(  
   
  const   char   FAR   *   pszServer,  
   
  short   sLevel,  
   
  const   char   FAR   *   pbBuffer,  
   
  unsigned   short   cbBuffer  
   
  );  
   
  Parameters  
   
  servername  
   
  [in]   Pointer   to   a   Unicode   (Windows   NT/2000)   or   ANSI   (Windows   95/98)   string   specifying   the   name   of   the   remote   server   on   which   the   function   is   to   execute.   The   string   must   begin   with   \.   If   this   parameter   is   NULL,   the   local   computer   is   used.  
   
  level  
   
  [in]   Specifies   the   information   level   of   the   data.   This   parameter   can   be   one   of   the   following   values.  
   
  Windows   NT/2000:   The   following   levels   are   valid.   Value   Meaning  
   
  2   Specifies   information   about   the   shared   resource,   including   name   of   the   resource,   type   and   permissions,   and   number   of   connections.   The   buf   parameter   points   to   a   SHARE_INFO_2   structure.  
   
  502   Specifies   information   about   the   shared   resource,   including   name   of   the   resource,   type   and   permissions,   number   of   connections,   and   other   pertinent   information.   The   buf   parameter   points   to   a   SHARE_INFO_502   structure.  
   
  　  
   
  　  
   
  Windows   95/98:   The   following   level   is   valid.   Value   Meaning  
   
  50   Specifies   information   about   the   shared   resource,   including   the   name   and   type   of   the   resource,   a   comment   associated   with   the   resource,   and   passwords.   The   pbBuffer   parameter   points   to   a   share_info_50   structure.   Note   that   the   string   you   specify   in   the   shi50_path   member   must   contain   only   uppercase   characters.   If   the   path   contains   lowercase   characters,   calls   to   NetShareAdd   can   fail   with   NERR_UnknownDevDir   or   ERROR_BAD_NET_NAME.  
   
  　  
   
  　  
   
  buf  
   
  [in]   Pointer   to   the   buffer   that   specifies   the   data.   The   format   of   this   data   depends   on   the   value   of   the   level   parameter.  
   
  parm_err  
   
  [out]   Pointer   to   a   DWORD   value   that   receives   the   index   of   the   first   member   of   the   share   information   structure   that   causes   the   ERROR_INVALID_PARAMETER   error.   If   this   parameter   is   NULL,   the   index   is   not   returned   on   error.   For   more   information,   see   the   NetShareSetInfo   function.  
   
  Return   Values  
   
  If   the   function   succeeds,   the   return   value   is   NERR_Success.  
   
  If   the   function   fails,   the   return   value   can   be   one   of   the   following   error   codes.  
   
  Value   Meaning  
   
  ERROR_ACCESS_DENIED   The   user   does   not   have   access   to   the   requested   information.  
   
  ERROR_INVALID_LEVEL   The   value   specified   for   the   level   parameter   is   invalid.  
   
  ERROR_INVALID_NAME   The   character   or   file   system   name   is   invalid.  
   
  ERROR_INVALID_PARAMETER   The   specified   parameter   is   invalid.  
   
  NERR_DuplicateShare   The   share   name   is   already   in   use   on   this   server.  
   
  NERR_RedirectedPath   The   operation   is   invalid   for   a   redirected   resource.   The   specified   device   name   is   assigned   to   a   shared   resource.  
   
  NERR_UnknownDevDir   The   device   or   directory   does   not   exist.  
   
  　  
   
  Remarks  
   
  Windows   95/98:   See   the   NetShareAdd   Sample   (Windows   95/98)   topic   to   view   a   code   sample   that   demonstrates   how   to   use   the   NetShareAdd   function.  
   
  Windows   NT/2000:   The   following   code   sample   demonstrates   how   to   share   a   network   resource   using   a   call   to   the   NetShareAdd   function.   The   code   sample   fills   in   the   members   of   the   SHARE_INFO_2   structure   and   calls   NetShareAdd,   specifying   information   level   2.  
   
  #define   UNICODE  
   
  #include   <windows.h>  
   
  #include   <stdio.h>  
   
  #include   <lm.h>  
   
  void   wmain(   int   argc,   TCHAR   *argv[   ])  
   
  {  
   
  NET_API_STATUS   res;  
   
  SHARE_INFO_2   p;  
   
  DWORD   parm_err   =   0;  
   
  if(argc<2)  
   
  printf("Usage:   NetShareAdd   server");  
   
  else  
   
  {  
   
  //  
   
  //   Fill   in   the   SHARE_INFO_2   structure.  
   
  //  
   
  p.shi2_netname   =   TEXT("TESTSHARE");  
   
  p.shi2_type   =   STYPE_DISKTREE;   //   disk   drive  
   
  p.shi2_remark   =   TEXT("TESTSHARE   to   test   NetShareAdd");  
   
  p.shi2_permissions   =   0;  
   
  p.shi2_max_uses   =   4;  
   
  p.shi2_current_uses   =   0;  
   
  p.shi2_path   =   TEXT("C:\");  
   
  p.shi2_passwd   =   NULL;   //   no   password  
   
  //  
   
  //   Call   the   NetShareAdd   function,  
   
  //   specifying   level   2.  
   
  //  
   
  res=NetShareAdd(argv[1],   2,   (LPBYTE)   &p,   &parm_err);  
   
  //  
   
  //   If   the   call   succeeds,   inform   the   user.  
   
  //  
   
  if(res==0)  
   
  printf("Share   created.");  
   
  　  
   
  //   Otherwise,   print   an   error,  
   
  //   and   identify   the   parameter   in   error.  
   
  //  
   
  else  
   
  printf("Error:   %u=%u",   res,   parm_err);  
   
  }  
   
  return;  
   
  }  
   
  If   you   are   programming   for   Active   Directory,   you   may   be   able   to   call   certain   Active   Directory   Service   Interface   (ADSI)   methods   to   achieve   the   same   functionality   you   can   achieve   by   calling   the   network   management   share   functions.   For   more   information,   see   IADsFileShare.  
   
  Requirements  
   
  Windows   NT/2000:   Requires   Windows   NT   3.1   or   later.  
   
  Windows   95/98:   Requires   Windows   95   or   later.  
   
  Header:   Declared   in   Lmshare.h   (Windows   NT/2000)   or   Svrapi.h   (Windows   95/98);   include   Lm.h   (Windows   NT/2000).  
   
  Library:   Use   Netapi32.lib   (Windows   NT/2000)   or   Svrapi.lib   (Windows   95/98)  
   
  Top

3 楼Drate（小虫(好好学习,天天向上)）回复于 2003-09-03 20:06:50 得分 0

局域网中文件夹的共享   Windows   NT/2000/XP        
  局域网中文件夹的共享   Windows   NT/2000/XP  
   
  在局域网中通过程序实现文件夹的共享，就我知道的应该至少有两种实现方式。一是修改注册表，但是这种方法存在的问题也是很明显的，必须重起机器才能生效。二就是利用   Windows   Api函数   NetShareAdd   ,通过这个函数我们可以很容易的实现文件夹的共享，而且无需重起计算机。使用这个函数时我们必须注意的是在   Windows   NT/2000/XP   和   Windows   95/98/Me   下用法是有很大差别的，这一点我相信大家都有体会，明明在   95   或   98   下实现好好的，可是一到   NT   下就出问题。  
   
  其实不光是各位仁兄，我早就提出过这个问题，怎奈一直都没有解决掉。现在好了，希望读完后能给大家一点点帮助。  
   
  Windows   95/98/Me   下   NetShareAdd   函数声明在   SVRAPI.DLL   动态连接库中，而在   2000/XP/NT   下声明在   NETAPI32.DLL   动态连接库中。所以我们在不同的操作系统下一定要注意调用不同的   DLL   库。这些函数详细的声明，在新版   MSDN   2002   中有介绍。由于在Delphi中没有声明这些函数和他们的参数所以我们要想实现这个函数还必须自己声明（可能delphi   有声明我不知道在那个单元中）。顺便说一句，我使用的是   delphi5.0   版，可惜他的帮助文件实在是太陈旧了，还是先看看   MSDN   2002   中关于   NetShareAdd   函数的声明巴！  
   
  Windows   NT/2000/XP:    
   
  NET_API_STATUS   NetShareAdd(    
  LPWSTR   servername,   //对应   Delphi   中   PWideChar  
  DWORD   level,   //对应   DELPHI   中   DWOED  
  LPBYTE   buf,   //对应   DELPHI   中   PBYTE  
  LPDWORD   parm_err   //   对应   DELPHI   中   PDWORD    
  );  
  Windows   95/98/Me:   下面的对应参数就不用说了吧！可以直接看看DELPHI帮助文件。  
   
  extern   API_FUNCTION  
  NetShareAdd(  
  const   char   FAR   *   pszServer,    
  short   sLevel,    
  const   char   FAR   *   pbBuffer,    
  unsigned   short   cbBuffer    
  );    
   
  特别强调：  
   
  我们在声明上面的函数时，函数参数一定要写对，也就是一定要正确对应到DELPHI   自己的类型上。不然函数功能无法实现，这一点我已经尝试了。之所以在NT   下实现不了主要还是，参数类型对应的不对。我们还需要声明一个记录类型，在98/95/me   和   nt/2000/xp下声明如下：    
  Windows   NT/2000/XP:   SHARE_INFO_2   和   SHARE_INFO_502   结构    
  Windows   95/98/Me:   share_info_50   结构  
   
  对以上这个结构的声明更应该注意参数类型的正确对应。原始声明如下：  
   
  typedef   struct   _SHARE_INFO_502   {  
  LPWSTR   shi502_netname;   //   PWideChar;    
  DWORD   shi502_type;   //   DWORD;    
  LPWSTR   shi502_remark;   //   PWideChar;  
  DWORD   shi502_permissions;   //   DWORD;    
  DWORD   shi502_max_uses;   //   DWORD;  
  DWORD   shi502_current_uses;   //DWORD;    
  LPWSTR   shi502_path;   //PWideChar;    
  LPWSTR   shi502_passwd;   //   PWideChar;    
  DWORD   shi502_reserved;   //   DWORD   ；  
  //   PSECURITY_DESCRIPTOR   ；一般设为   Nil  
  PSECURITY_DESCRIPTOR   shi502_security_descriptor;  
  }   SHARE_INFO_502,   *PSHARE_INFO_502,   *LPSHARE_INFO_502;  
   
  对应   Delphi   纪录声明如下：一定要注意参数类型的正确对应，如果你把PWideChar   声明为   pchar   函数将无法实现此功能，我已经尝试了，你可以再试试，至于原因是什么，我也不太清楚。  
   
  type    
  TSHARE_INFO_502   =   record  
  shi502_netname:   PWideChar;  
  shi502_type:   DWORD;  
  shi502_remark:   PWideChar;  
  shi502_permissions:   DWORD;  
  shi502_max_uses:   DWORD;  
  shi502_current_uses:   DWORD;  
  shi502_path:   PWideChar;  
  shi502_passwd:   PWideChar;  
  shi502_reserved:   DWORD;  
  shi502_security_descriptor:   PSECURITY_DESCRIPTOR;  
  end;  
   
  下面是完成的程序代码，其中有两部分，主程序和单元文件。运行环境   windows   2000   Ads   开发工具   Delphi5.0   。运行通过。  
   
  unit   Share;    
  interface  
  uses  
  Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
  StdCtrls,FileCtrl,My_Share;  
  type  
  TFormShare   =   class(TForm)  
  Label1:   TLabel;  
  Label2:   TLabel;  
  Label3:   TLabel;  
  BtSelect:   TButton;  
  EditDir:   TEdit;//文件共享目录  
  EditSharename:   TEdit;   //共享名称  
  EditInfo:   TEdit;//备注  
  Button1:   TButton;  
  Button2:   TButton;  
  procedure   BtSelectClick(Sender:   TObject);  
  procedure   Button1Click(Sender:   TObject);  
  private  
  {   Private   declarations   }  
  public  
  {   Public   declarations   }  
  end;    
  var  
  FormShare:   TFormShare;  
  implementation  
   
  {$R   *.DFM}    
  procedure   TFormShare.BtSelectClick(Sender:   TObject);  
  var  
  directory:   string;  
  begin  
  if   SelectDirectory('选择一个目录','',   directory)   then  
  EditDir.Text   :=   directory;  
  end;  
   
  procedure   TFormShare.Button1Click(Sender:   TObject);  
  begin  
  if   EditDir.Text   =   ''   then  
  begin  
  Application.MessageBox('请先选择一个目录！',   '共享',   MB_ICONINFORMATION   +   MB_OK);  
  BtSelect.Click;  
  Exit;  
  end;  
  if   EditSharename.Text   =   ''   then  
  begin  
  Application.MessageBox('请先输入共享名称！',   '共享',   MB_ICONINFORMATION   +   MB_OK);  
  EditSharename.SetFocus;  
  Exit;  
  end;  
  ShareResource('eengi',EditDir.Text,EditSharename.Text,EditInfo.Text);  
  {注意：如果在共享目录名称后面添加   $   符号，共享后在网络邻居里看不到此文件夹但实际上已经共享了，你可以在本地看到}  
  end;    
  end.  
   
  以下是单元文件：    
  unit   My_Share;  
  interface  
  uses  
  Windows,Sysutils   ;  
  type  
  //纪录类型声明，注意参数类型的正确对应，最好别看   delphi   的帮助，引起误导  
  TSHARE_INFO_502   =   record  
  shi502_netname:   PWideChar;  
  shi502_type:   DWORD;  
  shi502_remark:   PWideChar;  
  shi502_permissions:   DWORD;  
  shi502_max_uses:   DWORD;  
  shi502_current_uses:   DWORD;  
  shi502_path:   PWideChar;  
  shi502_passwd:   PWideChar;  
  shi502_reserved:   DWORD;  
  shi502_security_descriptor:   PSECURITY_DESCRIPTOR;  
  end;  
  //添加共享  
  function   NetShareAdd(servername:Widestring;   level:   DWORD;   Buf:   PBYTE;  
  var   parm_err:   PDWORD   ):   DWORD;   stdcall;  
  //删除共享  
  function   NetShareDel(ServerName:Widestring;   NetName:   Widestring;  
  Reserved:   DWord):   Integer;   StdCall;  
  const  
  {共享类型}  
  STYPE_DISKTREE   =   0   ;  
  STYPE_PRINTQ   =   1   ;  
  STYPE_DEVICE   =   2   ;  
  STYPE_IPC   =   3   ;  
  {访问权限}  
  ACCESS_READ   =   0   ;  
  ACCESS_WRITE   =   1   ;  
  ACCESS_CREATE   =   2   ;  
  ACCESS_EXEC   =   3   ;  
  ACCESS_DELETE   =   4   ;  
  ACCESS_ALL   =   7   ;  
   
  //自己声明的函数，为了调用方便，参数就不用说明了吧！  
  function   ShareResource(ServerName,FilePath,NetName,   Remark   :   string):   Integer;  
  //function   DeleteShare(ServerName:   string;   NetName:   string):   Integer;  
  implementation  
  //注意在   windows95/98/me   下面   dll   库是   SVRAPI.DLL   ，而且参数类型也要随之改变的吆！  
  function   NetShareAdd;   external   'netapi32.DLL'   name   'NetShareAdd';  
  function   NetShareDel;   external   'netapi32.DLL'   name   'NetShareDel';  
   
  function   ShareResource(ServerName,FilePath,NetName,   Remark   :   string):   Integer;  
   
  var    
  ShInfo:   TSHARE_INFO_502;    
  parm_err:PDWORD;    
  _FilePath,_NetName,   _Remark   :   PWideChar   ;    
  _ServerName   :   Pchar   ;    
  begin    
  GetMem(_ServerName,255)   ;   //分配内存  
  GetMem(_FilePath,255);  
  GetMem(_NetName,255);  
  GetMem(_Remark,255);  
  StringToWideChar(FilePath,_FilePath,255);   //字符串转换,一定要转换正确  
  StringToWideChar(NetName,_NetName,255);  
  StringToWideChar(Remark,_Remark,255);  
  strpcopy(_ServerName,ServerName);  
  //开始创建结构  
  with   ShInfo   do  
  begin  
  shi502_netname   :=   _NetName;  
  shi502_type   :=   STYPE_DISKTREE   ;  
  shi502_remark   :=   _Remark   ;  
  shi502_max_uses   :=   $FFFFFFFF;  
  shi502_current_uses   :=   10;  
  shi502_path   :=   _FilePath;  
  shi502_passwd   :=   nil;  
  shi502_reserved   :=   0;  
  shi502_security_descriptor   :=   nil;  
  shi502_permissions   :=   ACCESS_ALL;  
  end;  
  try  
  Result   :=   NetShareAdd(_ServerName,   502,   @ShInfo,   parm_err);  
  Finally   //   别忘了释放内存  
  FreeMem(_ServerName,255);  
  FreeMem(_FilePath,255);  
  FreeMem(_NetName,255);  
  FreeMem(_Remark,255);  
  end;  
  end;  
  end.  
   
  总结：  
   
  运行完程序后，相信大家和我有同样的感觉，其实成功就在眼前，就差一点，可是就这一点也很难跨越。程序之所以一直实现不了，恐怕我们都没有考虑参数类型声明是否正确。不过我应该非常感谢csdn   上“绝对菜鸟”的回复。要不是他的程序，恐怕我还在等待中探索  
   
     
  Top

相关问题

• api
• netshareadd
• parm
• 设置
• communication
• err
• operator
• parameter

• 帖主：mmtxm
• Drate

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载