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 |
|
Дружественная тема в Варезнике
