Форум: "Основная";
Текущий архив: 2015.05.10;
Скачать: [xml.tar.bz2];

Вниз

повышение привелегий с помощью 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;


---

← →
uniken1 ©   (2012-02-28 13:10) [3]

CRLF, P Спасибо.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2015.05.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.002 c