davidgray
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Zloy_Gelud Я всё по поводу обоев на рабочий стол. Если сделать через слайд шоу , если кликаешь по картинке которая сейчас отображается, и этот код применяется к этой картинке. И текущая картинка устанавливается фоном на рабочий стол. этот код: local tProp = Image.GetProperties(this); local sImagePath = tProp.ImageFile; Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "Wallpaper", sImagePath, REG_SZ); -- Расположение: "По центру" Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "TileWallpaper", "0", REG_SZ); Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "WallpaperStyle", "0", REG_SZ); local sAppPath = Shell.GetFolder(SHF_APPLICATIONDATA_LOCAL).."\\Microsoft"; local sRet = WinApi.ImageConvertTo(sImagePath, sAppPath.."\\_wallpaper.bmp"); if sRet == "OK" then DLL.CallFunction("user32.dll", "SystemParametersInfoA", "20,0,\""..sAppPath.."\\_wallpaper.bmp\",1", DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL); end | Всего записей: 7 | Зарегистр. 18-11-2011 | Отправлено: 15:22 28-11-2011 | Исправлено: davidgray, 15:39 28-11-2011 |
|