ab.com コミュニティ https://www.activebasic.com/forum/ |
|
デスクトップの背景 https://www.activebasic.com/forum/viewtopic.php?t=2529 |
ページ 1 / 1 |
作成者: | よしき [ 2009年1月11日(日) 00:40 ] |
記事の件名: | デスクトップの背景 |
デスクトップの背景に設定してある画像を新しい画像に上書きしても(当然ですが)すぐには背景が新しいものに更新されないので更新したいのですが・・・。 コード: Dim hDW As HWND hDW=GetDesktopWindow() SetForegroundWindow(hDW) keybd_event(VK_RBUTTON,0,0,0)'押す keybd_event(VK_RBUTTON,0,KEYEVENTF_KEYUP,0)'離す keybd_event(Asc("R"),0,0,0)'押す keybd_event(Asc("R"),0,KEYEVENTF_KEYUP,0)'離す keybd_event(VK_MENU,0,0,0)'押す keybd_event(Asc("K"),0,0,0)'押す keybd_event(Asc("K"),0,KEYEVENTF_KEYUP,0)'離す keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0)'離すこのように仮想キーコード使ってもうまくいかなかったのですが、なにか方法はないでしょうか?vistaです。 |
作成者: | abwiki管理人 [ 2010年1月10日(日) 04:15 ] |
記事の件名: | もしかして |
SystemParametersInfoを使えば良いと思います。 コード: Dim bmp[MAX_PATH] As Byte lstrcpy(bmp, "C:\Windows\グリーン ストーン.bmp") SystemParametersInfo(SPI_SETDESKWALLPAPER,3,bmp, SPIF_UPDATEINIFILE) |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |