Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi LMD-Tools NG Connection кастомная авторизация Как можно реализовать кастомный интерфейс авторизации? Или хотя бы связать авторизационный браузер с браузером на форме? В описании есть вот это Custom Authentication User Interface NG-ConnectionPack provides TAuthUI abstract base class for those who want to implement his own customized authentication user interface. This is an advanced task, and NG-ConnectionPack source code should be... https://www.cyberforum.ru/ delphi-beginners/ thread2046898.html	Потоковое шифрование Delphi Доброго времени суток, подскажите пожалуйста полный алгоритм превращения текста в шифротекст при помощи сдвиговых регистров с линейной обратной связью LFSR. Суть в том, что сам алгоритм генерации ключей я примерно понял, но как именно применить ключи не могу придумать, мне кажется там может быть несколько вариантов. И еще одно пояснение_)) что-то вроде 1)берем текст 2)переводим его в двоичный...
Delphi Окно при открытии (Delphi 2010) https://www.cyberforum.ru/ delphi-beginners/ thread2046781.html При открытии программы вылезает такое: Что ему надо?	Delphi Вертикальная ориентация текста https://www.cyberforum.ru/ delphi-beginners/ thread2046779.html Добрый день Уважаемые форумчане! Прошу Вашей помощи для доработки кода, представленного ниже: procedure TForm4.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var LFont: TLogFont; hOldFont, hNewFont: HFont; begin if (ACol>0) and (ARow=0) then
Блок схема для базы данных Delphi Здравствуйте, у меня база данных нужно сделать к ней блок схему,но я не знаю как правильно составить и у меня нет времени для неё, если понадобится скину больше информации. Спасибо! unit Unit1; interface uses	Delphi Кто может скомпилировать? https://www.cyberforum.ru/ delphi-beginners/ thread2046558.html
Delphi Работа с API VK или как найти репост в TChromium? В общем я не знаю в какой раздел помещать эту тему. Спарсить страницу в Chromium я смогу. Хочется эстетики и без хромиума. Задача: Пользователь заходит в оболочку, в оболочке он может указать ссылку на свою страницу ВК (тут вопрос к скрытым страницам вконтакте), поэтому собственно и стоит вопрос о API VK. Ищем решение "покрасивее" Допустим: есть доступ к аккаунту в нем есть пост репост... https://www.cyberforum.ru/ delphi-beginners/ thread2046548.html	Обновление программы Delphi Как делается обновление программы? Вот стартовые параметры: Есть оболочка, при загрузке получаю с базы данных значение "ЕстьОбноваИлиНет", если True ( 1 ) то показываю кнопку для получения обновления. Вот, на сайте, на хостинге, лежит файл: Update.exe (или какой? Предложите) Вопрос 1: Как его скачать программой, запустить (ну это ладно, наверно как-то так) ShellExecute(0, 'open',...
Delphi Обращение к скрытому полю Edit https://www.cyberforum.ru/ delphi-beginners/ thread2046449.html Привет! Внеочередная странность, есть панель, на ней несколько Edit, во время инициализации панель скрыта visible = false. При нажатии на кнопку отображающую панель происходит запрос к базе данных и полученными данными заполняются поля. PS: вдруг важно, панель находится в ещё одной панели. затем переходим на другую панель, в ней кнопка, при нажатии по которой вызываю ShowMessage и хочу...	Delphi TMS Cloud Pack AdvDropBox не приходит AccesToken https://www.cyberforum.ru/ delphi-beginners/ thread2046393.html После авторизации не получаю accestoken, который необходим для отправки запроса на скачивание файлов итд. во-первых, событие ReceivedAccessToken не отлавливается во-вторых, в скачанном по запросу файле такой текст Error in call to API function "files/download": Invalid authorization value in HTTP header "Authorization": "Bearer". Expecting "Bearer <oauth2-access-token>". а этого...
Написать код по пунктам Delphi 1. Дано натуральное число(более четырех знаков): –найти сумму цифр числа, кратных 3; –верно ли, что число содержит четные цифры? 2. Найти все трехзначные числа из промежутка , такие, что сумма их цифр равна 9, а само число делится на 5. 3. Найти сумму чётных делителей целого положительного числа, лежащих в промежутке,если таковые имеются. 4. Вычислить значение функции F(x, y) для значений...	Delphi Вычислить значение функции Напишите Код на Delphi 1. Дано натуральное число(более четырех знаков): –найти произведение цифр числа, меньших 7; –верно ли, что в числе нет цифры А(А вводить с клавиатуры)? 2. Найти все трехзначные числа из промежутка (100; 950], такие, что при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, а при увеличении на 3 делятся на 4. 3. Найти произведение нечетных делителей... https://www.cyberforum.ru/ delphi-beginners/ thread2046298.html

