| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Переобразование переменной. [D6, WinME]
Kalmykov Sergei © (2004-03-30 13:39:00)Есть процедура для смены картинки рабочего стола, путь к картинке
храниться в переменной типа string как его переобразовать в тип PWideChar ?
USES ComObj, ShlObj;
{$R *.dfm}
procedure ChangeActiveWallpaper(path :pwidechar);
const
CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';
var
ActiveDesktop: IActiveDesktop;
begin
ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
as IActiveDesktop;
ActiveDesktop.SetWallpaper(path, 0);
ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
end;
Kalmykov Sergei (2004-03-30 17:51:00) [1]Спасибо, заработало
VMcL (2004-03-30 16:37:00) [2]ChangeActiveWallpaper(PWideChar(WideString(...)))
| |
