Cześć :)
Chciałem zrobić sobie z poziomu programu odostępnianie podanego folderu, no i coś mi nie działa :-/ Nie wiem z jakiejgo powodu ?
Może ktoś mi wyjaśni co jest grane ?
Udostępniam katalog z poziomu Windy i jest ok, a z poziomu programu
nie działa hmmm.. wpisy do rejestru te same a jednak nic :-/
Poniżej podaje kod jaki używam:
PROCEDURE TForm1.Button1Click(Sender: TObject);
var
reg: TRegistry;
begin
reg:= TRegistry.Create;
try
reg.RootKey:= HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Network\LanMan\WARSZTAT', True);
reg.WriteString('Path','D:\WARSZTAT' );
reg.WriteInteger('Flags', 401);
Reg.WriteInteger('Type', 0);
reg.WriteBinaryData('Parm2enc', a,0);
reg.WriteBinaryData('Parm1enc', a,0);
//te dwie linie poniżej zamieniłem tymi co powyżej bo nie używam hasła
// reg.WriteBinaryData('Parm2enc', haslo, SizeOf(haslo));
// reg.WriteBinaryData('Parm1enc', haslo, SizeOf(haslo));
reg.WriteString('Remark', 'udostępniony do odczytu');
finally
reg.Free;
end;
End;
Po kliknięciu na button wpisuje się prawidłowo w rejestry - taki sam wpis jakbym "ręcznie" udostępniał z poziomu windozy, nic nie brakuje a jednak nie działa :-/
Czyżby gdzieś jeszcze w innym kluczu miałbyć dodatkowy wpis ?