ordnerfreigabe mit passwort

[mischa]

Hallo zusammen,

ich habe eine Komponente gefunden (bei Torry), die auch unter Delphi 6 noch prima läuft. Hier wird auch ShareInfo2 und SharInfo50 verwendet. Allerdings bleibt ein Problem, dass ich nicht hinkriege (aber leider lösen muss):
Unter WinXP wird der Ordner immer mit Vollzugriff für jeden freigegeben! Will man unter W2K/XP eine Freigabe für einen oder mehrere Benutzer / Gruppen realisieren, muss man wohl oder übel SharInfo502 verwenden und einen SecurityDescriptor übergeben. Den erhält man über die Funktion GetSecurityInfo(). Hier muss man dann noch eine SID für den User angeben, die man mittels LookupAccountName() erhält. Soweit habe ich das verstanden (oder nicht? ).
Ich habe nur leider keinen Wrapper für GetSecurityInfo() gefunden. Hat jemand eine API-Lib dafür?
Mein Code bisher (in einer modifizierten Version der Routine "Share" der obigen Komponente):

Delphi-Quellcode:

    (...)
    // Erst die Buffergrößen ermitteln ...
    SidSize := 0;
    DomainNameSize := 0;
    LookupAccountName(nil, PChar(MyUserName), MyUserSID, SidSize, DomainName, DomainNameSize, SidType);
    // ... dann Speicher allokieren ...
    GetMem(MyUserSID, SidSize);
    DomainName := StrAlloc(DomainNameSize);
    // SID ermitteln
    LookupAccountName(nil, PChar(MyUserName), MyUserSID, SidSize, DomainName, DomainNameSize, SidType);
    
    // und jetzt:
    GetSecurityInfo(MyUserSID ...);  // aber woher nehmen?!?

    PMySecDesc := @MySecDesc;

    MyShare.shi502_netname := PWideChar(MYName);
    MyShare.shi502_type := FResourceType;
    MyShare.shi502_remark := PWideChar(MYComment);
    MyShare.shi502_permissions := FNTPermissions;
    MyShare.shi502_max_uses := FMaxConnections;
    MyShare.shi502_current_uses := 0;
    MyShare.shi502_path := PWideChar(MyPath);
    MyShare.shi502_passwd := PWideChar(MyPW);
    MyShare.shi502_security_descriptor := PMySecDesc;
    (...)

Ich hoffe, das ist nicht zu chaotisch ... bin müde