Habs geschafft!
Folgende Änderung erbrachte eine erfolgreiche Freigabe:
Delphi-Quellcode:
procedure TForm1.Button4Click(Sender: TObject);
var
share: TShareInfo2;
err: DWord;
begin
Share.shi2_netname:='
SBK';
share.shi2_type:=STYPE_DISKTREE;
share.shi2_permissions:=ACCESS_ALL;
Share.shi2_remark:='
Testfreigabe';
share.shi2_max_uses:=4;
share.shi2_current_uses:=0;
share.shi2_passwd:=nil;
share.shi2_path:='
c:\mysql';
NetShareAdd('
',2,@Share,@err);
//ShowMessage(Inttostr(err));
SHChangeNotify(SHCNE_NETSHARE,SHCNF_PATH,PChar('
c:\mysql'),
nil);
end;
Allerdings habe ich noch Probleme mit
shi2_max_users. Laut MS wird mit -1 festgelegt, das es bei dieser Freigabe keine Beschränkungen gibt. Wenn ich -1 verwende meldet mir der Compiler, das ich die untere Grenze der Variable verletzte
Weiß einer was hier rein muß?
Wäre echt dankbar.