显示一个非模态对话框, 由提示消息,进度条和取消按钮(可选)组成. 因为对话框是非模态的, 可由用户中断, 所以你可能在执行长时间处理的时候用到它. 一旦使用参数呼叫这个函数便开始初始化对话框. 然后就可以通过呼叫绝对或相对数字来移动进度条. 不带参数呼叫检查对话框的状态. 带T参数呼叫关闭对话框.
(dos_getprogress title message maxvalue [T])
(dos_getprogress abs/-rel)
(dos_getprogress T)
(dos_getprogress)
title
窗口标题.
message
提示信息.
maxvalue
一个整数, 设定进度条的最大值(从0到最大).
abs/-rel
用来移动进度条的绝对值, 或相对值(用负值表示).
T
如果在创建对话框时指定这个参数将显示取消按钮. 否则T代表关闭对话框.
nil 当初始化,增加,关闭对话框时.
当检查打开状态时, 如果是打开则返回T, 否则返回nil
Command: (setq x 0 y 1000)
1000
Command: (dos_getprogress "Testing" "Testing, please wait..." y)
nil
Command: (while (< x y) (dos_getprogress -1) (setq x (1+ x)))
1000
Command: (dos_getprogress t)
nil