哪位高手指点一下下面的代码!(关于编程实现目录的共享)
马丁当 2000-08-23 12:05:00 我在win98下调用NetShareAdd指定某个目录为共享,可是屡试屡败,
返回的错误信息好象指示第2个参数不对。我查找了MSDN,第2个参数
还有第2种取值502,但好象只能用在NT下!!!
代码如下。
procedure NetShareAdd(servername:LPWSTR;level:DWORD; buf:PBYTE;parm_err:LPDWORD);external 'svrapi.dll';
procedure TForm1.Button1Click(Sender: TObject);
type
SHARE_INFO_2=record
shi2_netname:LPWSTR;
shi2_type:DWORD;
shi2_remark:LPWSTR;
shi2_permissions:DWORD;
shi2_max_uses:DWORD;
shi2_current_uses:DWORD;
shi2_path:LPWSTR;
shi2_passwd:LPWSTR;
end;
var
err_Meg:Dword;
share:SHARE_INFO_2;
begin
share.shi2_netname:='Myshare';
share.shi2_type:=0;
share.shi2_remark:='asfsfd';
share.shi2_max_uses:=DWORD(-1);
share.shi2_permissions:=0;
share.shi2_current_uses:=0;
share.shi2_path:='c:\temp';
share.shi2_passwd:=nil;
NetshareAdd(nil,2,@share,@err_Meg);
messagedlg(inttostr(err_meg),mtwarning,[mbok],0);
end;