关于驱动器共享

Question

发送一个刷新的消息啊。其实可以用API：NetShareAdd啊。

Answer 1

我知道这个api函数
但我不会用里面的参数
你能给我一个例子吗??
谢谢了!!!!还有,怎么刷新??

Answer 2

const
  STYPE_DISKTREE=0;
  STYPE_PRINTQ =1;
  STYPE_DEVICE=2;type
  share_info_2 = packed record
    shi2_netname: array[0..255] of Char;
    shi2_pad1: Char;
    shi2_type: Word;
    shi2_re: PChar;
    shi2_permissions: Word;
    shi2_max_uses: Word;
    shi2_current_uses: Word;
    shi2_path: PChar;
    shi2_passwd: array[0..14] of Char;
    shi2_pad2: Char;
  end;Function NetShareAdd(servername:PChar; level:SmallInt;buf:Pointer; buf_len:SmallInt):SmallInt;stdcall;external 'svrapi.dll';procedure TForm1.Button1Click(Sender: TObject);
var
  buf:^share_info_2;
begin
  new(buf);
  buf.shi2_netname:='NetShareAdd';
  buf.shi2_type:= STYPE_DISKTREE;
  buf.shi2_re:='Test for netshareadd';
  buf.shi2_max_uses:=5;
  buf.shi2_current_uses:=0;
  buf.shi2_permissions:=0;
  buf.shi2_path:='c:\';
  buf.shi2_passwd:='abc';
  NetShareAdd(nil,2,buf,sizeof(buf^));
  caption:=SysErrorMessage(GetLastError);
  dispose(buf);
end;

Answer 3

你最好去jedi下载那个LanManager.zip API包。用那个里面的东西最安全了，我的在2000下就不行了。