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

  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);