关于驱动器共享 发送一个刷新的消息啊。其实可以用API:NetShareAdd啊。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我知道这个api函数但我不会用里面的参数你能给我一个例子吗??谢谢了!!!!还有,怎么刷新?? 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; 你最好去jedi下载那个LanManager.zip API包。用那个里面的东西最安全了,我的在2000下就不行了。 idhttp设置代理服务器无效 通过读取PE找到了EXE文件的图标偏移,但是应该怎么样读出来啊? 如何打开和关闭窗口 DBGrideh功能 深度 探讨!高分 如何用Api执行其他进程的菜单 用delphi中的socket控件怎样实现多客户的数据交流(急!!请各位高手帮忙!谢谢!) 还是动态的对象名的问题,大家帮忙? font 关于SOCKET按件(在线给分哈) 请高手指点...有关Html全文检索 “环保型”的无须安装软件怎么实现? 初学者问题,关于类与对象
但我不会用里面的参数
你能给我一个例子吗??
谢谢了!!!!还有,怎么刷新??
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;