mhlogin.prg

来自「非常酷字」· PRG 代码 · 共 36 行

SET EXCLUSIVE OFF            &&共享打开数据
SET ESCAPE OFF               &&关闭ESC中止
SET EXACT ON
SET NOTIFY OFF               &&不显系统信息
SET TALK OFF                 &&不显示命令结果
SET DATE LONG                &&设日期为YYYY年MM月DD日
SET HOURS TO 24              &&时间24小时
*****关闭功能键
***********
ON KEY LABEL CTRL+F1 NOTE
ON KEY LABEL CTRL+F2 NOTE
ON KEY LABEL CTRL+F3 NOTE
ON KEY LABEL CTRL+F4 NOTE
ON KEY LABEL CTRL+F5 NOTE
ON KEY LABEL CTRL+F6 NOTE
ON KEY LABEL CTRL+F7 NOTE
ON KEY LABEL CTRL+F8 NOTE
ON KEY LABEL CTRL+F9 NOTE
ON KEY LABEL CTRL+F10 NOTE
ON SHUTDOWN QUIT
*public ILLUSIONSETUP ,MH_ILLUSION
SET LIBRARY TO SYSTRAY.DLL
ADDSYSTRAYICON(1,"illusion.ico","幻影- 梦幻工作室","do DbClick","do RightClick",.T.)
DO FORM ILLUSIONSETUP NAME ILLUSIONSETUP LINKED NOREAD
ILLUSIONSETUP.VISIBLE=.F.
DO FORM ILLUSION NAME MH_ILLUSION LINKED NOREAD
READ EVENT
PROCEDURE DBCLICK  &&双击
ILLUSIONSETUP.VISIBLE=.T.
ILLUSIONSETUP.SHOW
IF NOT ISNULL(MH_ILLUSION)
*	MH_ILLUSION.QUITPROG=.F.
	MH_ILLUSION.RELEASE
ENDIF
RETU