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