FlVをMP3に変換 (ID:38304)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんには，Mr.XRAYです． >後は実行時にDOS窓がでてきるので引数で隠せるのか等 手前味噌ですが，これを非表示にするコードがあります． Fusaさんの作成したユニットをDelphi2009以降にも対応コードに修正したものです． こういうのを持っていると何かと便利です．(^^; ただし，ShellExecuteではなく，CreateProcessです． また，大変申し訳ありませんが，動作確認はDelphi5〜2010です． ■ 03_使用したリダイレクトのユニット http://mrxray.on.coocan.jp/Delphi/plSamples/552_PipeRedirect.htm#03 今回の事例では，例えば以下のようになるでしょうか． // usesにCommandLineUnitを追加 procedure TForm1.Button1Click(Sender: TObject); var ACmdLine : TCommandLineUnit; ACmdStr : String; begin ACmdStr := 'ffmpeg.exe -i "c:\a.flv" -ab 128 out.mp3'; ACmdLine := TCommandLineUnit.Create; try ACmdLine.GrabStdOutText(ACmdStr); finally FreeAndNil(ACmdLine); end; ShowMessage('END!!'); end;