パスワードを忘れた? アカウント作成
737893 journal

Ab.の日記: NeverShowExt

日記 by Ab.
eukareさんの日記で気になったので、HKCR の下で NeverShowExt になってるところをリストアップする perl script を書いてみた。 こういうモノがひょろっと書けるから、perl って好きさー。
手もとの 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";
  }
}

うーむ、いくつかは知ってたけど、他にも割とあるもんなんですなー。

typodupeerror

私はプログラマです。1040 formに私の職業としてそう書いています -- Ken Thompson

読み込み中...