XP のあの丘がアニメーションするスクリーンセーバーをWindows 10で動かす!

窓の杜 - 【NEWS】米Microsoft、スクリーンセーバー「Windows XP Bliss Screen Saver」を公開

xps
XP Bliss Screen Saver 

Tri-Degital Inc って会社が Delphiと Active Movie ってコンポーネントを使って開発したものの様なんだけど、TConfig 内の TActiveMovieのクラス初期化中に例外が出て困る

  mov eax,[L0043BB18]
  mov eax,[eax]
  mov eax,[eax+2Ch]
  mov edx,[eax+0000018Ch] <--------
  mov [ebx+00000308h],edx
  mov edx,[eax+00000190h]
  mov [ebx+0000030Ch],edx
  mov eax,[L0043BB18]
  mov eax,[eax]
  mov eax,[eax+2Ch]
  mov [eax+00000190h],ebx
  mov dword ptr [eax+0000018Ch],L004362C4

どうも、Windows 10には存在しないキーボードイベントの呼び出し処理の登録に失敗してそれを呼び出して死んでるような?

という訳でヌルポだったらスキップするように修正。
あとついでにコンフィグの窓がどう見ても不格好なので幅と高さを 16ずつ増やして、初期位置を上にずらすことにした Delphi は窓位置をリソースとして持ってるのだ ・ω・ ちょろい
xps2

blisssaver.cab
Bliss Saver Version 1.0.0.1

xps3

おすすめ

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です