Вверх ↑
Этот топик читают: Гость
Ответов: 824
Рейтинг: 138
#16: 2017-03-24 22:31:07 ЛС | профиль | цитата
Sersey писал(а):
И вообще. Это зачем нужно?
А разве в первом посте не написано?
карма: 1

0
Ответов: 537
Рейтинг: 14
#17: 2017-03-24 22:32:28 ЛС | профиль | цитата
Ну для чего нужно повышать права доскупа. И так понятно зачем. Но пример не робит

Редактировалось 3 раз(а), последний 2017-03-24 22:37:56
карма: 4

0
Ответов: 824
Рейтинг: 138
#18: 2017-03-24 22:43:41 ЛС | профиль | цитата
У меня прекрасно компилируется.
Обновите HiAsm. Как сделать.
карма: 1

0
Ответов: 537
Рейтинг: 14
#19: 2017-03-24 22:49:30 ЛС | профиль | цитата
Я давно нарыл этот компонент на форуме и пробывал его испытать, запускал с виртуалки с именем гостя, пользователя. То-есть он из пользователя делает админа? И права админа получает программа? Я проверку делал по точке onYesAdmin если да то да
карма: 4

0
Ответов: 824
Рейтинг: 138
#20: 2017-03-24 22:54:16 ЛС | профиль | цитата
он из пользователя НЕ делает админа.
карма: 1

0
Ответов: 165
Рейтинг: 6
#21: 2017-03-25 12:16:43 ЛС | профиль | цитата
sashaoli, можете доработать компонент? Необходима точка переменной, с которой будут браться параметры для запускаемого или перезапускаемого приложения.
карма: 4

0
Ответов: 824
Рейтинг: 138
#22: 2017-03-25 13:29:55 ЛС | профиль | цитата
То есть, Var-точка со значением: "1" - программа имеет привилегии администратора, "0" - не имеет привилегий администратора.
Я правильно понял?
карма: 1

0
Ответов: 537
Рейтинг: 14
#23: 2017-03-25 15:07:25 ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2017-03-25 16:42:10
карма: 4

0
Ответов: 824
Рейтинг: 138
#24: 2017-03-25 17:01:40 ЛС | профиль | цитата
Компонент обновлен - добавлена Var-точка "IsElevated"
Содержит: 1 - если программа имеет привилнгии администратора; 0 - не имеет привилегий администратора

Смотри первый пост.
карма: 1

0
файлы: 1AdminAppEx_1.6.zip [48.5KB] [776]
Ответов: 165
Рейтинг: 6
#25: 2017-03-26 10:49:14 ЛС | профиль | цитата
sashaoli, эм нет. В вашем компоненте происходит запуск этой же программы. В компоненте WinExec есть переменная "Params=Параметры запуска приложения". Вот именно это и хотелось бы видеть в вашем компоненте.

Это позволит создавать вот такие программы (передать параметр запускаемой программе сейчас, к сожалению, невозможно):

Add(MainForm,2953706,63,154)
{
Color=16777215
Caption=""
Position=1
link(onCreate,8914168:doRead,[])
}
Add(AdminAppEx,3155682,224,266)
{
AppletClose=1
link(onYesAdmin,3429786:doWork3,[(352,272)])
link(onNoAdmin,3155682:doElevatePrivilege,[(269,279)(269,307)(212,307)(212,279)])
}
Add(Message,16328866,154,259)
{
Message="Добавить в автозагрузку для всех пользователей? Требуются права администратора."
Caption="Autoload"
Type=2
Icon=2
Point(onYES)
link(onYES,3155682:doCheckPrivilege,[])
}
Add(Application,1934255,147,98)
{
}
Add(ArrayRW,8914168,154,168)
{
Index=Integer(0)
link(onRead,11773814:doCompare,[])
link(Array,1934255:Params,[])
}
Add(Button,15318742,91,259)
{
Left=10
Top=10
Caption="Autoload"
link(onClick,16328866:doMessage,[])
}
Add(If_else,11773814,224,168)
{
Op2=String(autoload)
link(onTrue,14819387:doCheckPrivilege,[])
}
Add(AdminAppEx,14819387,294,168)
{
link(onYesAdmin,3429786:doWork1,[(352,174)])
}
Add(Registry,10727498,399,196)
{
HKey=2
Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Value="MyApp"
link(Data,1934255:AppFileName,[(405,152)(153,152)])
}
Add(HubEx,3429786,348,203)
{
link(onEvent,10727498:doWrite,[])
}
Add(PointHint,15505803,-14,224)
{
Info=#74:Ниже нехватает точки, куда подать параметры, как в WinExec (вторая сверху)|
Width=491
}
Add(WinExec,4885517,217,329)
{
link(Params,15505803:Var,[(230,293)(231,293)])
}

