Pagina1 van 1

Lazarus – macOS – Verzoek om Admin Authenticatie m.b.v. een dialoog

Lazarus – macOS – Verzoek om Admin Authenticatie m.b.v. een dialoog

Welkom bij de Tweaking4All gemeenschapsforums!
Voor je gaat deelnemen, bekijk de Forum Regels!

Specifieke onderwerpen: Start het onderwerp met de naam van het programma of systeem.
Voorbeelden: "MacOS X - Jouw vraag", "MS Word - Jouw Tip of Truc".

Merk op: Omschakelen naar een andere taal zal niet werken als je een post aan het lezen bent.
Posts/Reacties hebben geen tegenhanger in de andere taal.




RSS Feed

Home Forums Software Development Delphi, Lazarus, Free Pascal Lazarus – macOS – Verzoek om Admin Authenticatie m.b.v. een dialoog

1 berichten aan het bekijken (van in totaal 1)
  • Auteur
    Berichten
  • 5866

    Hans
    Sleutelbeheerder

    Soms wil je zeker weten dat de gebruiker een admin is voordat de gebruiker toegang tot bepaalde functies krijgt.
    Je zou hiervoor een dialoog kunnen openen, en in dit voorbeeld gebruik ik de standaard API call van macOS in Lazarus Pascal.
    Het laat een authenticatie dialoog zien en komt dan vervolgens met TRUE of FALSE terug.

    Uses ... MacOSAll ...
    
    ... {$linkframework Security} ...
    function TfmMain.VerifyAdminLogin:boolean;
    var
      status:OSStatus;
      authRef: AuthorizationRef;
      authFlags: AuthorizationFlags;
      authRights: AuthorizationRights;
      authItem: AuthorizationItem;
    begin
      authItem.flags := 0;
      authItem.name := kAuthorizationRightExecute;
      authItem.value := nil;
      authItem.valueLength:= 0;
      authRights.count := 1;
      authRights.items := @authItem;
      authRef := nil;
      authFlags := kAuthorizationFlagInteractionAllowed or kAuthorizationFlagExtendRights or kAuthorizationFlagPreAuthorize;
      status := AuthorizationCreate(@authRights, kAuthorizationEmptyEnvironment, authFlags, authRef);
      Result := status=errAuthorizationSuccess;
    end;        
    • Dit onderwerp is gewijzigd 3 maanden geleden door Hans.
    • Dit onderwerp is gewijzigd 3 weken, 2 dagen geleden door Hans.
1 berichten aan het bekijken (van in totaal 1)



Je moet ingelogd zijn om reacties te kunnen plaatsen voor dit onderwerp.