theantho07
Messages postés1Date d'inscriptionmardi 5 mai 2009StatutMembreDernière intervention 5 mai 2009
-
5 mai 2009 à 17:04
Bonjour,
Je développe avec delphi 7 est je souhaiterais partager un dossier.
Sous Xp aucun problème par contre sous vista j'ai un message d'erreur "Accés refusé" lors de l'accées à mon partage.
procedure TForm1.Button1Click(Sender: TObject);
begin
new(share);
Share^.shi2_netname := 'TESTSHARE'; //nom de partage du dossier
Share^.shi2_type := STYPE_DISKTREE; // disk drive
Share^.shi2_remark := 'TESTSHARE to test NetShareAdd'; // zone commentaire
Share^.shi2_permissions := ACCESS_ALL; //definition des droits
Share^.shi2_max_uses := 4; // nb max de users simultane
Share^.shi2_current_uses := 0;
Share^.shi2_path := 'C:\essai'; //ici le chemin du dossier a partager
Share^.shi2_passwd := Nil; // nil si pas password