карма: 4

0
Ответов: 824
Рейтинг: 138
#26: 2017-03-26 12:26:15 ЛС | профиль | цитата
Nickname, Компонент не предназначен для запуска сторонних программ и вообще для запуска чего либо.
Он предназначен только для ОДГО - проверки имеет ли запускаемая программа (в которой используется компонент) права администратора или нет.
И ВСЕ!
карма: 1

0
Ответов: 165
Рейтинг: 6
#27: 2017-03-27 00:27:11 ЛС | профиль | цитата
sashaoli, а что делает метод doElevatePrivilege? Разве не запускает эту же программу с повышением привилегий? Туда нельзя добавить параметры для запуска?

--- Добавлено в 2017-03-27 00:35:07

Я имею в виду параметры, с которыми запустится это же приложение с повышенными привилегиями. Не какое-то другое приложение. Уже не знаю, как объяснить, вроде понятно пишу, а вы не так понимаете.

--- Добавлено в 2017-03-27 00:40:06

Для примера заменил ваш элемент мультиком с добавленной точкой


Add(Memory,503160,406,273)
{
Default=String(autoload)
}
Add(MainForm,3099816,245,210)
{
Color=16777215
Caption=""
Position=1
link(onCreate,8914168:doRead,[])
}
Add(Message,16328866,336,315)
{
Message="Добавить в автозагрузку для всех пользователей? Требуются права администратора."
Caption="Autoload"
Type=2
Icon=2
Point(onYES)
link(onYES,15204057:doCheckPrivilege,[])
}
Add(Application,1934255,329,154)
{
}
Add(ArrayRW,8914168,336,224)
{
Index=Integer(0)
link(onRead,11773814:doCompare,[])
link(Array,1934255:Params,[])
}
Add(Button,15318742,273,315)
{
Left=10
Top=10
Caption="Autoload"
link(onClick,16328866:doMessage,[])
}
Add(If_else,11773814,406,224)
{
Op2=String(autoload)
link(onTrue,14819387:doCheckPrivilege,[])
}
Add(AdminAppEx,14819387,476,224)
{
link(onYesAdmin,3429786:doWork1,[(534,230)])
}
Add(Registry,10727498,581,252)
{
HKey=2
Key="SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Value="MyApp"
link(Data,1934255:AppFileName,[(587,208)(335,208)])
}
Add(HubEx,3429786,530,259)
{
link(onEvent,10727498:doWrite,[])
}
Add(MultiElementEx,15204057,406,322)
{
@Hint=#15:Вот, что нужно!|
link(onYesAdmin,3429786:doWork3,[(534,328)])
link(onNoAdmin,15204057:doElevatePrivilege,[(452,335)(452,365)(394,365)(394,335)])
link(Params,503160:Value,[])
AddHint(12,-34,92,13,@Hint)
}
BEGIN_SDK
Add(EditMultiEx,9683834,21,21)
{
WorkCount=#16:doCheckPrivilege|18:doElevatePrivilege|
EventCount=#10:onYesAdmin|9:onNoAdmin|
DataCount=#107:Params=Параметры, с которыми будет запущена копия приложения или оно же после закрытия (при AutoClose=True)|
}
END_SDK


Редактировалось 2 раз(а), последний 2017-03-27 00:40:06
карма: 4

0
Ответов: 70
Рейтинг: 1
#28: 2022-11-01 03:08:22 ЛС | профиль | цитата
А можно узнать почему убран компонент AdminApp? Ведь порой полезнее, чем AdminAppEX
карма: 0

0
28
Сообщение
...
Прикрепленные файлы
(файлы не залиты)