Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов
Перезагрузить страницу Прога не меняет фоновый рисунок
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Mistris Mistris вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.05.2008
По умолчанию 24.05.2008, 22:57

Пожалуйста откройте мне глаза на мою ошибку, потому что я ее не вижу :(
Прописала, как советовали:

implementation

Uses ShlObj, ComObj;

procedure ChangeWallpaper;
const
CLSID_ActiveDesktop: TGUID = ‘{75048700-EF1F-11D0-9888-006097DEACF9}’;
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
as IActiveDesktop;
ActiveDesktop.SetWallpaper(’d:\Обои\55160_1024_768 .jpg’, 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
ChangeWallpaper;
end;

Не работает. То есть вроде что-то происходит, но вместа новох обоев остается чистый фон. Таже беда и со вторым способом:

uses ...Registry;
...
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create('Control Panel');
Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\Установка.bmp');
Reg.WriteString('desktop', 'TileWallpaper', '0');
Reg.Free;
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
end;

Пожалуйста подскажите где я ошиблась. Заранее благодарна :)
Ответить с цитированием
  (#2 (permalink)) Старый
ToLuna ToLuna вне форума
Member
 
Аватар для ToLuna
 
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.05.2008
По умолчанию 27.05.2008, 20:13

попробуй в первом способе грузить не jpg-рисунок, а bmp.
Ответить с цитированием
  (#3 (permalink)) Старый
Mistris Mistris вне форума
Новичок
 
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.05.2008
По умолчанию 31.05.2008, 14:50

Цитата:
Сообщение от ToLuna
попробуй в первом способе грузить не jpg-рисунок, а bmp.
Попробовала. К сожалению, результат тот же...
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сворачивание в трей или в фоновый режим Денисrf Visual C++ 2 28.03.2012 20:18
Шипящий фоновый шум... Revanovish Звук и акустические системы 3 08.05.2011 13:31
Фоновый режим C# как реализовать zeharon .NET 5 04.01.2011 21:18
персонализация (не меняет фон рабочего стола) Briniuk Windows 7 9 09.11.2010 18:28
экран меняет разрешение сега Любые вопросы от новичков 3 06.09.2010 17:42
Как в windows7 поменять фоновый рисунок рабочего стола? zver87 Любые вопросы от новичков 17 26.08.2010 17:33
Из системного блока слышен фоновый писк, как устранить? leshalappo Любые вопросы от новичков 2 11.01.2009 17:27
При загрузке виндовс загружается только фоновый рисунок, рабочий стол не загружается. iva4333 Любые вопросы от новичков 6 01.11.2008 22:39
БИОС произвольно меняет параметры Constructor БИОС 2 25.10.2008 18:51
Акустика Genius SP-Q10 издает фоновый звук, гудит. Alive_UA Любые вопросы от новичков 9 20.07.2008 21:34
Нужна прога для уточнения какая прога(или процес) обрашается к харду. Технарь Софт и программы 2 10.04.2008 01:09
Пропал фоновый рисунок рабочего стола, как вернуть обратно? Aquarius Любые вопросы от новичков 2 14.03.2008 23:59



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов