名前 題名 ▼ Mr.XRAYさん > ▼ あさやんさん > > へぇー，Windows 7 では壁紙のスライドショーができるんですね． > 知りませんでした． > 昔は，常駐アプリにして，設定した時間ごとに壁壁を変えるように > していたようです．Vector には，いまでも登録されているのではないでしょうか． > > 下の図のように設定すると，slideshow.ini というのができました． > 見てみると，ImagesRootPIDL にやたら AAAAAA... というのがあります． > PIDL という名前からして，おそらく，項目識別子ではないかと思います． > > PSHItemID = ^TSHItemID; > {$EXTERNALSYM _SHITEMID} > _SHITEMID = record > cb: Word; > abID: array[0..0] of Byte; > end; > TSHItemID = _SHITEMID; > > という構造体です(Delphi XE の Shlobj.pas 内の定義)． > バイト配列が文字列で格納されているようですが，はて，... > > で，Google で「Wallpaper Slidesshow Msdn」で検索したら， > > [IDesktopWallpaper interface (Windows)] > http://msdn.microsoft.com/en-us/library/windows/desktop/hh706946%28v=vs.85%29.aspx > > SetSlideshow というメソッド， > SetSlideshowOptions method というメソッドがありますね． > しかし，このインターフェイスは，Delphi XE5 までには実装されていません． > > 以前は，IActiveDesktop interface で壁紙の設定ができました． > これは，かなり前の Delphi でも実装されています (ShlObj.pas) > http://msdn.microsoft.com/en-us/library/bb776357%28v=vs.85%29.aspx > > で，どうしましょう ? GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link