Jak można programowo udostępnić jakiś folder w sieci LAN ??[Delphi]
W rejestrze....sciezki dokladnie nie pamietam..ale znajdziesz w szuakrce (Archiwum forum)
zobacz sobie w helpie na funkcje NetShareAdd z WinApi
silent1
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
try
Reg.OpenKey(<font color="blue">'Software\Microsoft\Windows\CurrentVersion\Network\LanMan\C'</span>, True);
Reg.WriteInteger('<font color=blue>Flags'</span>, 402);
Reg.WriteInteger('<font color=blue>Type</span>', 0);
Reg.WriteString(<font color=blue>'Path'</span>, '<font color=blue>C:\</span>');
Reg.WriteString(<font color=blue>'Remark'</span>, '');
<b>finally</b>
Reg.Free;
<b>end;
except</b>
end;
tutaj: Reg.WriteString(<font color="blue">'Path'</span>, <font color="blue">'C:'</span>); wpisujesz scieszke do tego co chcesz udostepnic (czyli np dysk C)
a tutaj: Reg.WriteInteger(<font color="blue">'Flags'</span>, 402); ustawiasz flage dla udostepniena (czyli czy to ma byc udostepnienie tylko do odczytu, pelne etc...)
dziala to tylko pod Win98 i chyba 95. do reszty systemow poszukaj sobie sciezek w rejestrze...
pozdr.