ok1.bak

可以自由调整大小进行拍照摄像并自动保存,能捕获视频进录像并保存

APPLICATION.VISIBLE = .F.
CLEAR ALL
CLEAR
SET SAFETY OFF
************************
PUBLIC cUser,nPath,lSd  && lSD 为检测设定的目录是否改变要更新照片
lSD=.F.
PUBLIC cd
cd=.t.   &&菜单是否跳过
nPath=SYS(5)+SYS(2003)
cUser='Pict'
IF !FILE('USER.DBF')
   CREATE TABLE USER (NAME C(20),Path C(100))
   USE USER
   APPEND BLANK
   REPLACE NAME WITH 'PICT',Path With ALLTRIM(SYS(5)+SYS(2003))+'\'
ENDIF

   ************************
DO Form main
READ events