局域网中文件夹的共享 Windows NT/2000/XP[8]

  //纪录类型声明，注意参数类型的正确对应，最好别看 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 ;