Запрос прав админа

@kolay_ne · Регистрация: 07.03.2016

Студворк — интернет-сервис помощи студентам

Некоторые программы должны иметь разный уровень доступа в зависимости от ситуации. Например, WinRar. Просто так ему нужен обычный доступ. Но если я прошу его распаковать файлы, например, в корень диска C, то он спрашивает у меня права админа. Ясно, что WinRar написан не на Паскале, но я надеюсь, что в нем тоже есть какая-нибудь штука, которая запрашивает права админа.

@volvo · 14.07.2017, 12:33

Меня больше интересует, почему вопрос задается здесь? Ты запускаешь WinRAR из своего приложения на Паскале, что-ли? Если нет - то теме место в разделе по Windows где-нибудь.

@kolay_ne · 14.07.2017, 12:37 **[ТС]**

volvo, Почему? Код-то на паскале...

@volvo · 14.07.2017, 13:22

Где код-то? Чей код на Паскале? Я и спрашиваю, ты что, из своего приложения запускаешь WinRAR? Что за люди. Упорно читают только последние несколько слов в посте...

@Zwelenewskiy · 14.07.2017, 13:28

volvo, нужно программно сделать так,чтобы запуск программы,написанной на Паскале, осуществлялся с запросом прав администратора

@volvo · 14.07.2017, 13:30

Это твое мнение. Мне нужен ответ ТС-а, что нужно ему.

@kolay_ne · 14.07.2017, 13:43 **[ТС]**

Сообщение от volvo

ты что, из своего приложения запускаешь WinRAR?

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

Не по теме:

Сообщение от volvo

Упорно читают только последние несколько слов в посте...

А вот и нет. Я очень люблю читать длинные тексты...

Добавлено через 1 минуту

Сообщение от volvo

Мне нужен ответ ТС-а, что нужно ему

Ну... Если он посчитает, что ему надо переместить тему, он ее переместит... Нет?

@volvo · 14.07.2017, 13:55

Сообщение от kolay_ne

Но код, в котором мне это нужно - на паскале

Ты нормально вопрос задать можешь? Чего надо-то в итоге? Покажи код, чтобы было понятнее, о чем речь вообще. Приплел какой-то WinRAR ни к селу ни к городу. Оказывается, он и не нужен вообще. А если б я начал писать код, который дает права админа WinRAR-у. Его что потом, выкинуть, ибо тебе он, оказывается, и ни к чему?

Короче так: нет конкретного кода (полного кода, который можно взять, откомпилировать и запустить, а не терять часы на выяснение, какого типа та или иная переменная, или где описано то или иное) с комментариями "вот так я запускаю, оно не работает, мне надо чтобы вот это и это было с правами администратора" - иди в Гугл и ищи форумы телепатов. Надоело.

@kolay_ne · 14.07.2017, 17:27 **[ТС]**

Сообщение от volvo

Ты нормально вопрос задать можешь? Чего надо-то в итоге?

Надо чтобы программа получила админские права так, как это делает WinRar если попросить его извлечь в админскую папку.

Сообщение от volvo

Покажи кусок кода, чтобы было понятнее, о чем речь вообще

Во-первых, кода еще нет, во-вторых, эта задача вообще не связана с остальным кодом.

Сообщение от volvo

А если б я начал писать код, который дает права админа WinRAR-у

WinRar сам себе делает права админа. А я хочу так же. Поэтому про него написал.

Сообщение от volvo

иди в Гугл и ищи

Пробовал

Не по теме:

Сообщение от volvo

форумы телепатов

Боюсь, таких не существует. По крайней мере, открыто они об этом не заявляют. Да и вообще не хочу с ними связываться - мало ли что лишнее прочитают... ;)

Добавлено через 3 часа 21 минуту
volvo, Так как сделать запрос на админские права?

@Соколиный глаз · 17.07.2017, 16:39

Сообщение от kolay_ne

Некоторые программы должны иметь разный уровень доступа в зависимости от ситуации. Например, WinRar. Просто так ему нужен обычный доступ. Но если я прошу его распаковать файлы, например, в корень диска C, то он спрашивает у меня права админа. Ясно, что WinRar написан не на Паскале, но я надеюсь, что в нем тоже есть какая-нибудь штука, которая запрашивает права админа.

Просто поменять что-то в настройках WinRAR программно через Pascal что ли?

@Zwelenewskiy · 17.07.2017, 16:56

Volobuev Ilya, WinRAR вообще никак в делу не относится)) Нужно сделать так,чтобы при запуске программы у нее появлялись права админа

@kolay_ne · 17.07.2017, 17:14 **[ТС]**

Volobuev Ilya,

Сообщение от Zwelenewskiy

Нужно сделать так,чтобы при запуске программы у нее появлялись права админа

Точно так

@Joy · 17.07.2017, 20:57

