повышение привелегий с помощью UAC

← →
uniken1 © (2012-02-28 10:33) [0]

Можно ли сделать часть кода, требующая админских привелегий, выполняющейся с помощью повышения привилегий UAC?
Т.е. программа запускается под пользовательскими правами, на форме есть кнопка с кодом, наприме перезапуск службы. Как сделать что бы на ней появился стандартный значек UAC, и при нажатии на нее появлялся бы диалог повышения привилегий и дальнейший код выполнялся в бы уже с повышенными привелегиями?

← →
CRLF (2012-02-28 11:54) [1]

> Как сделать что бы на ней появился стандартный значек UAC
TButton.ElevationRequired

> при нажатии на нее появлялся бы диалог повышения привилегий
Например, ShellExecute("runas", ...), запускай эту же или вспомогательную программу

← →
p © (2012-02-28 12:44) [2]

> uniken1 © (28.02.12 10:33)

uses ShellAPI; procedure TForm1.Button1Click(Sender: TObject); var ShellExecuteInfo: TShellExecuteInfo; begin Hide; ShellExecuteInfo.cbSize:= SizeOf(TShellExecuteInfo); ShellExecuteInfo.fMask:= 0; ShellExecuteInfo.Wnd:= 0; ShellExecuteInfo.lpVerb:= "runas"; ShellExecuteInfo.lpFile:= PAnsiChar(Application.ExeName); ShellExecuteInfo.lpParameters:= nil; ShellExecuteInfo.lpDirectory:= nil; ShellExecuteInfo.nShow:= SW_SHOWNORMAL; if ShellExecuteEx(@ShellExecuteInfo) then Close; Show; end;

CRLF, P Спасибо.

повышение привелегий с помощью UAC Найти похожие ветки