摄像头相关编程，明白的请帮忙指点一下(200分)

如何实现，通过编程，访问摄像头等设备，拍照，捕捉视频？？？

请给出具体方法及代码，并附上注释

AVICAP32.dll 中有个api
function capCreateCaptureWindow (lpszWindowName: PChar;
dwStyle: DWord;
x, y: Integer;
nWidth, nHeight: Integer;
hwndParent: THandle;
nID: Integer ): THandle;
stdcall;
可以创建一个显示视频用的窗口，向其发消息，就可以实现所有控制了。
控件代码暂时放在 http://oopsware.51.net/download/OopsVideoCap.zip

TVideoCapture - Delphi wrapper for DirectShow video capture functions.

Code is based on
Microsoft's AMCap &
StillCap samples from DirectX SDK
and
DScapture by orthkon * www.mp3.com/orthkon * orthkon@mail.com

Compatible with D5, D6 and BCB5.
Tested under Win98 &
Win2k &
DX8.1 with miniDV camcoder,
Genius VideoCAM III, bt878 WDM TVTuner.
DX8 or later is required to capture bitmaps.

下到了，不错。
http://www.delphipages.com/edit/count.cfm?ID=3530

多人接受答案了。