| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Рабочий стол [D7, XP]
Герасим © (2007-05-20 15:26:00)Привет, ребята!
Решил написать прогу для управления рабочим столом - смены обоев.
Все что нужно - реализовано. Осталось только одно - функция смены обоев.
Придумать ничего толком не смог - опыта мало. Поэтому нашел в сети одну прекрасную реализацию. Только вот столкнулся с одной проблемой.
Сменить получается, если указать в строковой переменной имя файла и путь к нему. Но у меня задумка в использовании списка - ListBox.
Пробовал много различных вариантов - ничего не работает.
Помогите пожалуйста, как обойти такую неприятность.
Привожу полный фрагмент функции.
uses
ComObj, ShlObj.
procedure MyWalpapper;
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
as IActiveDesktop;
ActiveDesktop.SetWallpaper('C:\picture.jpg', 0); // Здесь! Хотелось бы имя файла засунуть в строковую переменную
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;
{RASkov} (2007-05-20 15:53:00) [1]> [0] Герасим (20.05.07 15:26)
procedure MyWalpapper(const S: String);
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
as IActiveDesktop;
ActiveDesktop.SetWallpaper( StringToOleStr(S), 0); //Здесь! Хотелось бы имя файла засунуть в строковую переменную
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;
Вызов MyWalpapper(ListBox.Items[ListBox.ItemIndex]);
Соответственно в листбоксе пути к файлам картинок.....
homm (2007-05-20 15:44:00) [2]> Но у меня задумка в использовании списка - ListBox.
Не понял, листбокс будет в качестве обины?
si (2007-05-20 15:42:00) [3]ну и в чем проблема то?
var
file_patch:string;
...
file_patch:='C:\picture.jpg'
ActiveDesktop.SetWallpaper(file_patch, 0);
| |
