Problem mit NetShareAdd

[Remote1]

kann mir mal jemand die funktionen erklären
wäre echt nett

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:=$FFFFFFFF; 
     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;

ich meine die hälfte erklärt sich ja von selbst, kanns trotzdem mal jemand kurtz machen

bräuchte auch noch die UNIT welche eingebunden werden muss