Рабочий стол

← →
Герасим (2007-05-20 15:26) [0]

Привет, ребята!

Решил написать прогу для управления рабочим столом - смены обоев.
Все что нужно - реализовано. Осталось только одно - функция смены обоев.
Придумать ничего толком не смог - опыта мало. Поэтому нашел в сети одну прекрасную реализацию. Только вот столкнулся с одной проблемой.
Сменить получается, если указать в строковой переменной имя файла и путь к нему. Но у меня задумка в использовании списка - 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;

← →
si (2007-05-20 15:42) [1]

ну и в чем проблема то?
var
file_patch:string;
...
file_patch:="C:\picture.jpg"
ActiveDesktop.SetWallpaper(file_patch, 0);

← →
homm © (2007-05-20 15:44) [2]

> Но у меня задумка в использовании списка - ListBox.

Не понял, листбокс будет в качестве обины?

> [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]);
Соответственно в листбоксе пути к файлам картинок.....

Рабочий стол Найти похожие ветки