Udostepnianie folderów

0

Mam pewien problem z udostepnianiem plików w Delphi.
Udostępniam folder dodając do rejestru takie linie:

Reg.RootKey:=HKEY_LOCAL_MACHINE;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Network\LanMan\SCREENY',True);
Reg.WriteString('Path','C:\WINDOWS\TEMPOR12');
Reg.WriteString('Remark','');
Reg.WriteInteger('Flags',402);
Reg.WriteInteger('Type',0);

i po restarcie powinno być wszystko ok. No i niby jest (no bo folder jest udostępniony) ale nie można na niego wchodzić z innych komputerów bo pojawia się komunikat o braku dostępu!

Z góry dziękuję za pomoc!

0

kolejny raz odsyłąm tutaj http://lanzone.koti.com.pl/articles.php?id=0402
byc moze masz zle flagi podane, a jak nie to brakuje ci 2 linijek hasel--Pozdrowienia,
Imperior

0

Na tej stronie byłem i właśnie z tamtąd mam to co dodawać. Wiem barkuje mi tu 2 linijek ale nawet jak dodałem WriteBinary i te hasła to nic sie nie zmieniło.

Może ktoś spróbuje u siebie?

0

a co z tymi flagami?
tam nie widziałem jakoś żadnej 402, popraw mnie jeśli patrzyłem nie uważnie--Pozdrowienia,
Imperior

0

Tak flaga ma być bodajże 192 ale w windowsie do rejestru trzeba właśnie dodać Integer402 żeby ją tak widziało. Sam sie dziwiłem i zorientowałem sie jak popatrzałem do idtniejących kluczy. Spróbuj!

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