по правой кнопке мыши - запуск с правами системного администратора уже не катит?
тогда как-то так:
https://msdn.microsoft.com/ru-... px#Примеры
и
https://social.msdn.microsoft.... m=winforms

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses System.Diagnostics;
begin
  var t:ProcessStartInfo:=new ProcessStartInfo('c:\windows\notepad.exe');
  t.UseShellExecute:=true;
  t.Verb:='runas';
  try
    Process.Start(t);
  except 
    writeln('ошибка');
  end;
end.

@kolay_ne · 17.07.2017, 22:23 **[ТС]**

Joy, нет, я имел в виду _запрос_ на права админа для _меня_. То бишь я хочу чтобы мой процесс получил права админа. Я хочу чтобы пользователь увидел системный запрос на права админа для моего приложения.

Добавлено через 9 минут
Вот, например, я запускаю установщик чего-нибудь. Первое, что я вижу (не считая всяких предупреждений от браузера) - окошко в серединке (когда остальная часть экрана затемнена), которое спрашивает, разрешаю ли я ей запуститься с правами админа

@volvo · 17.07.2017, 22:53

Сообщение от kolay_ne

права админа для _меня_

получаются добавлением манифеста, в котором указывается, что приложению нужны права админа. Раз и навсегда. При старте. Изменить это в середине работы уже нельзя.

@kolay_ne · 18.07.2017, 08:28 **[ТС]**

Сообщение от volvo

получаются добавлением манифеста, в котором указывается, что приложению нужны права админа

Ура!!! Слушайте, неужели я действительно так плохо объясняю, что только через три дня после создания темы мы дошли до этого? Мне кажется, мне это и нужно! Как это сделать?

Не по теме:

Как же тогда работает WinRar? Я его запускаю, он работает как обычно, а потом, когда ему нужны права админа, он показывает запрос на права админа...

Убежденный · 18.07.2017, 14:36

Сообщение от kolay_ne

Как же тогда работает WinRar? Я его запускаю, он работает как обычно, а потом, когда ему нужны права админа, он показывает запрос на права админа...

Могу предположить, что WinRAR и другие программы действуют по примерно следующему алгоритму.

1. Изначально программа запускается без запроса на повышение прав ('asInvoker' в манифесте).

2. При попытке, например, создать файл где-нибудь в системной папке соответствующая функция
(CreateFile) возвращает FALSE (ошибка), при этом GetLastError() == 5, т.е. 'ERROR_ACCESS_DENIED'.

3. Программа видит, что администраторских прав у нее нету (access token процесса не
содержит enabled-группу "Администраторы" - S-1-5-32-544), поэтому перезапускает себя
через ShellExecute(Ex) с командой "runas".

Между пп. 2 и 3 можно, кстати, вывести окошечко с запросом и кнопочкой, а на кнопочке
нарисовать UAC-шильдик (за это отвечает оконное сообщение BCM_SETSHIELD).

Вместо перезапуска в некоторых случаях можно использовать "COM Elevation Moniker", хотя это сложнее.

@Cu2SO4 · 16.01.2020, 14:24

Подозреваю, что это наиболее близкая тема, к той что мне нужна. Дабы не создавать новую, реанимирую эту.

Чтоб разговор не был беспредметным вот код:

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
uses System;
var
  diskName, fileName : string;
  freeSpace : int64;
  fStream : System.IO.FileStream;
begin
  Console.Write('On which disk to create file? Enter the letter: ');
  diskName := Console.ReadLine();
  freeSpace := DiskFree(diskName);
  if freeSpace > 0 then begin
    fileName := diskName+':\xxxx.bin';
    try
      fStream := System.IO.File.Create(fileName);
      freeSpace := DiskFree(diskName);
      fStream.WriteByte(255);
      fStream.Close;
      fStream.Dispose();
    except
      Console.WriteLine('File create error. Need admin rights?');
    end;
  end else begin
    Console.WriteLine('Free space error or wrong letter.');
  end;
  Console.Write('Press any key to quit.');
  Console.ReadKey();
end.

Приложение не создает файл xxxx.bin, но если его запустить с правами админа, то создает.

Дело в том, что со временем я могу об этом забыть, поэтому вопрос такой: как внутрь этой программы прописать запрос на права администратора?. Ну или как сделать так, чтоб файл создавался без прав администратора.

Если все сведется к манифесту, то мой Гугл не знает как его делать и внедрять в exe-файл, поэтому будьте любезны, дайте ссылку.

@Sun Serega · 16.01.2020, 15:37

Боже, что за суржик древнепаскального и чрезмерно .Net-ного...

1. var должен быть после begin. Локальные переменные и по памяти, и по скорости лучше глобальных.

2. Проверять через DiskFree - говнокод. Посмотрите на System.Environment.GetLogicalDrives.

Если перевести на язык нормальных людей:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
begin
  var diskName := ReadString('On which disk to create file?{#10}Enter the letter:');
  diskName += ':\';
  
  if not System.Environment.GetLogicalDrives.Contains(diskName) then
    Writeln('Disk not found.') else
  begin
    var fileName := $'{diskName}xxxx.bin';
    try
      // Лучше создавать сразу BinaryWriter, раз файл бинарный
      var bw := new System.IO.BinaryWriter(System.IO.File.Create(fileName));
      bw.Write(byte(255));
      bw.Close;
