每题100分或100元！

Question

分开录制，用AVI制作软件混音和成。(为什么不能给分100以上？）--此题不算分！---------------什么意思？？没有分嘛？

Answer 1

第一个问题简单，录成avi文件例子： 
unit Unit1; interface uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
Dialogs, ExtCtrls, StdCtrls; type 
TForm1 = class(TForm) 
Panel1: TPanel; 
OpenVideo: TButton; 
CloseVideo: TButton; 
GrabFrame: TButton; 
SaveBMP: TButton; 
StartAVI: TButton; 
StopAVI: TButton; 
SaveDialog1: TSaveDialog; 
procedure FormCreate(Sender: TObject); 
procedure OpenVideoClick(Sender: TObject); 
procedure CloseVideoClick(Sender: TObject); 
procedure GrabFrameClick(Sender: TObject); 
procedure SaveBMPClick(Sender: TObject); 
procedure StartAVIClick(Sender: TObject); 
procedure StopAVIClick(Sender: TObject); 
private 
{ Private declarations } 
hWndC : THandle; 
CapturingAVI : bool; 
public 
{ Public declarations } 
end; var 
Form1: TForm1; implementation {$R *.DFM} const WM_CAP_START = WM_USER; 
const WM_CAP_STOP = WM_CAP_START + 68; 
const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10; 
const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11; 
const WM_CAP_SAVEDIB = WM_CAP_START + 25; 
const WM_CAP_GRAB_FRAME = WM_CAP_START + 60; 
const WM_CAP_SEQUENCE = WM_CAP_START + 62; 
const WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20; function capCreateCaptureWindowA(lpszWindowName : PCHAR; 
dwStyle : longint; 
x : integer; 
y : integer; 
nWidth : integer; 
nHeight : integer; 
ParentWin : HWND; 
nId : integer): HWND; 
STDCALL EXTERNAL 'AVICAP32.DLL'; procedure TForm1.FormCreate(Sender: TObject); 
begin 
CapturingAVI := false; 
hWndC := 0; 
SaveDialog1.Options := 
[ofHideReadOnly, ofNoChangeDir, ofPathMustExist] 
end; procedure TForm1.OpenVideoClick(Sender: TObject); 
begin 
hWndC := capCreateCaptureWindowA('My Own Capture Window', 
WS_CHILD or WS_VISIBLE , 
Panel1.Left, 
Panel1.Top, 
Panel1.Width, 
Panel1.Height, 
Form1.Handle, 
0); 

Answer 2

对不起：楼上再楼上的那位朋友，我不是说录那个，我意思是说如何获得当前声音（比如话筒输入的声音）和一个AVIstream合并生成一个新的stream写入AVI文件中。
我想做一个可录制屏幕内容和声音的程序，现在可以录屏幕了，但却没法同步录音。