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

  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