UAC Button

Szukam gotowego komponentu w postaci przycisku aktywujacego okno uac.

const
  BCM_FIRST = $1600;
  BCM_SETSHIELD = BCM_FIRST + $000C;

procedure SetElevationRequiredState(aControl: TWinControl; Requiered: Boolean);
var
 i: Integer;
begin
 i := Integer(Requiered);
 SendMessage(aControl.Handle, BCM_SETSHIELD, 0, i);
end;


//wywołanie:
SetElevationRequiredState(Button1, True);