AVolkof

2 / 2 / 0

Регистрация: 02.01.2016

Сообщений: 82

Записей в блоге: 2

RegReplaceKey из приложения сервиса (от Locsl system) - Delphi - Ответ 10792305

30.09.2017, 19:22. Показов 777. Ответов 4

Метки (Все метки)

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

Доброго времени.
Нижеприведенный код работает при запуске приложения от имени администратора,
а также из приложения, запущенного через планировщик от имени пользователя "система".
Если же ту же программу запустить из сервиса, работающего под учеткой "Local system",
то Reg.ReplaceKey не отрабатывает, возвращая false.
Если заменить на API-шную RegReplaceKey, то возвращает 5 (отказано в доступе).
По идее, привилегии бэкап и ресторе должны быть, и даже MSDN запрещает их получать,
но я всё равно пробовал )
Что винде не нравится?

Delphi

function RegOffReplace(const HiveName: string; const HiveFile: string): boolean;
 const
 KEY_WOW64_64KEY = $0100;
var
 Reg: TRegistry;
 bakup: string;
 PatchedFile: string;
begin
 Result:= false;
 PatchedFile:= HiveFile;
 bakup:= PatchedFile+'.bakup';
 Reg:=TRegistry.Create(KEY_ALL_ACCESS);
 Reg.RootKey:=HKEY_LOCAL_MACHINE;
 Reg.Access := KEY_WOW64_64KEY or KEY_ALL_ACCESS;
 if Reg.ReplaceKey(HiveName,PatchedFile,bakup) then Result:= true;
 CopyFile(PChar(PatchedFile),PChar(PatchedFile+'.test'), false); // Для проверки, работает
end;

Вернуться к обсуждению:
RegReplaceKey из приложения сервиса (от Locsl system) Delphi

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

30.09.2017, 19:22

Готовые ответы и решения:

RegReplaceKey выдает ошибку
Доброго времени суток всем. Возникла проблема с RegReplaceKey. сохраняю один из подключей ветки...

Запуск приложения из сервиса
Добрый день! Проблема: Есть сервис работающий под SYSTEM, из данного сервиса требуется вызывать...

Запуск приложения из сервиса
Добрый день. Создал свой первый сервис, пытаюсь вызвать из него приложение. Код сервиса...

Запуск приложения из windows сервиса
Здравствуйте! Помогите решить следующую проблему: Написал винд. сервис, который при наступлении...

	30.09.2017, 19:22

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

30.09.2017, 19:22

Помогаю со студенческими работами здесь

OnTouchListener вне приложения (из сервиса)
Здравствуйте. Вопрос такой как слушать нажатия по экрану вне запущенного приложения например из...

Запуск приложения и сервиса после ребута
Реализовал запуск приложения и сервиса (фоном) после ребута устройства. Но как обычно в зоопарке...

Перезагрузка сервиса после выгрузки приложения из памяти
Привет, Есть сервис, запускается из активити, примерно так: startService(new Intent(this,...

Как после старта сервиса сообщить init-процессу об успешном/безуспешном запуске сервиса?
Нужно при после старта сервиса сообщить init-процессу о статусе запуска сервиса, т.е. успешно или с...

Наверх