program wallvideo; { ※課題 ・フルスクリーン。 ・ツールバーのカスタマイズ ・ビデオウィンドウをフロート可能に ・プレイリストをファイル名だけでなくタグ情報やファイル情報も含めて保存するためバイナリ形式に変更。 ・半透明ビデオ。 ・検索のループ。 ・情報欄にサムネイルの表示。 ・シークバー上にマウスがある時のサムネイル表示。 2015-09-23:Ver 3.2.6.260 ・検索リスト作成機能を非表示に。 　検索語句のAnd,or,not各リストへの振り分けが未成熟であるため一時的に使用しないこ 　とにした。 ・静止画キャプチャの静止画の拡大・縮小で最初だけ表示される位置がおかしなことになっ 　ていた不具合を修正。 Vectorに上げていたものをアップデート。 2014-01-22:Ver 3.2.5.260 ・ウィンドウモード時にモニター選択メニューを選ぶとビデオサイズが壁紙ビデオ用になっ 　てしまう不具合を修正。 ・ツールボタンの壁紙ビデオのボタンをドロップダウンからチェックに戻した。 2014-01-06:Ver 3.2.4.254 ・ffdshowを優先使用オプションを取りやめ。 　インストールされていれば優先使用するようにした。 ・ツールバーの「開く」「フォルダを開く」「選択フォルダのみ開く」のボタンと 　「壁紙ビデオ」のボタンの挙動がおかしくなる不具合を修正。 　ただし原因がよく分からないため予断は許せず。 2014-01-02:Ver 3.2.3.254 ・壁紙ビデオのモニター選択メニューの各ポップアップメニューの連動がうまくいってい 　なかった不具合を修正。 ・オプションに「ffdshowを優先使用」を追加。 　デバッグ目的。 ・ビデオのウィンドウモードの時のビデオレンダラを旧ビデオレンダラからVMR9に変更。 ・ビデオのウィンドウモードで次のメディアを開く時タスクバーがフラッシュしてしまう 　不具合を修正。 ・レジューム後、検索リストのアイテムをダブルクリックすると再生リストの当該アイテ 　ムに行かず常に再生リストの先頭のアイテムに行ってしまう不具合を修正。 2013-12-28:Ver 3.2.2.250 ・壁紙ビデオのモニター選択のチェックがうまくいかなくなっていた不具合を修正。 　MenuItemのActionプロパティのチェックをオンにしなければならなかったのをMenuItem 　のチェックをオンにしていたため。 2013-12-22:Ver 3.2.1.250 ・ビデオの部分拡大に対応。 ・壁紙ビデオのツールボタンの挙動を調整。 2013-11-16:Ver 3.2.0.249 ・ビデオのウィンドウモードの表示に対応。 ・検索リスト作成機能実装。 ・検索のオプション指定に対応。 　and検索とor検索。 　検索条件の反転(not) ・履歴のリストを残すようにした。 ・再生リスト、検索リスト、履歴、ビデオ画面をタブで切り替えるように変更。 ・/b オプションで静止画取得機能を表示。 ・情報欄のタイトル、アーティスト、アルバムのコピーに対応。 マイナーバージョンアップ。 2013-10-20:Ver 3.1.0.247 ・ビデオウィンドウの表示を廃止。 ・変わりにモニター選択機能を実装。 ・簡易検索機能実装。 　空白スペースを区切りとした複数の検索語のor検索。 　大文字・小文字、カタカナ・ひらがな、全角・半角の区別はしない。 マイナーバージョンアップ。 2013-10-07:Ver 3.0.18.245 ・「開くときに追加」を追加。 ・「再生中のファイルをリストから削除」を追加。 ・30秒スキップ、30秒バックスキップの不具合を修正。 ・ソートのシャッフルで2回に1度エラーが起きてしまう不具合を修正。 ・ツールボタンのソートを直前にソートしたものに変更するようにした。 2013-08-19:Ver 3.0.17.240 ・再生ファイルが変わるときに情報パネルの表示がリストの最初のメディアのものになっ 　てしまう不具合を修正。 ・ビデオ表示ウィンドウの表示に対応。 　ただしビデオのウィンドウ表示には未対応。 　壁紙ビデオの覗き見ができるにとどまる。 2012-12-29:Ver 3.0.16.236 ・ビデオのサイズがモニターのサイズと違う場合隙間なく拡大するはずがそうなっていな 　かった不具合を修正。 2012-12-20:Ver 3.0.15.234 ・ポップアップメニューにステータスバーの項目を追加していなかった不具合を修正。 ・2012-11-07の修正で発生するようになっていたメディアの変わり目にフォーカスを奪っ 　てしまう不具合を修正。 2012-11-26:Ver 3.0.14.233 ・ステータスバー復活。 2012-11-07:Ver 3.0.13.233 ・サブウィンドウがタスクマネージャのアプリケーションタブに表示されていた不具合を 　修正。 2012-09-05:Ver 3.0.12.233 ・前回の修正でプレイリストが読み込めなくなっていた不具合を修正。 2012-08-29:Ver 3.0.11.233 ・メモリリークが起きていた不具合を修正。 ・ファイル取得時にフォームのタイトルバーに取得状況を表示するようにした。 2012-08-17:Ver 3.0.10.232 ・アイコンをタスクトレイに入れた時に最小化するとタスクバーにアイコンが表示されて 　しまう不具合を修正。 ・アイコンをタスクトレイに入れている時にタスクトレイのアイコンを右クリックすると 　メニューのポップアップと同時にウィンドウが元のサイズに戻ってしまう不具合を修正。 2012-08-16:Ver 3.0.9.232 ・オプションでアイコンをタスクトレイに入れるにチェックを入れた時タスクバーにアイ 　コンが残ってしまう不具合を修正。 2012-08-07:Ver 3.0.8.230 ・前回の修正でリストの複数選択ができなくなっていた不具合を修正。 2012-07-30:Ver 3.0.7.230 ・ローカルのヘルプファイルの表示に対応。 ・メインメニューの表示の時にメニューの状態の更新を行っていなかった不具合を修正。 2012-07-27:Ver 3.0.6.230 ・ステータスバーを非表示にした。 ・「再生できないファイルを確認」のオプションを非表示に。 ・メニューのヒントや表示の抜けを修正。 2012-07-16:Ver 3.0.5.230 ・選択ファイルの情報表示に対応。 2012-07-13:Ver 3.0.4.230 ・リストのソート機能を実装。 ・再生中のファイルの情報をツールバーに表示するようにした。 2012-07-11:Ver 3.0.3.230 ・再生できないファイルを確認なしでリストから削除する時に画面の更新を行うようにし 　た。 　リストから連続して大量の項目を削除する時にフリーズしてしまったように見えるのを 　防ぐため。 2012-06-26:Ver 3.0.2.230 ・シークバーの動きを滑らかにした。 ・マウスジェスチャー実装。 2012-06-12:Ver 3.0.1.230 ・ボリューム実装。 ・ランダム再生でファイルを読み込んだときに、読み込んだファイルの中から再生ファイ 　ルを選ぶはずがそうなっていなかった不具合を修正。 2012-06-05:Ver 3.0.0.230 ・大幅に仕様変更。 　壁紙ビデオモードに特化。 　メインウィンドウはなし、リストウィンドウとサブウィンドウのみ。 } uses my_safedll, Forms, Windows, myApp, myControl, myParam, main in 'main.pas' {App_Wallvideo}, sub in 'sub.pas' {App_WallvideoSubForm}; // general in 'general.pas'; {$R *.res} begin {$IFDEF DEBUG} ReportMemoryLeaksOnShutdown := True; {$ENDIF} Application.Initialize; Application.Title := '壁紙ビデオ'; if (ParamW.OptionExists(G_csSUBPLAYER_RUN)) then begin //壁紙ビデオ用フォームを起動。 Application.ShowMainForm := False; Application.CreateForm(TApp_WallvideoSubForm, App_WallvideoSubForm); ShowWindow(Application.Handle, SW_HIDE); gpcWindowStyleExAdd(Application.Handle, WS_EX_TOOLWINDOW); end else begin if (gfnbAppDuplicate(gfnsAppMutexNameGet(Application.ExeName), 'TApp_Wallvideo', Application.Title)) then begin Exit; end; Application.CreateForm(TApp_Wallvideo, App_Wallvideo); App_Wallvideo.Action_Opt_TaskTrayExecute(nil); end; Application.Run; end.