在delphi中要执行C:\〉copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3怎么写

Question

我想用delphi合并两个mp3文件

Answer 1

winexec('copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3',sw_show);

Answer 2

WinExec('copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3',SW_SHOW);完全正确

Answer 3

uses shellapi
ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c 'copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3''), nil, SW_SHOW);

Answer 4

winexec('copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3',SW_HIDE);
楼上的会弹出一个DOS窗口闪一下

Answer 5

ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3'), nil, SW_SHOW);

Answer 6

winexec('copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3',SW_SHOWMINNOACTIVE);

Answer 7

WinExec('copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3',SW_SHOW);完全正确
没反应，为何
ShellExecute(Handle, 'open', PChar('command.com'), PChar('/c copy /b d:\a.mp3+d:\b.mp3 d:\c.mp3'), nil, SW_SHOW);------------ok

Answer 8

这样合没用；放不出第二个的
用createfile，read/write file好点，不会有console晃一下。
不过还是没用的。

Answer 9

var
  tF1,tF2: TFileStream;
begin
  tF1 := TFileStream.Create;
  tF1.loadFromFile('a.mp3');
  tF2 := TFileStream.Create;
  tF2.loadFromFile('b.mp3'); 
  tF2.CopyFrom(tF1,1,SizeOf(tF1));
  tF2.SaveToFile('c.mp3')
  tF2.Free;
  tF1.free;
end;
//提供一种思路而已