Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 5 558

/ вопрос решён /

Здравствуйте!
Как программно изменить фон рабочего стола на !!!WINDOWS 7!!!
пример которыми пестрит поск:

procedure TForm1.Btn1Click(Sender: TObject);
var
  Reg: TRegIniFile;
begin
  Reg := TRegIniFile.Create('Control Panel');
  Reg.WriteString('desktop', 'Wallpaper', 'C:\Users\Иван\Desktop\Снимок.png');
  Reg.WriteString('desktop', 'TileWallpaper', '0');
  Reg.Free;
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;
почему то не работает.. думаю он под XP

Примечание #1 (8 августа 2011, 18:54):
прошу прощение всё работает, но только с изображениями *.BMP;

ierihon1 Вопрос решён, но можно продолжить его обсуждение в мини-форуме

Вопрос задал: ierihon1 (статус: 1-ый класс)
Вопрос отправлен: 8 августа 2011, 18:51
Состояние вопроса: решён, ответов: 0.


Мини-форум вопроса

Всего сообщений: 1; последнее сообщение — 8 августа 2011, 20:50; участников в обсуждении: 1.

8 августа 2011, 18:55: Статус вопроса изменён на решённый (изменил автор вопроса — ierihon1)

bugmenot

bugmenot (статус: 3-ий класс), 8 августа 2011, 20:50 [#1]:

возможно вы имели ввиду пестрит моск
от этого сниппета моск действительно пестрит...
виконання програми розпочинається з того самого мiсця, де призупинилося.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 22 января 2022, 12:06
Выполнено за 0.02 сек.
Рейтинг@Mail.ru