Подписаться на RSS рассылку
Главная » Статьи по Delphi » Операционная система » Как установить обои Windows програмно

Как установить обои Windows програмно

Автор: Борисов Сергей

procedure SetWallpaper(S:PChar);
begin
  SystemParametersInfo(SPI_SETDESKWALLPAPER,0,S,SPIF_SENDWININICHANGE);
end;

где S - путь к файлу

Просмотров: 3949

Обсудить на форуме


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта