用USB照像后直接取相为一寸照片(100分)

SingleImageFileName :=AppPath+'/INSPECT/photo/TempBmp.bmp'; //PhotoToPlace+filepathplace+'.bmp';
CapSetSingleImageFileName(SingleImageFileName);
CapGrabSingleFrame;
CapSetVideoLive;




procedure CapGrabSingleFrame;
var
achSingleFileName: array [0..255] of Char;
begin
if ghCapWnd = 0 then
exit;

capGrabFrame(ghCapWnd);
StrPCopy(achSingleFileName, gCapSingleImageFileName);
capFileSaveDIB(ghCapWnd, LongInt(@achSingleFileName));
end;


procedure CapSetVideoLive;
begin
if ghCapWnd = 0 then
exit;

capOverlay(ghCapWnd, 0);
capPreviewScale(ghCapWnd, 1);
capPreviewRate(ghCapWnd, MS_FOR_25FPS);
capPreview(ghCapWnd, 1);
end;


我不想用第三方控件实现此功能，照相（在窗体上显示的人头像）直接把显示的照片（一寸）保存下来