Windows 8 CPの Win7 RTM の互換モードのShimをチェックしてみた

やはり新しいShimが増えてる。

  • DetectorDWM8And16Bit
    • DWMあたりが変わったためかな。情報なし。
  • ElevateCreateProcess
  • EmulateSortingWindows61
    • これはソートをWindows7相当にするみたい
  • FailObsoleteShellAPIs
  • FaultTolerantHeap
  • GlobalMemoryStatus2GB
  • HandleBadPtr
  • NoGhost
  • RedirectBDE
  • RedirectMP3Codec
  • SyncSystemAndSystem32
  • VirtualRegistry
  • Win7RTMVersionLie
    • Versionを6.1にする
  • WRPDllRegister
  • WRPMitigation

ちなみに、右クリックから互換性タブにある互換モードにはWinodows2000がなくなっていますね。

Windows 8 CP のIMEの変換制限は、「IVS (Ideographic Variation Sequence) を含む文字を制限する」がデフォルト

IVSって「漢字を表すUnicodeの直後に、Variation Selectorと呼ばれるコードを付加し、漢字の異体字を表現する方法」らしいが、将来的にはIVS対応やサロゲートペアに対応するアプリか対応しない(JIS90のまま)アプリの2極化しそうだね。

Aterm WR8700N と Aterm WL300NE-AG の無線接続が安定してきた

家ネットワークは、BDZ-AT900 ←→ Aterm WL300NE-AG ←→ Aterm WR8700N ←→ Aterm WL300NE-AG ←→ハブ ←→ PS3 という構成となっています。 Aterm WL300NE-AG は、もう一年以上前の製品ですが、SSIDを2.4GHzと5GHzを2つずつ作れるのでタブレットなどに2.4GHzを利用して子機接続は5GHzで接続しています。

この構成は、RDZ AT900 で録画した番組を DLNA を利用して PS3 をから観るために作ったのですが、ネットワークが不安定のときは、高画質だと画像がガタガタしてしまうときがありちょっと残念な思いをしていました。ただ、最近 WL300NE-AG側のソフトウェアをバージョンアップしたら無線ネットワークの接続自体が安定して動画もかなり安定してきました。もちろん何らかの理由で調子が悪いときがあるので、大体は画質を落として録画することにしていますが。。。

Xperia X10 を 2.3 にして、さらにフォントも変更

メモです(各人の責任で作業してください)。もう戻れない機体になりました(>_<)

方法その2

Java7の情報を探し始めました(まだまだですが)。

  • 遅ればせながらですが少し情報を集めようかと。。。適宜追加予定。

JDK7がサポートするプラットフォームプラン

PowerPoint 2010 のPDF変換機能を利用して、Powerpointを起動せずにPDFに変換するVBSスクリプト

どこからのパクリだったような気もするが、PowerPoint をバックグラウンドで動かしてPPTファイルをPDFに変換するVBSを前作っていて結構楽なので公開してみる。VBSファイルにPPTファイルをドラッグ&ドロップするだけでOK。複数のファイルをドラッグ&ドロップしても大丈夫。
なお、ppSaveAsPDF=32が肝で wdExportFormatPDF = 17 を追加して、ppt.SaveAs GetFNameFromFStr(ppt.FullName)+".pdf", ppSaveAsPDF の部分を変更すればとすればWordファイルもPDFに変更できる。

Option Explicit

Const ppSaveAsBMP = 19
Const ppSaveAsJPG = 17
Const ppSaveAsPNG = 18
Const ppSaveAsOpenXMLPresentation=24
Const ppSaveAsPDF=32
Const ppSaveAsPresentation=1
Dim fname, ppt
For Each fname In Wscript.Arguments
  Set ppt = GetObject(fname)
  ppt.SaveAs GetFNameFromFStr(ppt.FullName)+".pdf", ppSaveAsPDF
  ppt.Close
Next
Wscript.Echo "完了"


Function GetFNameFromFStr(sFileName )
Dim sFileStr' As String
Dim lFindPoint 'As Long
Dim lStrLen' As Long
    lFindPoint = InStrRev(sFileName, ".")
    sFileStr = Left(sFileName, lFindPoint - 1)
    GetFNameFromFStr = sFileStr
End Function