//      bw.Dispose; // а это ни к чему, пока вы по несколько тысяч файлов в сек не создаёте
    except
      // Ловить и гасить все исключения - плохо
      // Если б вы заглянули на msdn - узнали бы что при нехватке прав бросается только это:
      on e: System.UnauthorizedAccessException do
        Writeln(e);
    end;
  end;
  
  ReadString('Press any key to quit.');
end.

---
Теперь по изначальному вопросу:

Для того чтоб засунуть манифест в .exe - используются специальные программы. Я обычно использую программу от малакасофта. Если поставите студию - она идёт в комплекте.

Но вообще это не обязательно. Можно создать файл *ИмяПрограммы*.exe.manifest рядом с .exe (в той же папке) и это уже будет работать. Но манифест применяется только 1 раз при каждом запуске .exe, поэтому если и делать это той же программой, к которой он применяется - придётся перезапустить её.

Если вам надо создать 1 файл с правами админа, а потом вернуться к обычным правам - запускайте текущий .exe ещё раз, передавая какие то специальные аргументы командной строки. А прямо при старте программы ловите эти аргументы и вместе обычного запуска - создавайте тот 1 файл.

@Cu2SO4 · 16.01.2020, 16:31

Sun Serega, СПАСИБО (В посте не ткнулось, говорю так) за красивый код.

Расположение *ИмяПрограммы*.exe.manifest радом с .exe ни на что не повлияло (может из-за win7?).
Пока скачал .res файл с манифестом, отредактировал в РесурсХакере, добавил в исходник паскаля строку
{$resource rc.res} - это все не помогло

Завтра попробую интегрировать манифест через мелкомягкую студию. О результатах отпишусь.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@kolay_ne 16 / 18 / 11 Регистрация: 07.03.2016 Сообщений: 362

	Запрос прав админа 14.07.2017, 12:24. Показов 5257. Ответов 31 Метки нет (Все метки) Некоторые программы должны иметь разный уровень доступа в зависимости от ситуации. Например, WinRar. Просто так ему нужен обычный доступ. Но если я прошу его распаковать файлы, например, в корень диска C, то он спрашивает у меня права админа. Ясно, что WinRar написан не на Паскале, но я надеюсь, что в нем тоже есть какая-нибудь штука, которая запрашивает права админа. 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	14.07.2017, 12:33
	Меня больше интересует, почему вопрос задается здесь? Ты запускаешь WinRAR из своего приложения на Паскале, что-ли? Если нет - то теме место в разделе по Windows где-нибудь. 0

@kolay_ne 16 / 18 / 11 Регистрация: 07.03.2016 Сообщений: 362
	14.07.2017, 12:37 [ТС]
	volvo, Почему? Код-то на паскале... 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	14.07.2017, 13:22
	Где код-то? Чей код на Паскале? Я и спрашиваю, ты что, из своего приложения запускаешь WinRAR? Что за люди. Упорно читают только последние несколько слов в посте... 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	14.07.2017, 13:28
	volvo, нужно программно сделать так,чтобы запуск программы,написанной на Паскале, осуществлялся с запросом прав администратора 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	14.07.2017, 13:30
	Это твое мнение. Мне нужен ответ ТС-а, что нужно `ему`. 0

@Zwelenewskiy 129 / 127 / 107 Регистрация: 09.01.2017 Сообщений: 1,651
	17.07.2017, 16:56
	Volobuev Ilya, WinRAR вообще никак в делу не относится)) Нужно сделать так,чтобы при запуске программы у нее появлялись права админа 0

@kolay_ne 16 / 18 / 11 Регистрация: 07.03.2016 Сообщений: 362
	17.07.2017, 22:23 [ТС]
	Joy, нет, я имел в виду _запрос_ на права админа для _меня_. То бишь я хочу чтобы мой процесс получил права админа. Я хочу чтобы пользователь увидел системный запрос на права админа для моего приложения. Добавлено через 9 минут Вот, например, я запускаю установщик чего-нибудь. Первое, что я вижу (не считая всяких предупреждений от браузера) - окошко в серединке (когда остальная часть экрана затемнена), которое спрашивает, разрешаю ли я ей запуститься с правами админа 0

@Cu2SO4 0 / 0 / 0 Регистрация: 19.12.2019 Сообщений: 11
	16.01.2020, 16:31
	Sun Serega, СПАСИБО (В посте не ткнулось, говорю так) за красивый код. Расположение ИмяПрограммы.exe.manifest радом с .exe ни на что не повлияло (может из-за win7?). Пока скачал .res файл с манифестом, отредактировал в РесурсХакере, добавил в исходник паскаля строку {$resource rc.res} - это все не помогло Завтра попробую интегрировать манифест через мелкомягкую студию. О результатах отпишусь. 0

Запрос прав админа

Решение