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

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

Здравствуйте!
Как программно изменить фон рабочего стола на !!!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;

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

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

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

bugmenot (статус: 3-ий класс), 8 августа 2011, 20:50 [#1]: возможно вы имели ввиду пестрит моск от этого сниппета моск действительно пестрит... виконання програми розпочинається з того самого мiсця, де призупинилося.

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