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

[Christian Seehase]

Moin Remote,

die Beschreibung für NetShareAdd findest Du auf msdn.microsoft.com oder auch im PSDK.
Die wären ausführlicher, als man sie hier schreiben kann.

Zitat von Remote1:

bräuchte auch noch die UNIT welche eingebunden werden muss

Da stellt sich mir die Frage, wo Du den Codeschnipsel her hast. In Delphi ist diese Funktion nämlich nicht deklariert, man muss sie sich entweder selber importieren und auch selber die Datenstruktur deklarieren, oder man nimmt eine fertige Deklaration. Die Jedis müssten das enthalten.