Ordner erstellen und freigeben

**edosoft**

HI
ich will ein ordner erstellen und freigeben, so dass ich ihn dann mit "net use" auf nem andren pc als netzlaufwerk anmelden kann.

dafür hab ich mir mal folgende komponente runtergladen:

File Sharing 9x/NT v.3.1

dann mein code:
(mShareCmp ist eine instanz der komponente)

zusammenfalten · markieren

Delphi-Quellcode:

			ForceDirectories('C:\123');

mShareCmp := TSharedResource.Create(nil);

mShareCmp.AccessType := ATFull;

mShareCmp.Comment := '';

mShareCmp.MaxConnections := -1;

mShareCmp.NTAccessPermissions := [NT_All];

mShareCmp.PersistShare := true;

mShareCmp.ReadOnlyPassword := '';

mShareCmp.ReadWritePassword := '';

mShareCmp.ResourceType := RTFolder;

mShareCmp.ServerName := '';

mShareCmp.SystemShare := false;

mShareCmp.ShareName := '123';

mShareCmp.ResourcePath := 'C:\123';

mShareCmp.Share;

mShareCmp.Free;

das klappt auch soweit, bloß:
wenn ich auf den ordner vom lan aus zugreifen will kommt "zugriff wurde verweigert"(hab ich glaub vergessen: der freigabepc hat xp pro und der zugreifende pc hat 98se)

wenn ich jetzt die freigabe mitm windows explorer wieder lösch und neu erstell gehts
weis jemand wie man des reparieren kann?
(eventuell auch sowas wie "net freigeb c:\123" egal hauptsache IRGENDEINE methode..)(oder auch mit der rundll32,...)

THNX

Ordner erstellen und freigeben

Ordner erstellen und freigeben

Forumregeln