mainlogin.prg

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

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
SET LIBRARY TO SYSTRAY.DLL
ON SHUTDOWN QUIT

ADDSYSTRAYICON(1,"illusion.ico","幻影- 梦幻工作室_双击关闭","do DbClick","do RightClick",.T.)
DO FORM ILLUSION NAME MH_ILLUSION LINKED NOREAD
READ EVENT
PROCEDURE DBCLICK  &&双击
MH_ILLUSION.SETALL("interval",0)
MH_ILLUSION.RELEASE
CLEAR EVENT
RETU