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


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
0808
beachデスクトップ画像5解決


beach

リンク

2019/8/8(Thu) 19:02:17|NO.88017

hspでwindowsのデスクトップ画像を変更させたいです。
以前にもそのようなスレッドを見つけましたが、それだと画像を選択してボタンを
押して適用するプログラムになってしまい、上手く行きません。

ボタンを押して適用するのではなく、実行したら強制的にデスクトップ画像を
変更させるにはどうすればいいでしょうか。



この記事に返信する


ソラ

リンク

2019/8/8(Thu) 19:40:47|NO.88018

プログラムというのは小さな命令の集まりなので、そのプログラムを少し修正すれば望み通りの動きになると思いますよ。
まずは1行1行の命令の意味を理解したほうが良いかと。



とあるプログラマ

リンク

2019/8/9(Fri) 14:42:50|NO.88025

SystemParametersInfoという関数でできました。
https://www.activebasic.com/help_center/Pages/API/SystemService/SystemInformation/SystemParametersInfo.htm


#include "user32.as" ;#include "constant.as" #define SPI_SETDESKWALLPAPER $00000014 #define SPIF_UPDATEINIFILE $00000001 dialog "jpg|png|bmp",16 if stat==0 : end path=refstr SystemParametersInfo SPI_SETDESKWALLPAPER,NULL,varptr(path),SPIF_UPDATEINIFILE mes stat



beach

リンク

2019/8/12(Mon) 15:58:16|NO.88035

それだと「開く」というダイアログが表示されてしまうのですが…
実行したらすぐに強制変更できるようになりませんか?



ham

リンク

2019/8/12(Mon) 16:54:53|NO.88036

dialog "jpg|png|bmp",16
if stat==0 : end

↑の部分消して path=refstr ところを path=ファイル名 にすればできるよ。
こんな短いスクリプトだし、分からなくても何となくでいじってみた方が聞くより早い気が



beach

リンク

2019/8/12(Mon) 19:23:39|NO.88037

やってみたらできました!
皆さん、ご回答ありがとうございました。



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