Текущий архив: 2004.05.16;
Скачать: CL | DM;

Вниз

Переобразование переменной.   Найти похожие ветки 

← →
Kalmykov Sergei   (2004-03-30 13:39) [0]

Есть процедура для смены картинки рабочего стола, путь к картинке
храниться в переменной типа 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;

---

← →
VMcL ©   (2004-03-30 16:37) [1]

ChangeActiveWallpaper(PWideChar(WideString(...)))

---

← →
Kalmykov Sergei   (2004-03-30 17:51) [2]

Спасибо, заработало

---

Страницы: 1 вся ветка

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.044 c