Показать сообщение отдельно
  #1  
Старый 16.06.2017, 09:14
GrabbeR GrabbeR вне форума
Новичок
 
Регистрация: 15.03.2012
Сообщения: 52
Версия Delphi: 7
Репутация: 10
По умолчанию Обои на Рабочий стол (служба)

Добрый день!
Собственно, проект Service Application. Обои устанавливаются, но при новом входе в учетную запись. Из простого приложения работает, а из службы - нет. Как сделать динамически, чтобы эффект был сразу?

Код:
  SystemParametersInfo(SPI_SetDeskWallPaper, 0, PChar('C:\1.jpg'), SPIF_UpdateiniFile);
Ответить с цитированием