作成してるのは、隠しフォルダの表示・非表示を切り替えするソフトです。隠しフォルダの表示・非表示を切り替えはレジストリを変更する方法で出来たのですが、ディスクトップの更新出来ません。
表示の更新も実現したいのですが、出来なくて困っています。隠れフォルダの表示・非表示の変更は、ディスクトップでマウス右ボタンのメニューの「最新の情報に更新」で確認出来てますのでレジストリの変更は成功していると思います。
実際のコードは、
コード: 全て選択
dim regSubKey as String
dim hRegkey as HKEY
dim Dat_Hidden as DWord
regSubKey = "Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
Dat_Hidden = 1
'レジストリの変更
RegOpenKeyEx(HKEY_CURRENT_USER,rgSubKey,0,KEY_SET_VALUE,hRegkey)
RegSetValueEx(hRegkey,"Hidden",0,REG_DWORD,VarPtr(Dat_Hidden),4)
'ディストップの表示の更新
InvalidateRect(GetDesktopWindow() , ByVal NULL , FALSE)
UpdateWindow(GetDesktopWindow())
また、レジストリの変更でない方法があるのでしたら、その方法も教えて下さい。
よろしくお願いします。