如何用FoxPro实现WINDOWS重新启动
来源:优易学  2011-12-9 18:36:34   【优易学:中国教育考试门户网】   资料下载   IT书店

  若要在VFP应用程序中直接关闭计算机,就需要调用WIN32APE函数,利用WIN32API中提供的ExitWindowsEx()函数,我们便可以在VFP中控制WINDOWS的关机动作,步骤:
  建立基本界面
  此界面需要的控件为:一个选项按钮组、一个图像控件、一个标签、两个按钮,这里要注意的一点是:要想建立一个如图中的无控制框的界面,此表单的属性设置如下:
  Autocenter
  ..T
  Borderstyle
  0---无边框
  Closebale
  .f.
  Maxbutton
  .f.
  Minbutton
  .f.
  Controlbox
  .f.
  基本界面设计好后,就可以进行代码录入了,请在确定按钮的CLICK()事件中录入:

  #define EWX_LOGOFF 0
  #define EWX_SHUTDOWN 1
  #define EWX_REBOOT 2
  #define EWX_FORCE 4
  #define EWX_POWEROFF 8
  DECLARE integer ExitWindowsEx IN USER32.DLL AS Shut_Down INTEGER , INTEGER
  LOCAL nAnswer
  DO CASE
  CASE THISFORM.Optiongroup1.Value = 1 &&关闭机器
  =Shut_Down( EWX_SHUTDOWN + EWX_FORCE , 0 )
  CASE THISFORM.Optiongroup1.Value = 2 &&重新启动
  =Shut_Down( EWX_REBOOT + EWX_FORCE , 0 )
  CASE THISFORM.Optiongroup1.Value = 3 &&注销
  =Shut_Down( EWX_LOGOFF + EWX_FORCE, 0 )
  ENDCASE
  THISFORM.RELEASE

责任编辑:小草

文章搜索:
 相关文章
热点资讯
资讯快报
热门课程培训