Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Смена экрана блокировки (lockscreen), Windows 8 
V
    Опции темы
Albinos_x
Дата 17.4.2015, 13:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108



Доброе время суток!

собственно САБЖ, кто-нибудь пытался уже такое делать и что из этого вышло?


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
CynicRus
Дата 17.4.2015, 16:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: 1
Всего: 5



В смысле изображение поменять, или поменять весь механизм на свой самописный?
PM MAIL   Вверх
Albinos_x
Дата 17.4.2015, 16:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108



Изображение


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Illusion Dolphin
Дата 17.4.2015, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 4
Всего: 63



Я думаю что стоит посмотреть тут https://code.msdn.microsoft.com/windowsapps...sample-9ebfe147 


--------------------
В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5
PM MAIL WWW ICQ   Вверх
Albinos_x
Дата 18.4.2015, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108



Illusion Dolphin, смотрел.. но в XE2 нет таких модулей для того чтоб подгрузить этот класс и функцию... и библиотеку нужную пока также не удалось найти...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
CynicRus
Дата 18.4.2015, 11:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: 1
Всего: 5



Можно поковырять в этом направлении: https://github.com/tgerdes/DelphiWinRT/

Ну и в довесок:http://www.thomgerdes.com/2011/12/writing-...-in-delphi.html

Это сообщение отредактировал(а) CynicRus - 18.4.2015, 11:26
PM MAIL   Вверх
Poseidon
Дата 18.4.2015, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 10
Всего: 133



Цитата(Albinos_x @  18.4.2015,  09:15 Найти цитируемый пост)
но в XE2 нет таких модулей для того чтоб подгрузить этот класс и функцию..
Поддержка механизмов Windows 8 появилась только в XE3



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Albinos_x
Дата 18.4.2015, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108



Poseidon, это я понимаю... но не думаю, что нельзя написать приложение с данной функцией)

Добавлено через 6 минут и 45 секунд
пока я нашел способ, как использовать данное пространство имен в powershell:
Код

$NULL = [Windows.System.UserProfile.LockScreen, Windows.System.UserProfile, ContentType = WindowsRuntime]
[Windows.System.UserProfile.LockScreen]::OriginalImageFile


если powershell может загрузить данные значит и в программе своей можно... думаю, может через COM можно сделать...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Albinos_x
Дата 20.4.2015, 16:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108



хм... в XE8 я тоже не нашел заготовленного такого класса... хоть это и Windows API Core...(


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Albinos_x
Дата 23.4.2015, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 3
Всего: 108



в общем до API core достучаться не смог(

вот здесь предлагали через захват прав и подмену изображений либо GPO
http://forum.oszone.net/thread-248582.html

в общем реализовал аналог GPO - т.к. у меня корпоративное решение то вариант подходит
Код
...
...
////////////////////////////////////////////////////////////////////////////////
// установка экрана блокировки для ПК
Function SetLockScreenWin8Sys(FileName:String):boolean;
var Reg: TRegistry;
begin
Result:=True;
try
  try
     Reg:=TRegistry.Create;
     Reg.RootKey:= HKEY_LOCAL_MACHINE;
     { открываем и создаём ключ }
     if not Reg.OpenKey('SOFTWARE\Policies\Microsoft\Windows\Personalization', True) then
        Result:=False
        else { записываем значение }
        begin
        Reg.WriteString('LockScreenImage',FileName);
        Reg.WriteInteger('NoChangingLockScreen',1);
        if Is64BitWindows then  // проверка на битность
           begin
           if not Reg.OpenKey('SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Personalization', True) then
              Result:=False
              else { записываем значение }
              begin
              Reg.WriteString('LockScreenImage',FileName);
              Reg.WriteInteger('NoChangingLockScreen',1);
              end;
           end;
        end;
     finally
       Reg.Free;
       end;
  except
     Result:=False;
     end;
end;    {Function SetLockScreenWin8Sys(FileName:String):boolean;}
////////////////////////////////////////////////////////////////////////////////


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

по идее на 10-ке тоже работает, но пока не проверил

Это сообщение отредактировал(а) Albinos_x - 23.4.2015, 18:06


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.1430 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.