Цитата:
|
Сообщение от Zorkov Igor
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1.Button1Click(Sender: TObject);
var
ShellExecuteInfo: TShellExecuteInfo;
begin
ShellExecuteInfo.cbSize:= SizeOf(TShellExecuteInfo);
ShellExecuteInfo.fMask:= 0;
ShellExecuteInfo.Wnd:= 0;
ShellExecuteInfo.lpVerb:= 'runas';
ShellExecuteInfo.lpFile:= PChar(ParamStr(0));
ShellExecuteInfo.lpParameters:= PChar('/INSTALL');
ShellExecuteInfo.lpDirectory:= nil;
ShellExecuteInfo.nShow:= SW_SHOWNORMAL;
ShellExecuteEx(@ShellExecuteInfo)
end;
|
|
Вроде то, что нужно. А нужно эмулировать нажатие ПКМ-Запуск от имени администратора. Но при вызове Эксплорер выдает следующее:
Цитата:
|
Windows не удается получить доступ к указанному устройству, пути или файлу. Возможно, у вас нет нужных разрешений для доступа к этому объекту.
|
GetLastError() при этом выдает 0
Сам экзешник с параметром /INSTALL при ПКМ-Запуск от имени администратора отрабатывает без ошибок