HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
1007
yahaHSP windowsの壁紙変更2解決


yaha

リンク

2015/10/7(Wed) 16:56:36|NO.72153

hspでWindowsの壁紙を変えるプログラムを組みたいです。

実行したら指定していた壁紙に変わっている、みたいなのを作りたいです。

コピペできるように、そのまま載せてほしいです。



この記事に返信する


Mituki_197

リンク

2015/10/7(Wed) 17:41:13|NO.72156

いろいろ、GGしましたか?
こちらです。
Kpanさんからもらいました。

// ActiveDesktopインターフェイスによる壁紙の変更 (By Kpan) #define CLSID_ActiveDesktop "{75048700-EF1F-11D0-9888-006097DEACF9}" #define IID_IActiveDesktop "{F490EB00-1240-11D1-9888-006097DEACF9}" #usecom IActiveDesktop IID_IActiveDesktop CLSID_ActiveDesktop #comfunc IActiveDesktop_ApplyChanges 3 int #comfunc IActiveDesktop_SetWallpaper 5 wstr, int #comfunc IActiveDesktop_SetWallpaperOptions 7 int, int ; 壁紙の表示位置 #enum WPSTYLE_CENTER = 0 // 中央に表示 #enum WPSTYLE_TILE // 並べて表示 #enum WPSTYLE_STRETCH // 拡大して表示 onexit *exit newcom adesktop, CLSID_ActiveDesktop sdim filepath, 256 input filepath, 400, 22 objsize 20, 22 pos 400, 0 button "...", *setpath pos 200, 40 objsize 80, 22 button "適用", *setwallpaper stop *setpath dialog "bmp;*.gif;*.jpg;*.png;*.htm;*.html", 16, "背景ファイル" if stat = 0 : stop filepath = refstr objprm 0, filepath stop *setwallpaper ; 壁紙ファイルの指定 (第2パラにファイルパス、空文字だと壁紙「なし」) IActiveDesktop_SetWallpaper adesktop, filepath ; WALLPAPEROPT構造体 (要素1に表示位置) WALLPAPEROPT = 8, WPSTYLE_TILE ; 壁紙オプションの指定 IActiveDesktop_SetWallpaperOptions adesktop, varptr(WALLPAPEROPT) ; 変更の反映 IActiveDesktop_ApplyChanges adesktop, 7 mes "done." stop *exit delcom adesktop end



yaha

リンク

2015/11/2(Mon) 15:44:01|NO.72703

ありがとうございます。



ONION software Copyright 1997-2021(c) All rights reserved.