start.prg

vfp 源码,比较全面

** 主程序 **
** 初始化环境 **
public oStartForm
set talk off
set escape off
set safety off
set notify off
set debug off
set echo off
set delete on
set century on
set date ansi
set hour to 24
on shutdown do shutdown
ON ERROR DO errhand WITH ERROR( ), MESSAGE( )
do form start name oStartForm

** 检查程序是否运行 **
public SoftName
SoftName="餐厅收银"
cCaption=softname+" - 红虎工作室"
Declare integer FindWindow in win32api string cClass,String cCaption
if FindWindow(0,cCaption)#0
_screen.caption=cCaption
  =messagebox("&SoftName.程序已经运行，请查看任务栏！",16,"系统资源省着点用哦！ ^_^ ")
  do shutdown
  return .f.
endif
_screen.caption=cCaption

** 系统变量初始化 **
oStartForm.msg.caption="正在初始化系统变量..."
do sys_ini
** 文件检查 **
oStartForm.msg.caption="正在进行文件检查..."
do file_ini
** 初始化菜单 **
oStartForm.msg.caption="正在初始化菜单..."
do sysmenu.mpr
SET MARK OF BAR 1 OF 查看v TO .t.
SET MARK OF BAR 2 OF 查看v TO .t.
SET MARK OF BAR 3 OF 查看v TO .t.

** 初始化工具栏 **
oStartForm.msg.caption="正在初始化工具条..."
oToolsBar.show
oEditToolsBar.show
oToolsBar.setall("enabled",.f.)

_screen.autocenter=.t.
_screen.windowstate=2
*_screen.show

*!*	do form start
oStartForm.msg.caption="系统初始化完毕"
oStartForm.release
release oStartForm
** 初始化完毕 **
 _screen.show

** 程序运行前的提示 **
do showform with '登录','oF31'
do RefreshToolsBar
**********************

set message to "&softname 就绪"
read events