ok.prg

来自「可以自由调整大小进行拍照摄像并自动保存,能捕获视频进录像并保存」· PRG 代码 · 共 24 行

*CLEAR ALL
APPLICATION.VISIBLE = .F.
*SET EXCLUSIVE on
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
IF !FILE('pict.dbf')
   CREATE TABLE pict (id C(5),FileName C(100))
ENDIF   
CLOSE ALL 
DO FORM MAIN
APPLICATION.Visible=.F.
READ EVENTS