Udostępnianie folderów

0

Jak można programowo udostępnić jakiś folder w sieci LAN ??[Delphi]

0

W rejestrze....sciezki dokladnie nie pamietam..ale znajdziesz w szuakrce (Archiwum forum)

0

zobacz sobie w helpie na funkcje NetShareAdd z WinApi

silent1

0

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.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0