f_waitforrslt.srf 561 B

12345678910111213141516171819
  1. $PBExportHeader$f_waitforrslt.srf
  2. global type f_waitforrslt from function_object
  3. end type
  4. forward prototypes
  5. global subroutine f_waitforrslt (integer arg_waitsec, string arg_title, boolean arg_if_allow_cancel)
  6. end prototypes
  7. global subroutine f_waitforrslt (integer arg_waitsec, string arg_title, boolean arg_if_allow_cancel);// 等待结果
  8. // 等待最长时间arg_waitsec
  9. s_waitforwsrslt_para s_para
  10. s_para.waitsecond=arg_waitsec
  11. s_para.title=arg_title
  12. s_para.if_allow_cancel=arg_if_allow_cancel
  13. OpenWithParm(w_waitforwsrslt,s_para)
  14. end subroutine