Ab.の日記: NeverShowExt
日記 by
Ab.
eukareさんの日記で気になったので、HKCR の下で NeverShowExt になってるところをリストアップする perl script を書いてみた。
こういうモノがひょろっと書けるから、perl って好きさー。
手もとの ActivePerl 5.6.1 で動作確認。
手もとの ActivePerl 5.6.1 で動作確認。
use Win32API::Registry qw( :ALL );
$uIndex = 0;
$iAccess = KEY_QUERY_VALUE | STANDARD_RIGHTS_READ | KEY_SET_VALUE | STANDARD_RIGHTS_WRITE;
$NeverShowExt = "NeverShowExt";
while (RegEnumKeyEx(HKEY_CLASSES_ROOT, $uIndex++, $name, $len, [], [], [], [])) {
$hkey = '';
if (RegOpenKeyEx(HKEY_CLASSES_ROOT, $name, 0, $iAccess, $hkey)) {
if (RegQueryValueEx($hkey, $NeverShowExt, [], $type, $data, $len)) {
print "$name\n";
}
RegCloseKey($hkey);
}else {
print "$name : " . regLastError() . "\n";
}
}
うーむ、いくつかは知ってたけど、他にも割とあるもんなんですなー。