Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 07.06.2013, 01:01
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию Права администратора

Здравствуйте!
Возникла проблема с одной программой, ей нужны права администратора (хотя я и сам админ), но тем не менее она не копирует нужный файл в C:\Windows\System32..
Я в интернете видел множество кодов, которые позволяют запускать программу от и.а из обычной программы (это мне и надо)..
Но собственно проблема: в этих кодах везде нужно вводить имя пользователя и пароль
вот он то мне и не нужен (у меня нету пароля на администраторе), но когда я в место пароля ввожу пустоту
Код:
CreateProcessWithLogonW(
    'Администратор', nil, '', LOGON_WITH_PROFILE,
    StringToOleStr(ParamStr(0)),
    nil, CREATE_DEFAULT_ERROR_MODE, nil, nil, supinfo, procinfo)
то оно пишет ошибку (что то типа пароль не может состоять из пустоты)
так вот прошу помощи!
есть ли какой-то код, который может запускать программу от и.а при условии что пароля нет?
Заранее спасибо!
Ответить с цитированием
  #2  
Старый 07.06.2013, 01:52
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Нужно всего-лишь подключить манифест с "прошитыми" правами администратора.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #3  
Старый 07.06.2013, 12:41
Аватар для alexusankov
alexusankov alexusankov вне форума
Новичок
 
Регистрация: 27.08.2012
Сообщения: 78
Версия Delphi: C++/Delphi 2010
Репутация: 10
По умолчанию

Цитата:
то оно пишет ошибку (что то типа пароль не может состоять из пустоты)
так вот прошу помощи!
есть ли какой-то код, который может запускать программу от и.а при условии что пароля нет?
Сталкивался в этой проблемой, у себя в сети, нужно было отрабатывать скрипты на пачке серверов, около десяти, и руками делать это просто убивало. Может тебе поможет :
Для запуска из под админа, я юзал консольную команду RunAs (cmd.exe) с параметрами. Просит пароль собака, и ругается на пустой пасс (твой случай). Лекарство лежит в политике - Учетные записи: ограничить использование пустых паролей только для консольного входа, + опц. /savecred
Т.е. тебе можно написать батник, и стартовать его из программы (если приемлемо)
Ответить с цитированием
  #4  
Старый 07.06.2013, 14:29
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

Цитата:
Сообщение от angvelem
Нужно всего-лишь подключить манифест с "прошитыми" правами администратора.
кстати, на счет манифеста..
я читал в интернете про это, но всякий раз ничего не выходило..
можно ли более подробную инструкцию как подключить манифест?
и какой код манифеста будет наилучшим?
P.S вот это меня всегда заводит в заблуждение:
"Скомпилировать его в ресурсы: 1 24 "program.exe.manifest""
Ответить с цитированием
  #5  
Старый 07.06.2013, 16:54
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

alexusankov, аватар смени!
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #6  
Старый 07.06.2013, 23:59
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

ну так кто-нибудь подскажет мне как прикреплять манифест для повышение прав?
Ответить с цитированием
  #7  
Старый 08.06.2013, 01:04
Аватар для PhoeniX
PhoeniX PhoeniX вне форума
Always hardcore!
 
Регистрация: 04.03.2009
Адрес: СПб
Сообщения: 3,239
Версия Delphi: GCC/FPC/FASM
Репутация: 62149
По умолчанию

Если бы ты умел пользоваться поиском - давно бы нашёл.
__________________
Оставайтесь хорошими людьми...
VK id2634397, ds [at] phoenix [dot] dj
Ответить с цитированием
  #8  
Старый 08.06.2013, 01:09
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

У меня несколько по-другому расположены секции, но суть та же
Код:
<?xml version="1.0" encoding="UTF-8" standalone="yes"?> 
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity 
    version="1.0.0.0" 
    processorArchitecture="*" 
    name="DelphiWinAPI" 
    type="win32"/>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity 
        type="win32" 
        name="Microsoft.Windows.Common-Controls" 
        version="6.0.0.0" 
        processorArchitecture="*" 
        publicKeyToken="6595b64144ccf1df" 
        language="*"/>
    </dependentAssembly> 
  </dependency> 
  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
     <security>
       <requestedPrivileges>
          <requestedExecutionLevel
            level="requireAdministrator"
            uiAccess="false"/>
       </requestedPrivileges>
     </security>
  </trustInfo>
</assembly> 
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием
  #9  
Старый 08.06.2013, 02:20
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

Цитата:
Сообщение от PhoeniX
Если бы ты умел пользоваться поиском - давно бы нашёл.
ну и как я не понимал как связать manifest с *.rc так и не понимаю.

и вообще если можно, то составьте небольшой проект, к примеру запуск командной строки от имени администратора используя манифест

мне кто-то поможет?

Последний раз редактировалось M.A.D.M.A.N., 08.06.2013 в 18:10.
Ответить с цитированием
  #10  
Старый 08.06.2013, 18:10
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

Так, или пользуемся кнопкой "правка" или будет кара за оффтоп!
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
Ответить с цитированием
  #11  
Старый 09.06.2013, 00:27
Dmitry_DM Dmitry_DM вне форума
Активный
 
Регистрация: 07.08.2012
Сообщения: 258
Версия Delphi: Delphi 7
Репутация: 11
По умолчанию

короче я попытался сделать как в инструкции, вроде все вышло, но ни cmd.exe не запускается с правами админа, ни project3.exe не копируется в System32.. что это за дела такие?
если можете, посмотрите проект (делал в Delphi XE3, но проект на столько примитивен, что с этим проблем не будет)..
там я сделал ресурс, приклеил его к программе и все-равно не работает!
помогите как можно быстрее, пожалуйста!
http://us.ua/1143955/

Последний раз редактировалось Dmitry_DM, 09.06.2013 в 00:37.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 16:55.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025