使用Delphi直接通过调用API函数来控制摄像头实现简单(拍照、录像)功能的源码