Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Процедура не изменяет параметр обоев 
:(
    Опции темы
6urunduk
  Дата 25.7.2010, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 27.1.2010

Репутация: нет
Всего: нет
Процедура
Код
Procedure Change;
const
 Desktop: TGuid='{75048700-EF1F-11D0-9888-006097DEACF9}';
var
 ActiveDeskTop:IActiveDesktop;
begin
 ActiveDesktop:=CreateComObject(Desktop) as IActiveDesktop;
 ActiveDesktop.SetWallpaper(StringToOleStr(Form1.FilePach.Caption),WPP);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL);
end;

(WPP:=RadioGroup1.ItemIndex[0,1,2])
не изменяет позицию рисунка на экране , т.е не изменяет параметры реестра TileWallpaper на "0" или "1" и не имеет доступа к параметру WallpaperStyle
Вопрос: возможно ли через такую процедуру получить доступ к этим параметрам или нужно использовать конструкции типа:
Код
var 
Reg: TRegIniFile; 
begin 
Reg := TRegIniFile.Create('Control Panel'); 
Reg.WriteString('desktop', 'Wallpaper', 'c:\windows\mybmp.bmp'); 
Reg.WriteString('desktop', 'TileWallpaper', '1'); 
Reg.Free; 
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE); 
end
PM MAIL   Вверх
Amphiluke
Дата 25.7.2010, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


   ☽
***


Профиль
Группа: Завсегдатай
Сообщений: 1253
Регистрация: 26.8.2009

Репутация: 6
Всего: 112
Для этого предназначен другой метод — SetWallpaperOptions.
Код

const
  Desktop: TGuid='{75048700-EF1F-11D0-9888-006097DEACF9}';
var
  ActiveDeskTop:IActiveDesktop;
  wpo: _tagWALLPAPEROPT;
begin
  ActiveDesktop:=CreateComObject(Desktop) as IActiveDesktop;
  wpo.dwSize := SizeOf(_tagWALLPAPEROPT);
  wpo.dwStyle := WPSTYLE_CENTER;
  //wpo.dwStyle := WPSTYLE_TILE;
  //wpo.dwStyle := WPSTYLE_STRETCH;
  //wpo.dwStyle := WPSTYLE_MAX;
  ActiveDesktop.SetWallpaperOptions(wpo, 0);
  ActiveDesktop.ApplyChanges(AD_APPLY_ALL);
end;
PM   Вверх
6urunduk
Дата 25.7.2010, 18:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 27.1.2010

Репутация: нет
Всего: нет
Amphiluke, спасибо, попробуем smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0410 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.