名前 題名 ▼ Mr.XRAYさん > 私が使っている検索ツールは，二チャンネルは検索対象から外しているのですが， > 何かの検索をしていたら，そのリンクに二チャンネルがありました． > まだ，こんなのがあるんですね．昔はよく見たような． > > http://toro.2ch.net/test/read.cgi/tech/1353119767/l50 > > 下の方からみていたら，ダウンロードできるファイルがあったので， > ダウンロードしてみました． > えーと，528 番のです． > > Delphi XE でプロジェクトを開こうとしたら，失敗． > みたら，529 に XE4 と書いてあったけど，以下のサンプルを使用して > Delphi XE でも使えるようにして，Delphi XE で起動してみました． > > [03_uses 部にユニットスコープ名を追加 ( Delphi XE2 以上用 )] > http://mrxray.on.coocan.jp/Delphi/plSamples/000_CommandLineCompile.htm#03 > > コンパイルして，実行，Windows に付いてきている mp3 を開いて... > ありゃー !!? > 以下は，MediaPlayre1のOnNotifyイベントのコードです． > > procedure Tmp3.MediaPlayer1Notify(Sender: TObject); > begin > if FileListBox1.ItemIndex=FileListBox1.Items.Count-1 then > FileListBox1.ItemIndex:=0 else FileListBox1.ItemIndex:=FileListBox1.ItemIndex+1; > MediaPlayer1.FileName := FileListBox1.FileName; > MediaPlayer1.Rewind; > MediaPlayer1.Play; > > end; > > この上のコードは，次のイベント処理と似ています． > 上のコードは，ほとんどこれと近い再帰処理(に似た処理)を実行することになります． > しかし，何でこんなコードになっちゃたんでしょうね． > (調べる気も，記事を読み気もしませんので．これまで) > > procedure TForm1.Button1Click(Sender: TObject); > begin > Button1Click(Sender); > end; > > もしかしたら，参考になるかも知れないので書いておきました． > 私も気付かないでやることがあります．特にフック関係のサンプルの場合． > 良い子の皆さんは，こんなことやらないと思いますが． GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link