Vous recherchez le code Delphi 7 pour détecter si un programme est démarré avec les droits de l'administrateur?

L'API Windows (utilisé) pour avoir une fonction d'assistance ( ISUSERANADMIN ) Pour dire si vous utilisez des privilèges administratifs.

function IsUserAdmin: Boolean;
var
  b: BOOL;
  AdministratorsGroup: PSID;
begin
  {
    This function returns true if you are currently running with admin privileges.
    In Vista and later, if you are non-elevated, this function will return false 
    (you are not running with administrative privileges).
    If you *are* running elevated, then IsUserAdmin will return true, as you are 
    running with admin privileges.

    Windows provides this similar function in Shell32.IsUserAnAdmin. 
    But the function is deprecated, and this code is lifted
    from the docs for CheckTokenMembership:
      http://msdn.microsoft.com/en-us/library/aa376389.aspx
  }

  {
    Routine Description: This routine returns TRUE if the callers
    process is a member of the Administrators local group. Caller is NOT
    expected to be impersonating anyone and is expected to be able to
    open its own process and process token.
      Arguments: None.
      Return Value:
        TRUE - Caller has Administrators local group.
        FALSE - Caller does not have Administrators local group.
  }
  b := AllocateAndInitializeSid(
      SECURITY_NT_AUTHORITY,
      2, //2 sub-authorities
      SECURITY_BUILTIN_DOMAIN_RID,  //sub-authority 0
      DOMAIN_ALIAS_RID_ADMINS,      //sub-authority 1
      0, 0, 0, 0, 0, 0,             //sub-authorities 2-7 not passed
      AdministratorsGroup);
  if (b) then
  begin
    if not CheckTokenMembership(0, AdministratorsGroup, b) then
      b := False;
    FreeSid(AdministratorsGroup);
  end;

  Result := b;
end;

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows,
  ShellAPI;

// high-level wrapper, see Ian Boyd's answer for details on this function
function IsUserAnAdmin(): BOOL; external shell32;

begin
  if IsUserAnAdmin() then
    Writeln('TEH R00T OMG')
  else
    Writeln('rtfmnoobkthx');

  Readln;
end.

La manière recommandée par Microsoft de résoudre ce problème: diviser l'application en deux.

http://msdn.microsoft.com/en-us/library/ aa511445.aspx

La première application vérifie s'il est nécessaire d'exécuter le second.

La deuxième application contient un manifeste "exige admin" (comme David écrit) et que vous l'ouvrez avec le verbe de ShellexecuteEx 'Runas'.

En cas de mise à jour du Web, le flux de travail pourrait être comme celui-ci:

updater1.exe

1. vérifie s'il existe des mises à jour disponibles.
2. demande éventuellement à l'utilisateur s'il souhaite installer les mises à jour.
3. Télécharge les mises à jour d'un emplacement temporaire.
4. Runs Updater2.exe avec ShellexecuteEx et le verbe 'Runas'.

   updater2.exe

   1. sera évalué sur UAC si les utilisateurs confirment l'invite ou ne seront pas du tout exécutés.
   2. peut alors copier les fichiers de l'emplacement Temp vers l'emplacement final.

      Cela présente plusieurs avantages:

      • Le programme de mise à jour2 ne contient que les opérations minimales à exécuter élevées.
      • La mise à jour2 peut faire partie des fichiers téléchargés.
      • Il n'est pas nécessaire de vérifier aucun privilège, l'UAC prend en charge cela.

        Cela fonctionne également sur Windows XP, vous vous présenterez avec une boîte de dialogue Connexion si vous n'êtes pas un administrateur.

jwscl (la bibliothèque de Security Jedi Windows) a une fonction pour cela: JwcheckadministratorAccess .

Uses
  JwsclToken;

IsElevated := JwCheckAdministratorAccess;

J'ai testé ce code avec Delphi 7, sous Windows XP, 7 et 8 (administrateur et comptes limités): xxx