Disable UAC (User Account Control)

Die Benutzerkontensteuerung (User Account Control, UAC) ist ein wichtiger Bestandteil der Windows-Sicherheit. UAC verringert das Risiko von Schadsoftware, indem die Fähigkeit von schadhaftem Code eingeschränkt wird, mit Administratorrechten auszuführen.

Wer sich davon gestört fühlt, kann mithilfe der Registrierung diese abschalten.

uses Registry

procedure DisableUAC(bTF: Boolean);
var  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('SOFTWARE', True);
    reg.OpenKey('Microsoft', True);
    reg.OpenKey('Windows', True);
    reg.OpenKey('CurrentVersion', True);
    reg.OpenKey('Policies', True);
    reg.OpenKey('System', True);

    if bTF = True then
    begin
      reg.WriteInteger('EnableLUA', 0); // Ausschalten
    end else

    if bTF = False then
      begin
    reg.WriteInteger('EnableLUA', 1);  // Einschalten
    end;
    finally
  reg.CloseKey;
  reg.Free;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DisableUAC(true); // UAC Ausschalten

  DisableUAC(false); // UAC Einschalten
end;

So kann man den Schlüssel Prüfen :

procedure TForm1.Button1Click(Sender: TObject);
var reg : TRegistry;
    a : integer;
begin
  begin reg:= TRegistry.Create; reg.RootKey:= HKEY_LOCAL_MACHINE;
    if reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System', false)
    then
    try
    begin
      if reg.ValueExists('EnableLUA') then begin
          a := reg.ReadInteger('EnableLUA');
          if a = 0 then begin
          Label1.Caption := 'disable';
          end else begin
          Label1.Caption := 'enable';
          end; end;
      if not reg.ValueExists('EnableLUA') then begin
          Label1.Caption := 'key not exists';
          end;
    end;
    finally
    reg.CloseKey;
    reg.Free;
    end;
  end;
end;