若要在VFP应用程序中直接关闭计算机,就需要调用WIN32APE函数,利用WIN32API中提供的ExitWindowsEx()函数,我们便可以在VFP中控制WINDOWS的关机动作,步骤:
建立基本界面
此界面需要的控件为:一个选项按钮组、一个图像控件、一个标签、两个按钮,这里要注意的一点是:要想建立一个如图中的无控制框的界面,此表单的属性设置如下:
Autocenter
..T
Borderstyle
0---无边框
Closebale
.f.
Maxbutton
.f.
Minbutton
.f.
Controlbox
.f.
基本界面设计好后,就可以进行代码录入了,请在确定按钮的CLICK()事件中录入:
来源:www.examda.com #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
编辑特别推荐:
计算机等级考试二级VFP考前密卷及答案